Bonjour,
 
J’ai une feuille Excel avec une centaine de TextBox.  
 
Je voudrais pouvoir passer le l’une à l’autre avec la touche Tab. Pour l’instant j’ai codé pour passer de la 1 à la 2 :
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyTab Then
        TextBox2.Activate
    End If
End Sub
 
Ca marche, mais je suis obligé de dupliquer 99 fois le code pour les 99 autres TextBox !
 
Y a-t-il un moyen de coder le truc une fois pour toute pour l’ensemble de la feuille, pour passer de N à N+1 ?
 
Par avance merci pour votre réponse.

Salut, Une remarque : Cela ne peut pas marcher, TextBox2.SetFocus sans doute mais surement pas TextBox2.Activate
sans savoir ce que tu fais de tes textboxes , un exemple via un module de classe et la propriété Tag des Textboxes , à toi de l'adapter à ton contexte http://cjoint.com/?kAucvn6ZMQ

OK merci beaucoup pour ces infos !

Bonjour,

il est un peu tard, mais en mode création, lorsque tu fais un clic droit sur ta textbox, tu as un paramètre "TabKeyBehavior" qui lorsqu'il est à true, accepte le changement de textbox par pression de la tabulation.

Cordialement.

>> Moonschild :
Salut, extrait de l'aide en ligne
TabKeyBehavior, propriété
Détermine si les tabulations sont autorisées dans la zone d'édition.
 
True :  Une pression sur la touche TAB insère un caractère de tabulation dans la zone d'édition.Autrement dit dans la TextBox sélectionnée.
False :  Une pression sur la touche TAB déplace le focus vers l'objet suivant dans l'ordre des tabulations (par défaut).

Tout à fait, au temps pour moi, je testais en mode création...
Tapage de honte \o/