Comment forcer la première lettre en majuscule dans TextBox...

Jacques87

XLDnaute Accro

• 10 Décembre 2006

• #2

Re : Comment forcer la première lettre en majuscule dans TextBox...

Bonjour Christian,

Dans le code trouvé, change la lgne :

TextBNom.Value = Application.WorksheetFunction.Proper(TextBNom.Value)

Cliquez pour agrandir...

en :

Left(TextBNom.Value,1) = Application.WorksheetFunction.Proper(TextBNom.Value)

Cliquez pour agrandir...

à essayer

ou tout simplement :

ini = Left(TextBNOm, 1)
TextBNom= UCase(ini) & Right(TextBNOm, Len(TextBNOm) - 1)

 

Dernière édition: 10 Décembre 2006

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 10 Décembre 2006

• #3

Re : Comment forcer la première lettre en majuscule dans TextBox...

Re Bonjour Jacques,

Merci pout ton aide.

Left(TextBNom.Value,1) = Application.WorksheetFunction.Proper(TextBNom.Value)
me donne un message d'erreur ?

à+
Christian

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 10 Décembre 2006

• #4

Re : Comment forcer la première lettre en majuscule dans TextBox...

Re,

Attention à l'espace entre Valu et e
le message d'erreur serait-il du à cela ?

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 10 Décembre 2006

• #5

Re : Comment forcer la première lettre en majuscule dans TextBox...

RE
Jacques,

Non, je l'ai supprimé.
(Beau petit village...)

a+

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 10 Décembre 2006

• #6

Re : Comment forcer la première lettre en majuscule dans TextBox...

Re,

As tu essayé l'autre méthode :

ini = Left(TextBNOm, 1)
TextBNom= UCase(ini) & Right(TextBNOm, Len(TextBNOm) - 1)

Cliquez pour agrandir...

Merci pour ta visite, éventuellement fais part de ta remarque sur le livred'or, ce serait gentil

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 10 Décembre 2006

• #7

Re : Comment forcer la première lettre en majuscule dans TextBox...

Bonjour christian0258, jascques87

essaye : if asc(left$(textbox.value,1))>90 then mid$(textbox.value,1,1)=chr$(asc(left$(textbox.value,1))-33)

une idee comme cela mais je ne suis pas sur

bon dimanche

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 10 Décembre 2006

• #8

Re : Comment forcer la première lettre en majuscule dans TextBox...

bonjour à tous,

tout simplement comme ceci:

Private Sub TextBox2_Change()
TextBox2.Text = Application.Proper(TextBox2.Text)
End Sub


bonne journée

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 10 Décembre 2006

• #9

Re : Comment forcer la première lettre en majuscule dans TextBox...

Bonjour Christian0258, Jacques87, wilfried_42, la croisée des pains, le Forum,

De façon un peu similaire à la solution de Jacques87, avec une légère simplification...

Code:

[SIZE=2][COLOR=NAVY]Dim[/COLOR] T [COLOR=NAVY]As String[/COLOR]
    T = TextBNom.Value
    TextBNom.Value = UCase(Left(T, 1)) & Mid(T, 2)[/SIZE]

Cordialement,

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Décembre 2006

• #10

Re : Comment forcer la première lettre en majuscule dans TextBox...

Bonjour le forum, Jacques,Wilfried, La croisée des pains, Didier,

Merci à vous quatre, c'est super ça marche...
Bien amicalement,
Christian.
PS : Jacques, je signe ton livre d'or ce soir.

 

Vote positif 0 Vote négatif