Passer au textbox suivant si nombre de caractères max atteint

Papou-net à dit:

RECTIFICATIF

Oups, avec KeyDown il faut gérer les touches spéciales (Suppr, flèches, etc...). Voici donc une version modifiée de ton code initial:

Private Sub SS1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(SS1) = SS1.MaxLength Then SS2.SetFocus
End Sub

Private Sub SS2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(SS2) = SS2.MaxLength Then SS3.SetFocus
End Sub

Cordialement.

Cliquez pour agrandir...

Si... à dit:

Bon_jour

Un autre exemple avec un Module de Classe et des longueurs variables (que léti , spécialiste aussi de ce type de module, peut s'amuser à modifier bien que la programmation ici soit classique et assez simple).

Cliquez pour agrandir...

Papou-net à dit:

Bonjour à tou(te)s,
Bonjour Chris,

Au lieu de KeyPress, utilises l'événement KeyDown:

Private Sub SS1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(SS1) = SS1.MaxLength Then
SS2 = keyccode
SS2.SetFocus
End If
End Sub

Private Sub SS2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(SS2) = SS2.MaxLength Then
SS3 = keyccode
SS3.SetFocus
End If
End Sub

Cordialement.

PS: maintenant, si tu as un grand nombre de TextBox, la solution par modules de classe proposée par Nicole est de loin préférable mais elle demande une certaine maîtrise de VBA.

Cliquez pour agrandir...