Maximum de 4 caracteres dans textbox

[matrix]

Bonjour,

Je voudrais savoir comment faire afin qu'apres au 4e caractères dans le textbox1, que le curseur passe au textbox 2 tous seul.

Merci pour votre aide.

 

[skoobi]

Re : Maximum de 4 caracteres dans textbox

Bonsoir matrix,

comme ceci?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1.Value) = 4 Then
  KeyAscii = 0
  TextBox2.SetFocus
End If
End Sub

Bonne fin de soirée.

 

[Hulk]

Re : Maximum de 4 caracteres dans textbox

Hello,

Comme ceci

Private Sub TextBox1_Change()
If Len(TextBox1.Value) > 3 Then TextBox2.SetFocus
End Sub

Cdt, Hulk.

Edit : Pardon Skooby.

 

[job75]

Re : Maximum de 4 caracteres dans textbox

Bonsoir matrix, skoobi,

Une solution voisine :

Private Sub TextBox1_Change()
If Len(TextBox1) > 3 Then
TextBox1 = Left(TextBox1, 4)
TextBox2.SetFocus
End If
End Sub

Edit : salut Hulk, oui je complique sans doute inutilement, mais si on entre un texte par copier-coller dans TextBox1 ?

Bonne nuit.

 

[matrix]

Re : Maximum de 4 caracteres dans textbox

Oh merci, plusieurs facon de faire.


Merci beaucoup.

 

[Hulk]

Re : Maximum de 4 caracteres dans textbox

Hello,

Eh oui Job j'ai pas pensé à ce paramètre, tu as raison.

Bonne journée !

Cdt, Hulk.