Problème de majuscule

Signaler
Messages postés
8
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
14 février 2006
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
bonjour, je souhaiterais connaitre la formule me permettant d'entrer une référence du style "a11" et qu'elle s'inscrive "A11" sur la cellule d'excel spécifier. je sais que la formule de base c'est UCase mais sa marche pas!! Sachant en plus que la référence est différente a chaque fois!! merci de vos réponses!!

5 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Bonjour,

Utilise m'événement Change de ta feuille.
Target renvoie la cellule en cours, tu n'as plus qu'a mettre son contenu en majuscule

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub

Kenji

<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Messages postés
8
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
14 février 2006

Sa marche toujours pas!!
disons que j'ai essayer de faire ceci aussi :

Dim min, maj
min = textref
maj = UCase(min)

Pour t'expliquer , j'ai pris la formule de l'aide pour les majuscule.
"min" et "maj" sont les variables. et "texref" correspond à la boite ou je rentre ma référence que je voudrait mettre en majuscule.

Si sa peut t'aider. mais marce quand même ta réponse.
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonsoir,

textref, c'est un TextBox, tu es sur un UserForm ou sur la feuille ??



jpleroisse
Messages postés
8
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
14 février 2006

enfaite je rentre ma référence dans un userform!
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Re,

D'accord, mais textref est sùrement un TextBox.

Alors essaye ceci.



Private Sub textref_Change()

textref.Text = UCase(textref.Text)

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.