Forcer la première lettre d'un textbox à être

[maval]

Bonjour,

Je suis à la recherche d'un code pour avoir la première lettre d'une pharse en majuscule dans un textbox sur un userform.
Le code ci-dessous me met tous les mots en majuscule.

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

se qui me donne ex:"Tu Veux Ou Tu Veux Pas" alors que moi je recherche un code pour arriver à ceci "Tu veux ou tu veux pas" si possible?

Je vous remercie d'avance

 

[gilbert_RGI]

Re : Forcer la première lettre d'un textbox à être

bonjour,

comme ceci

Private Sub TextBox1_LostFocus()
    Dim st As String
    st = TextBox1.Value
    Mid(st, 1, 1) = UCase(Mid(st, 1, 1))
    TextBox1.Value = st
End Sub

ou

Private Sub TextBox1_Change()
 Dim st As String
   st = TextBox1.Value
   TextBox1.Value = UCase(Mid(st, 1, 1)) & Mid$(st, 2, Len(st))
   TextBox1.SelStart = Len(st)
End Sub

😎

 

[MJ13]

Re : Forcer la première lettre d'un textbox à être

Bonjour Max, Gilbert

Après, pour être sûr que, quelque soit le texte entré, tu peux adapter ce code que j'ai testé sur une feuille.

Sub a()
ActiveCell.Offset(0, 1) = UCase(Left(ActiveCell, 1)) & Mid(LCase(ActiveCell), 2, (Len(ActiveCell) - 1))
End Sub

 

[maval]

Re : Forcer la première lettre d'un textbox à être

Bonjour Michel, Gilbert

Merci Nickel je vous remercie et vous souhaite une bonne journée

 

[Pierrot93]

Re : Forcer la première lettre d'un textbox à être

Bonjour à tous,

une autre approche :

Private Sub TextBox1_KeyPress(ByVal k As MSForms.ReturnInteger)
If Len(TextBox1) = 0 And k > 96 And k < 123 Then k = k - 32
End Sub

bon après midi
@+

 

[maval]

Re : Forcer la première lettre d'un textbox à être

Re Pierrot

Je te remercie je te souhaite une bonne journée