cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 14 janv. 2009 à 00:17
Salut
Chre moi (Word 2003), ça marche très bien.
Vérifie aussi que le TabStop est bien à True sur chaque objet sur lequel tu veux t'arrêter
Si oui, vérifie si tu n'as pas du code qui contredirait l'ordre de sortie dans ton TextBox_Exit :
Si, dans cette Sub, Cancel est passé à True, tu ne sortiras pas de l'objet malgré le Tab (ou même la souris, méfiance)
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
zedisky
Messages postés3Date d'inscriptionjeudi 19 octobre 2000StatutMembreDernière intervention14 janvier 2009 14 janv. 2009 à 09:38
J'ai oublié de préciser que ces TextBox sont placées directement dans le document et non dans un UserForm.
Du coup, elles perdent certaines de leur propriétés (TabStop et TabIndex notamment) et méthodes (SetFocus pour ne citer que lui).
Comme j'étais pressé, je me suis rabattu sur la gestion de l'évènement KeyDown, et ai généré le code pour les 70 contrôles de mon document... Lourdingue, mais au moins ça fonctionne...
exemple :
Private Sub txtP4Z3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode 9 And Shift 1 Then txtP4Z2.Select If KeyCode 9 And Shift 0 Then txtP4Z4.Select
End Sub
Si quelqu'un a une solution plus propre, je suis preneur.