Mettre en majuscule
Résolu
jean300
Messages postés
374
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Mettre en majuscule
- Mettre en majuscule - Guide
- É majuscule - Guide
- Majuscule - Guide
- Code ascii de a majuscule - Guide
- Mettre en majuscule excel sans formule - Forum Excel
3 réponses
Bonjour
Essaies ceci
Cdlmnt
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
