Discussion :

[NEC14]

Bonjour à tous,

Dans un TextBox, est saisie une donnée sous cette forme X000000.
Je souhaiterai qu'après TxtChange, le X soit en majuscule si il a été saisi en minuscule.

Pouvez-vous m'aider s'il vous plait ? Je vous en remercie par avance.
René

[gFZT82]

Bonjour,

Code :

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

If Len(TextBox1.Value) = 1 Then TextBox1.Value = Application.Proper(TextBox1.Value)

Cordialement.

[Invité]

Code :

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

1
2
Text = "mON TEXTE"
Text = UCase(Left(Text, 1)) & LCase(Right(Text, Len(Text) - 1)) '=Mon texte

[Invité]

Bonjour

Un autre exemple :

Code :

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

1
2
3
Private Sub TextBox1_Change()
    Me.TextBox1.Text = StrConv(Me.TextBox1.Text, vbProperCase)
End Sub

Philippe

[NEC14]

Bonjour à tous et merci pour votre participation. J'ai pris la proposition de Philippe.