Discussion :

[Shadow5]

Bonjour tous le monde

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Shadow5]

Merci du conseil, tu es le

[ucfoutu]

ce que l'on peut également exprimer ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

Faudrait mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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

[ouskel'n'or]

Pfft' ! tu sais pas interpréter