pb textbox

[jb]

Bonjour,

Voilà, j'ai un pb. Depuis un USF, je saisie des données dans un textbox. Je voudrai ne pas me soucier de savoir si je suis en majuscules ou pas et que le résultat soit la première lettre en majuscule et le reste en minuscule. Quelqu'un pourrait-il m'aider ?
Bon allez, j'en profite pour poser un peu le même style de question mais cette fois pour un autre textbox où je veux que les valeurs soient automatiquement en majuscules lors de la saisie dans celui-ci => quelqu'un peut-il m'aider aussi pour ce point ?

En tout cas, je vous remercie quand même et vous souhaite une très bonne soirée.

JB.

 

[wape]

Bonjour,

--> Cas no 1 (1ère lettre en majuscule) :

Private Sub TextBox1_Change()

If Len(TextBox1.Text) = 1 Then
TextBox1.Text = UCase(TextBox1.Text)
End If

End Sub


--> Cas no 2 (tout en majuscule) :

Private Sub TextBox2_Change()

TextBox2.Text = UCase(TextBox2.Text)

End Sub


Slts

wape

 

[wape]

Oups, désolé...

--> Cas no 1 (1ère lettre en majuscule) :

Private Sub TextBox1_Change()

If Len(TextBox1.Text) = 1 Then
TextBox1.Text = UCase(TextBox1.Text)
Else
TextBox1.Text = Mid$(TextBox1.Text, 1, 1) & LCase(Mid$(TextBox1.Text, 2))
End If

End Sub


Slts

wape