TEXTBOX majuscule et minuscule

[fRANCK]

Bonsoir a tous

mon probleme est que je voudrai dans un textbox que la saisie (d'un prenom) soit formatée avec une Majuscule

j'ai essayé avec Ucase et Lcase
et aussi avec
textbox1.text = Format(textbox1.text , '>')
mais je formate toujour toute ma saisie

ma meilleur approche est celle ci
If Len(textbox1.Text) = 1 Then
textbox1.Text = UCase(Left(textbox1.Text, 1))
End If
Ca marche en saisie direct mais pas dans le cas d'un copier coller

Merci de votre aide
Franck

 

[myDearFriend!]

Bonsoir fRANCK,

Tu peux essayer simplement :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      TextBox1.Text = Application.Proper(TextBox1.Text)
End Sub

Ou même, si tu veux visualiser ce formatage au moment même de la saisie :

Private Sub TextBox1_Change()
      TextBox1.Text = Application.Proper(TextBox1.Text)
End Sub

Cordialement,

 

[Franck]

Bonsoir myDearFriend!


Réponse rapide et efficace comme toujours !
Et bien sur ça marche
Merci pour ton aide


aplus Franck