Comment passer d'une textbox a une autre textbox en appuyant sur tab - VB/VBA/VBS - Programmation
Marsh Posté le 21-02-2005 à 19:32:22
Cela le fait automatiquement.
Il faut simplement définir l'ordre de passage via la propriété ' TabIndex '.
Marsh Posté le 21-02-2005 à 23:52:47
[citation=988994,0,2,201343]Cela le fait automatiquement.
Il faut simplement définir l'ordre de passage via la propriété ' TabIndex '.[/citation]
Pas toujours :
les contrôles posés sur une feuille Excel n'exposent ni TabStop ni TabIndex et dans ce cas, il faut se palucher toute la gestion du déplacement.
Je parle de ça car c'est son préfixe "feuil1" qui m'y fait penser
Marsh Posté le 21-02-2005 à 23:55:12
[citation=988963,0,1,234368]En fait g utilise:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
if keyascii.Value=13 then feuil1.TextBox4.????
End Sub
et je sais pas koi mettre[/citation]
si c'est dans une feuille Excel, c'est .Activate pour donner le focus à un contrôle...
si c'est dans un formulaire VB, alots en effet, il y a TabStop et TabIndex qui gère en auto le déplacement avec TAB.
Marsh Posté le 22-02-2005 à 00:36:34
Merci a tous mais en fait g trouver la solution ct tout simplement paske Keypress ne fonctionne ke pour les touches imprimables donc ni pour entree ni pour tab et je suis donc passer par un keydown ki me permet de faire ce changement
Merci a tous .
Marsh Posté le 22-06-2005 à 09:50:17
Salut !
la solution au problème initial été très proche de ce qu'avait trouvé yokaichan.
Dans mon cas, le code est le suivant:
Private Sub TxbxNomsPaliers_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode.Value = 13 Then
UsFmCréerModGéné.FrObjectifs.CmbtAjoutPalier.SetFocus
End If
End Sub
=13 pour la touche Entrée
=9 pour la touche TAB
Marsh Posté le 22-06-2005 à 12:30:49
Si CmbtAjoutPalier est un bouton alors le SetFocus est superficiel.
Marsh Posté le 21-02-2005 à 19:06:32
En fait g utilise:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
if keyascii.Value=13 then feuil1.TextBox4.????
End Sub
et je sais pas koi mettre