Mettre en majuscule
Résolu
Bonjour,
Je n'arrive pas à faire passer mes cellules en majuscule, je sollicite votre aide amicale
En vous remerciant
Excel 2003
Je n'arrive pas à faire passer mes cellules en majuscule, je sollicite votre aide amicale
En vous remerciant
Excel 2003
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie
Select Case Target.Address(0, 0)
Case "A4", "A50", "A96", "A142", "K99"
Target.Value = UCase(Target.Text) 'j'utilise la propriété text
End Select
Application.EnableEvents = True
3 réponses
-
-
Bonjour
Essaies ceciPrivate Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie Select Case Target.Address Case "$A$4", "$A$50", "$A$96", "$A$142", "$K9$9": Target.Value = UCase(Target.Text) 'j'utilise la propriété text End Select Application.EnableEvents = True End Sub
Cdlmnt -
Bonjour ccm81
Super ça marche au poil
Merci de tout cœur
