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
ccm81 Messages postés 10908 Date d'inscription Statut Membre Dernière intervention - 9 oct. 2018 à 14:19
A voir également:
- Mettre en majuscule
- Mettre en majuscule - Guide
- É majuscule - Guide
- Majuscule - Guide
- Code ascii de a majuscule - Guide
- Forum Bureautique
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