Mettre en majuscule

Résolu
jean300 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10908 Date d'inscription   Statut Membre Dernière intervention   - 9 oct. 2018 à 14:19
Bonjour,
Je n'arrive pas à faire er 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



A voir également:

3 réponses

jean300 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   14
 
0
ccm81 Messages postés 10908 Date d'inscription   Statut Membre Dernière intervention   2 432
 
Bonjour

Essaies ceci
Private 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
0
jean300 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   14
 
Bonjour ccm81
Super ça marche au poil
Merci de tout cœur
0
ccm81 Messages postés 10908 Date d'inscription   Statut Membre Dernière intervention   2 432
 
De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

Bon après midi
0