Comment passer d'une textbox a une autre textbox en appuyant sur tab

Comment passer d'une textbox a une autre textbox en appuyant sur tab - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 21-02-2005 à 19:06:32   

Reply

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 '.

Reply

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

Reply

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.

Reply

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 .

Reply

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


Message édité par EscartePhil le 22-06-2005 à 15:13:50
Reply

Marsh Posté le 22-06-2005 à 12:30:49    

Si CmbtAjoutPalier est un bouton alors le SetFocus est superficiel.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed