Mettre en majuscule

Résolu/Fermé

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - Modifié le 8 oct. 2018 à 13:09
ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 - 9 oct. 2018 à 14:19

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

A voir également:

Mettre en majuscule
Mettre un texte en majuscule - Guide
É majuscule - Guide
Code ascii de a majuscule - Guide
Majuscule - Guide
E accent aigu (é) majuscule ✓ - Forum Windows

3 réponses

Réponse 1 / 3

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
8 oct. 2018 à 13:19

Trouvé ici
https://forums.commentcamarche.net/forum/affich-35616128-saisie-majuscules-minuscules-automatique

Réponse 2 / 3

ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 2 429
Modifié le 8 oct. 2018 à 14:29

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

Réponse 3 / 3

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
9 oct. 2018 à 09:59

Bonjour ccm81
Super ça marche au poil
Merci de tout cœur

ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 2 429
9 oct. 2018 à 14:19

De rien

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

Bon après midi

Discussions similaires

tout en majuscules (excel)

Une majuscule dans une adresse mail la modifie-t-elle ?

mettre en majuscule automatiquement une saisie excel

Convertir minuscule en majuscule sous excel

Excel - Transformer minuscule en majuscule