Mettre automatiquement en majuscule

[Sylvie]

Salut tous,
est-ce possible suivant un format ou autre chose, de faire pour que lorsque l'on tape un texte dans des cellules, il se mette automatiquement en majuscule (au cas ou la personne qui utiliserait le programme écrirait en minuscule) Pour des raisons de "maniacrie" qui me sont propres, je voudrais que tout soit dans le même format (en majuscule, je veux dire).
Merci à vous si vous me trouver une solution qui me permettrait de dormir tranquille, sans penser qu'il y en a un ou l'autre qui écrit des trucs en minuscule dans mes feuilles. Brr, rien que d'y penser, ça me fou des boutons ;0)> (mon petit bonhomme tire la langue, juste au cas où vous ne l'auriez pas compris) Hooo, ça va, on s'amuse comme on peut! Soyez pas rabajoie!
A +.
Sylvie.

 

[Arnaud]

lut,
en espérant que le lien marche, jl'ai pas tester
http://www.excel-downloads.com/html/French/forum/messages/1_73503_73503.htm

 

[Sylvie]

Merci Arnaud, mais il y a un truc que je ne pige pas. Il parle de quoi quand il dit "Ucase" et "Lcase"?

 

[@+Thierry]

Salut Sylvie, Arnaud, le Forum

Ucase = UpperCase Renvoie une valeur de type Variant (String) contenant la chaîne indiquée, convertie en majuscules.

LCase = LowerCase Renvoie une valeur de type String convertie en minuscules.

Pour appliquer ceci à une feuille précise au moment de la saisie :

Code à mettre dans le Private Module de la Feuille en Question
Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub

Pour appliquer ceci à toutes les feuilles du classeur au moment de la saisie :

Code à mettre dans le Private Module de "ThisWorkBook"
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target = UCase(Target)
End Sub

Si tu ne souhaite pas appliquer ce changement en MAJ pour toutes les cellules je te conseille de lire ce fil que j'ai rédigé ce soir :

Lien supprimé

Car (of course) "Intersect" peut s'appliquer aussi à l'évènement "Change"

Voilà, j'espère que ce sera clair pour toi.
Bonne Nuit
@+Thierry

 

[Sylvie]

Merci Thierry, décidément t'es partout là où on a besoin de toi.
Je vais essayer ça tout de suite.
A +.
Et merci.
Sylvie.

 

[Sylvie]

Merci Thierry, et Arnaud aussi.
Ca marche super!
A+ et encore un tout grand merci.
Sylvie.