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

[Christian0258]

Bonjour à tout le forum,

Quelle ligne de commande faut-il écrire pour forcer l'écriture de la première lettre dans une TextBox

J'ai trouvé sur le forum :

Private Sub TextBNom_AfterUpdate()
TextBNom.Value = Application.WorksheetFunction.Proper(TextBNom.Value)
End Sub

le problème, avec cette cde, c'est que tout les mots prennent une majuscule.
expl avec ce code ; Quel Beau Forum
ce que je souhaite ; Quel beau forum

Merci à vous
Bien amicalement,
Christian.

 

[Jacques87]

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)

en :

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

à essayer

ou tout simplement :

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

 

[Christian0258]

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

 

[Jacques87]

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 ?

 

[Christian0258]

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

RE
Jacques,

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

a+

 

[Jacques87]

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)

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

 

[wilfried_42]

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

 

[la croisée des pains]

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

 

[myDearFriend!]

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...

[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,

 

[Christian0258]

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.