J'ai essayé de cette façon :
Majuscule : (seul ça fonctionne)
____________________________________
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Worksheet_Change(ByVal Target As Range) 'Masjuscule automatique Dim zz Dim c As Range Set zz = Intersect(Target, [A4:C1000,G4:J1000,M4:O1000]) If zz Is Nothing Then Exit Sub Application.EnableEvents = False For Each c In zz.Cells c = UCase(c) Next Application.EnableEvents = True End Sub
Minuscule : (seul ça fonctionne)
Mais quand je laisse les deux dans la même feuille, j'ai un message d'erreur " Nom ambigu détecté : Worksheet_Change "
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Worksheet_Change(ByVal Target As Range) 'Masjuscule automatique Dim zz Dim c As Range Set zz = Intersect(Target, [K4:K1000]) If zz Is Nothing Then Exit Sub Application.EnableEvents = False For Each c In zz.Cells c = LCase(c) Next Application.EnableEvents = True End Sub
Merci de m'aider les amis !!!!!
Partager