majuscules et minuscules

[agnes]

est-il possible à la sortie d'un textbox (nommé Prénom) que, quelle que soit la saisie éffectuée,
il corrige en mettant la premiere lettre (du prénom) en majuscules et les autres en minuscules?

TBoxpreNom.Value = UCase(TBoxpreNom.Value)
met tout en majuscule
c'est déjà un début... mais je n'ai pas la suite!

 

[JC de Lorient]

salut

essaye d'adapter cette fonction :

Sheets('Info').Range('A' & b) = Application.Proper(a)

içi a est le résultat d'un input box

JC

 

[Manu13]

Bonjour jc de lorient et agnés

a la place de ucase du met application.proper
ce qui donne
TBoxpreNom.Value = application.proper(TBoxpreNom.Value)

voilà
bonne nuit à tous

Manu

 

[Robert]

Bonsoir Agnes, JC de Lorient, bonsoir le forum,

je te propose ceci:

TBoxpreNom.Value = UCase(Left(TBoxpreNom.Value, 1)) & LCase(Mid(TBoxpreNom.Value, 2))

Édition :
Bonsoir Manu on s'est croisés.
Agnès oublie ma proposition, celle de Manu et de JC est bien meilleure.
JC, désolé mais j'avais pas compris ce que tu voulais dire au début...

Message édité par: Robert, à: 01/03/2006 23:08

 

[PAD]

Bonjour Agnes, JC de Lorient,Robert, le forum,

C'est pas de moi, mais suite à un message sur le même sujet et je le troue bien pratique.

Bonne journée à tous,

A+ PAD

 

[PAD]

Re Re ... Tous
Je suis têtu! B)

Bon j'ai bien regardé le tuto donc... [file name=MajMin.zip size=9042]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MajMin.zip[/file]

 

[agnes]

merci à tous

la solution de manu me semble

la plus simple et la meilleure

je ne m'en prive donc pas

merci à tous qd meme