Comment forcer la saisie en majuscule

[frichti]

Bonjour à tous.
Comment faire pour que, dans la cellule active, le texte saisi soit toujours en majuscule.
Merci de vos réponses

 

[BOISGONTIER]

Re : Comment forcer la saisie en majuscule

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 1 And Target.Count = 1 Then
     Target = Ucase(Target)
  End If
  Application.EnableEvents = True
End Sub

JB
Formation Excel VBA JB

 

[TheLio]

Re : Comment forcer la saisie en majuscule

Hello le fil le forum Mr Boisgontier,
Une Solution pas top pour les idéalistes, mais efficace si c'est un fichier destiné à d'autres personnes susceptibles de ne pas activer les macros... Ca arrive.
Une police disponible en MAJUSCULES par défaut CASTELLAR ou alors un multitude de polices téléchargeables avec g........gle (ton ami)
A++
TheLio

 

[Pyrof]

Re : Comment forcer la saisie en majuscule

Bonjour,

La solution de la police ne sera pas toujours efficace, si le fichier doit être utilisé sur plusieurs PC. Il faudra dans ce cas vérifier que les polices soient présentes sur ces PC.

La solution de BOISGONTIER est de loin la meilleure

 

[frichti]

Re : Comment forcer la saisie en majuscule

Merci tout d'abord pour le lien vers ton site ... je viens de le survoler mais je crois que je vais y revenir et passer beaucoup de temps.
J'ai essayé sur la pièce jointe et c'est tout à fait ce que je cherche.
Mais lorsque je l'applique dans ma feuille de calcul j'ai un retour:
"Erreur de compilation - Nom ambigue détecté : Worksheet_Change"
Il faut dire que j'ai déjà un autre "Private Sub ......" identique ça vient peut-être de là.
Je suis à ton écoute ... cordialement.

 

[BOISGONTIER]

Re : Comment forcer la saisie en majuscule

Dans une feuille, il ne faut qu'un seul :

Private Sub Worksheet_Change(ByVal Target As Range)

JB

 

[frichti]

Re : Comment forcer la saisie en majuscule

Merci ... cette fois j'ai tout compris ... j'ai redctifié et ça fonctionne.
Cordialement