Une seule majuscule dans un textbox

Bonjour tous le monde:salut:

Afin que mes données soit lisibles et exploitables par la suite, je voudrais forcer la majuscule QUE sur la première lettre du TexBox. Car sur l'exemple du tutoriel ci dessous :

Code:

---

1 2 3

Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger) keyAscii = Asc(UCase(Chr(keyAscii))) End Sub

---

TOUTES les lettres sont forcées à être en majuscule.

Cordialement

Code:

---

1 2 3

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Trim(TextBox1) <> "" Then TextBox1.Text = UCase(Left(TextBox1, 1)) & LCase(Right(TextBox1, Len(TextBox1) - 1)) End Sub

---

Merci du conseil, tu es le :king:

:resolu:

ce que l'on peut également exprimer ainsi :

Code:

---

1 2 3 4 5 6

Private Sub Command1_Click() toto = Text1.Text If toto = "" Then Exit Sub Mid(toto, 1, 1) = UCase(Left(toto, 1)) Text1.Text = toto End Sub

---

Sauf que si tout toto a été saisi en majuscules, tu ne changes rien ;)

Faudrait mettre

Code:

---

1 2 3 4 5 6

Private Sub Command1_Click() toto = lcase(Text1.Text) If toto = "" Then Exit Sub Mid(toto, 1, 1) = UCase(Left(toto, 1)) Text1.Text = toto End Sub

---

:langue:

Citation:

---

je voudrais forcer la majuscule QUE sur la première lettre du TexBox.

---

Pfft' ! tu sais pas interpréter :mouarf:

Tu crois ?

Regarde cette saisie et dis-moi ce que tu en fais ...

Text1.Text = "mme Hillarry Clinton est mal barrée"

Ne fais pas de cauchemars à cause de moi, hein ...:mouarf:

Edit : et si c'est pour saisie des patronymes, gaffe ( Mc Cain)

et si c'est pour saisir des prénoms : Plus que gaffe gaffe (Jean-Pierre)

Ce que j'en dis, c'est qu'il existe un forum dédié pour parler politique ! :mouarf: