Comment a l'aide d'une macro avoir une majuscule dans chaque mot tapé ?
Merci.
JB
Bonjour,
Mots frappés dans la colonne A.
http://cjoint.com/?firqo2ZF8B
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Count = 1 Then Target = Application.Proper(Target) End If Application.EnableEvents = True End Sub
Cordialement JB
Bonjour,
Mots frappés dans la colonne A.
http://cjoint.com/?firqo2ZF8B
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
Target = Application.Proper(Target)
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Count = 1 Then Target = Application.Proper(Target) End If Application.EnableEvents = True End Sub
Cordialement JB
ABED HADDOU
Bonjour, perso pour JB : juste pour s'avoir pourquoi Application.EnableEvents avant et aprés la fonction Application.Proper() ? merci d'avance. Abed_H
Bonjour,
Mots frappés dans la colonne A.
http://cjoint.com/?firqo2ZF8B
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Count = 1 Then Target = )> End IfApplication.Proper(Target Application.EnableEvents = True End Sub
Cordialement JB
Bonjour,
perso pour JB : juste pour s'avoir pourquoi Application.EnableEvents avant
et aprés la fonction Application.Proper() ?
merci d'avance.
Abed_H
Bonjour,
Mots frappés dans la colonne A.
http://cjoint.com/?firqo2ZF8B
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
Target = )> End IfApplication.Proper(Target
Application.EnableEvents = True
End Sub
Bonjour, perso pour JB : juste pour s'avoir pourquoi Application.EnableEvents avant et aprés la fonction Application.Proper() ? merci d'avance. Abed_H
Bonjour,
Mots frappés dans la colonne A.
http://cjoint.com/?firqo2ZF8B
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Count = 1 Then Target = )> End IfApplication.Proper(Target Application.EnableEvents = True End Sub
Cordialement JB
JB
Sans ces instructions, la procédure WorkSheetChange() est appelée une seconde fois lorsqu'on modifie la cellule par programme. La désactivation des évements pendant l'écriture par programme évite ce pb.
JB
Sans ces instructions, la procédure WorkSheetChange() est appelée une
seconde fois lorsqu'on modifie la cellule par programme.
La désactivation des évements pendant l'écriture par programme
évite ce pb.
Sans ces instructions, la procédure WorkSheetChange() est appelée une seconde fois lorsqu'on modifie la cellule par programme. La désactivation des évements pendant l'écriture par programme évite ce pb.
JB
ABED HADDOU
Merci beacoup Monsieur JB Bonne soirée.
Sans ces instructions, la procédure WorkSheetChange() est appelée une seconde fois lorsqu'on modifie la cellule par programme. La désactivation des évements pendant l'écriture par programme évite ce pb.
JB
Merci beacoup Monsieur JB
Bonne soirée.
Sans ces instructions, la procédure WorkSheetChange() est appelée une
seconde fois lorsqu'on modifie la cellule par programme.
La désactivation des évements pendant l'écriture par programme
évite ce pb.
Sans ces instructions, la procédure WorkSheetChange() est appelée une seconde fois lorsqu'on modifie la cellule par programme. La désactivation des évements pendant l'écriture par programme évite ce pb.
JB
apt
Ardus Petus & Jacques B :
Vos solutions ne fonctionent pas !
Quand j'ecris dans la cellule A1 : nom prenom
ça reste toujours la même syntaxe ??? or je voudrais avoir, apres avoir quiter la cellule active ceci : Nom Prenom.
Une solution ? en mode normal et en mode macro.
Merci.
Ardus Petus & Jacques B :
Vos solutions ne fonctionent pas !
Quand j'ecris dans la cellule A1 : nom prenom
ça reste toujours la même syntaxe ??? or je voudrais avoir, apres
avoir quiter la cellule active ceci : Nom Prenom.
