autotab textbox using loops anf if

Question

hello i wanted to autotab my userform in a specific bunch of textbox. i do know the code for t it beetween 2 textbox but what if  we have many textbox and we dont want to start necessarily from the first one like we want to start for example from the 5th textbox. Guess we have to use loops and if but how please i need help

the code beetween two textbox goes like this under:
Private Sub TextBox1_Change()
2
           'whenever there are 6 characters registered in the TextBox
3
           If TextBox1.TextLength = 6 Then
4
            'select (SetFocus) the next TextBox
5
           TextBox2.SetFocus
6
End If
 thank u all!

Zoul67 · Answer

Bonjour,

ç'aurait été sympa que tu poses ta question en français.
Il semble que tu cherches à passer, dans un UserForm, d'un TextBox au suivant une fois qu'il y a 6 caractères dans le premier.

Je propose :
Private Sub TextBox1_Change()
    Call Verif("TextBox1", "TextBox2")
End Sub

Private Sub Verif(ori As String, dest As String)
    If Controls(ori).TextLength = 6 Then Controls(dest).SetFocus
End Sub

avec Verif, que tu peux appeler depuis chaque  TextBoxN_Change()

A+

Autotab textbox using loops anf if

1 réponse

Votre réponse

Discussions similaires

Newsletters