papy 73 ans
XLDnaute Occasionnel
Bonjour,
Comment modifier ce code pour que en même temps J14 se mette en minuscule
Le but étant que quelque soit le type de saisie effectuée les cellules se mettent comme il faut :
A4, G25, K7 toujours en majuscule
J14 toujours en minuscule
En vous remerciant
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7" '-->> on les connaît, ces addresses
Application.EnableEvents = False '---->> pour éviter de relancer alors qu'on modifie
Target.Value = UCase(Target.Text) ' j'utilise la propriété text
Application.EnableEvents = True ' --->> on remet les choses en place
End Select
End Sub
Comment modifier ce code pour que en même temps J14 se mette en minuscule
Le but étant que quelque soit le type de saisie effectuée les cellules se mettent comme il faut :
A4, G25, K7 toujours en majuscule
J14 toujours en minuscule
En vous remerciant
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7" '-->> on les connaît, ces addresses
Application.EnableEvents = False '---->> pour éviter de relancer alors qu'on modifie
Target.Value = UCase(Target.Text) ' j'utilise la propriété text
Application.EnableEvents = True ' --->> on remet les choses en place
End Select
End Sub
Dernière édition: