ordre de tabulation

[JORDAN]

Bonsoir tout le monde, le Forum,

J'ai un USF avec beaucoup de TextBox, ComboBox ,CommandButton, ...

J'aimerai savoir s'il est possible de boucler l'ordre de tabulation
sur 1 TextBox et 1 ComboBox sans devoir faire le tour de tous les contrôles

Merci à vous

 

[youky(BJ)]

Re : ordre de tabulation

Bonjour JORDAN,
Utilises en 1er les propriétés TabIndex qui commencent à 0
ensuite utilise l'événement Exit des controles
voici un exemple

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.SetFocus
End Sub

 

[JORDAN]

Re : ordre de tabulation

Bonsoir Youki

Je viens de tester tes solutions, enfin presque, la 2ème surtout

la 2ème de me va pas parceque j'ai des codes de type KeyPess et les 2
sont en conflits

pour ta 1ère solution, comment tu utilises les TabIndex ??
j'ai bien vu leurs valeurs, j'ai 0 pour le TextBox1 et 1 pour le ComboxBox1
mais comment boucler sur ces 2 valeurs ??

Merci pour ton aide

 

[youky(BJ)]

Re : ordre de tabulation

Re,
Ne retouche pas les propriétés TabIndex 0 pour textbox et 1 pour combobox
Utilise la sortie du combobox , le keypress n'as rien à voir avec Exit et ne doit pas interférer avec la sortie de celui-ci à moins que tu gères deja la touche Tab
De mémoire pour la touche Enter c'est If KeyCode =13 then TextBox1.SetFocus
sinon
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
textbox1.SetFocus
End Sub

 

[JORDAN]

Re : ordre de tabulation

Bonjour tout le monde

Je viens de faire des nouveaux essais et il y a bien un conflit entre
KeyPress et ton code

Je joints un fichier démo pour plus d'infos

Merci et bonne journée

 

[JNP]

Re : ordre de tabulation

Bonjour Jordan, Youky(BJ) 🙂,
Pourquoi vouloir à tout prix boucler sur les 2 contrôles, quand la Tab va de TextBox1 à ComboBox1, et Maj + Tab va de ComboBox1 à TextBox1 ?
Ce serait peut-être plus simple... Mais ça n'engage que moi.
Bonne journée 😎

 

[JORDAN]

Re : ordre de tabulation

Bonjour JNP,

Dans mon fichier complet, j ai beaucoup de contrôles, c'est pour cela que je souhaitais rester sur ces 2 uniquement, si on appui plusieurs fois sur Tab on ne sera plus trop ou est le Focus, entre les Labels, textBox, ComboBox, ..., il doit y en avoir 1 centaine,
pas tous visibles en même temps mais au minimum il y en a 1 trentaine de visible

 

[youky(BJ)]

Re : ordre de tabulation

Bonjour Jordan et JNP,
'UserForm1.ListView1.SetFocus
ne sert à rien et provoque l'erreur
à moins que je pige pas le truc

Sub TstLw()
Dim X As Integer

'UserForm1.ListView1.SetFocus
UserForm1.ListView1.FullRowSelect = False

 

[JORDAN]

Re : ordre de tabulation

Bonjour Youki,

Oui effectivement, c est bien le UserForm1.ListView1.SetFocus qui créé le poblème
et c'est bien vrai qu'il n'est pas utile
Donc ça fontionne très bien
Merci pour votre aide et bonne journée