Mettre en majuscule

Résolu
jean300 Messages postés 382 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
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

  2.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
  3. jean300 Messages postés 382 Statut Membre 14
     
    Bonjour ccm81
    Super ça marche au poil
    Merci de tout cœur
    0
    1. ccm81 Messages postés 11033 Statut Membre 2 434
       
      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

Discussions similaires

Comment écrire à, é, è, ç ê en majuscule ... ?
Peggynus -
jeanbern -

7 réponses
tout en majuscules (excel)
txiki -
Avatar -

35 réponses
Touches majuscule et minuscule inversées sur mon clavier
popoloko -
person -

27 réponses
Excel - Transformer minuscule en majuscule
Robocopp -
christophe -

16 réponses
mettre en majuscule automatiquement une saisie excel
afarni -
cs_Le Pivert -

8 réponses