Gestion du tabindex dans un userform

Bonjour à tous,

Je suis en train de travailler sur un userform de saisie qui est exclusivement constitué de boutons, labels, combobox et textbox
qui sont créés dynamiquement en fonction de la feuille concernée.

Tant que le traitement doit fonctionner sans contraintes, il n'y a pas de souci, avec un module de classe tout va bien.

J'ai par contre une feuille où la saisie serait plus correcte si certains contrôles pourraient ne pas être utilisés
selon l'ordre des rubriques de la feuille.
Par exemple je voudrais saisir les contrôles dans l'ordre 1 5 8 2 3 4 6 7 9
car le 5 est un combo dont dépend le combo 8 suivant qui lui va permettre de contrôler les textbox suivantes qui précédent sur la feuille.

Pour cela j'ai essayé d'utiliser le tabindex en le mettant à zéro, dans l'ordre inverse de l'utilisation souhaitée,
c'est-à-dire en partant de 9 pour arriver à 1,
mais le résultat n'est pas conforme à ce que j'espérai : l'ordre récupéré n'est pas toujours le même.

Si quelqu'un a une idée pour faire fonctionner le principe de façon correcte et fiable, je l'en remercie par avance.

Bonjour à toi,

Tu est parti sur le bon principe, il te faut en effet jouer avec les TabIndex de chaque contrôles pour les mettre dans l'ordre que tu désire.
Après le TabIndex ne sert qu'à définir l'ordre lors de l'appui sur la touche Tab.

Si tu souhaite réellement bloquer un contrôle tant que tu n'est pas passé dans celui d'avant qui en dépends tu peut le désactiver avec Enable = False

Peut tu poster le code de ta macro qui gère cette partie la qu'on en voit un peu plus ?

Bonjour,

Merci de ta réponse encourageante et voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For Each obj In Me.Controls If Not Left(obj.Name, 2) = "WT" Then obj.TabIndex = 0 Next obj For col = UBound(tbr, 2) To 1 Step -1 For ctl = UBound(tbr, 2) To 1 Step -1 If prc(col) = tbr(1, ctl) Then Me.Controls("WT_" & ctl).TabIndex = 0 Exit For End If Next ctl If ctl < 1 Then MsgBox "Erreur : " & prc(col) Next col

---

Comme cela ne fonctionnait pas j'ai commencé par traiter les contrôles non combo/textbox
pour ensuite positionner en tête les contrôles de saisie mais certains tabindex générés sont au-delà du nombre de mes combo/textbox.

prc est la table de mes rubriques dans l'ordre où je les veux
tbr est la table des rubriques dans l'ordre des contrôles.

Il y a peut-être une faille que je ne vois pas, pourtant c'est presque bon.

Dans un premier temps il faut établir l’ordre des contrôles quelques part pour chaque feuille.

Genre dans une feuille caché tu fais un petit tableau :
Nom de feuille Ordre contrôles
Feuille1 Txt1;Cmb2;Ctrlxxx
Feuille2 Cmb2;Ctrlxxxxx;Txt1

Ensuite à l'ouverture de ton USF tu va chercher par rapport au nom de la feuille concerné l'odre des contrôles appliquer.
Tu Split sur ; et tu parcours le résultat et tu applique le TabIndex dans l'ordre en partant de 0 puis tu défini le focus sur le contrôle que à le TabIndex à 0 :)

Citation:

---

Envoyé par cerede2000

Dans un premier temps il faut établir l’ordre des contrôles quelques part pour chaque feuille.

---

C'est bien ce que j'ai dans mes deux tables mémoire tbr et prc

Citation:

---

tu applique le TabIndex dans l'ordre en partant de 1 puis tu défini le focus sur le contrôle que à le TabIndex à 1 :)

---

en recréant le tabindex de cette façon, cela ne fonctionne pas car si je met le tabindex 3 au contrôle 8 par exemple, cela perturbe tous les autres et l'on obtiens un peu n'importe quoi car excel ne gère pas de trou dans sa table. C'est pour cela que j'étais parti sur ma solution en ordre inverse.

Je vais modifier mon algorithme pour faire selon ta proposition et je te donne le résultat.

Il faut absolument tous les renseigner en partant de 0 vers le plus haut.

Car si l’ordre n'est pas respecté et cohérent ils se retrouvent numéroté aléatoirement ;)

D'ou la liste dans l’ordre souhaité avec incrément de 0 à Nombre de contrôle avec le TabIndex défini par cet incrément :)

Bonsoir,

Citation:

---

Envoyé par cerede2000

Il faut absolument tous les renseigner en partant de 0 vers le plus haut.

---

Je sais bien que c'est le fonctionnement obligatoire mais si tu veux mettre 0 dans le contrôle 1, il y a déjà un contrôle à zéro
et cela perturbe le fonctionnement. Voilà ce que j'obtiens :

Code:

---

1 2 3 4

tabulations affectées 0 - 2 - 7 - 1 - 3 - 4 - 5 - 6 - 8 - 9 - 10 - 11 - 12 - 14 - 13 - 15 - 16 - 17 - 18 - 19 - 20 - 21 tabulations effectives 0 - 3 - 1 - 4 - 5 - 6 - 7 - 2 - 8 - 21 - 9 - 10 - 11 - 13 - 12 - 14 - 15 - 16 - 17 - 18 - 19 - 46

---

J'ai bien affecté les contrôles dans l'ordre souhaité :
contrôle 1 => tabindex 0
contrôle 3 => tabindex 1
contrôle 8 => tabindex 2
contrôle 2 => tabindex 3 etc

Dès le second c'est faux :mouarf:

Bonjour

je pense pas qu'il faille se prendre la tete a remettre les tabindex a leur places
puisque tu construit dynamiquement et donc utilise une classe
a la construction met dans tag du ctrl le nom ou ce que tu veux du ctrl suivant

et dans l'évènement associé dans ta classe tu agi en fonction du tag
alors oui prépare tes deux array et fait avec pendant la construction
et pour palier a la touche Tab ou autre tu a les évènement onkeypress qui se gèrent aussi dans la classe de la même manière que dans le userform

Ben j'ai fais un test rapide avec 10 TextBox je n'ai pas le souci.
J'ai rajouté le fait de rajouter 10 a chaque TabIndex au cas ou....

Je te le joint.
Pièce jointe 204710

Edit : Hey patricktoulon ! Non justement il ne construit pas dynamiquement son USF.
Ses contrôles sont déjà présent, il change juste l'ordre de tabulation ;)

Edit 2 : je confirme ce bout la n'est pas nécessaire :

Code:

---

1 2 3

For Each ctrl In Me.Controls ctrl.TabIndex = ctrl.TabIndex + 10 Next

---

Tu peux le virer.

salut cefede2000 dans ce cas la c'est mal pensé des le départ
surtout que si je ne me trompe pas si il part de zero ca va buguer car peut etre surement d'ailleurs!!!!! ce tab index est utilisé
je sais pas si on pourrait partir d'un index du genre me control.count*2.1
et descendre vers le dernier

si vba l'accepte ca peut passer
mais je le redis c'st mal pensé

Je ne vois pas pourquoi.

Il est tout à fais prévu de pouvoir changer le TabIndex de cette manière.
Le premier contrôle devant être mis à 0 puis 1, 2, 3.....

Mon exemple fonctionne très bien :)

je l'ai fait dans un fichier vierge et effectivement
on peut changer les tabindexs sans prendre en considérations les index déjà en places

je suis étonné on pouvait pas avant ca c'est sur car quand j'ai débuté je me prenait la tète avec ca et je me souviens que ca n'était pas possible a moins de partir d'index plus haut et inexistants
bon ben voila
un array dans l'ordre choisi et une boucle sur cet array en mettant la variable d'incrémentation comme tabindex et ca suffit
ca fonctionne chez moi

Exactement ce que j'ai dans mon exemple.... :)

Je n'ai jamais eu de soucis avec les TabIndex et j'en ai géré !
Ce qu'il m'est arrivé de faire en effet c'est augmenter tous les TabIndex du nombre de controls pour pas avoir de doublons puis les renumérotés.

Mais depuis un moment ils sont gérés sans soucis juste en les réindexants :)

Pas si mal pensé que ça finalement.... :mouarf:

re
c'est une méprise sur ce que j'ai dis
c'est pas ta proposition qui est mal pensé mais le fait d'être obligé de faire ca surtout avec des controls existant
et toi meme tu viens de le dire tu index plus haut pour les doublons hors maintenant c'est plus la peine visiblement c'était ma dernière remarque dans mon précédant post

Je suis parti de la demande initiale qui est de pouvoir gérer l'ordre de tabulation :)

Il semble que ça suffise à répondre au besoin sans partir dans une fabrique d'USF avec gestion de contrôles dynamique :mrgreen:
Tiens ça me rappel quelques chose :roll:

Ce n'est pas en soit trop déconnant, je pense qu'il faudrait tout de même rajouter une petite couche d'activation/désactivation des contrôles pour les rendre interdépendants.

Bonsoir à vous deux,

Citation:

---

Envoyé par patricktoulon

dans l'évènement associé dans ta classe tu agi en fonction du tag
alors oui prépare tes deux array et fait avec pendant la construction
et pour palier a la touche Tab ou autre tu a les évènement onkeypress qui se gèrent aussi dans la classe de la même manière que dans le userform

---

Effectivement j'utilise les classes get et lost focus mais si l'on veux revenir sur un contrôle précédent cela pose des problème car il faut alors ne pas forcer le suivant.
C'est pour cela que le tabindex me paraissait plus adapté.

Citation:

---

Envoyé par cerede2000

Edit : Hey patricktoulon ! Non justement il ne construit pas dynamiquement son USF.
Ses contrôles sont déjà présent, il change juste l'ordre de tabulation

---

Et si !

Citation:

---

Envoyé par anasecu

userform de saisie qui est exclusivement constitué de boutons, labels, combobox et textbox qui sont créés dynamiquement en fonction de la feuille concernée

---

Par contre je suis sidéré ! mais bon il doit y avoir un truc que je ne vois pas

Sur ton classeur, j'ai créé un second formulaire dynamique avec labels, textbox et combo et cela fonctionne nickel !!!

Je pensais que cela pouvait venir de ma syntaxe

Code:

---

Me.Controls("WT_" & ctl).TabIndex = idx

---

mais en prenant la tienne mon classeur ne veux pas m'obéir !

Citation:

---

Envoyé par patricktoulon

je suis étonné on pouvait pas avant ca c'est sur car quand j'ai débuté je me prenait la tète avec ca et je me souviens que ca n'était pas possible a moins de partir d'index plus haut et inexistants
bon ben voila

---

Tilt ! j'avais mis mon classeur en xls car un utilisateur est en 2003 et Patrick me donne la raison !

eh bien pas du tout le classeur de test avec formulaire dynamique fonctionne parfaitement en xls sous 2003.
le voilà Pièce jointe 204740
Par contre le mien continue de me mélanger les tabindex avec le même code.

Il y a sans doute un truc à trouver ... après une bonne nuit

Bonne nuit à vous et merci pour la confirmation que la procédure devrait fonctionner !

Tu construit les controles de ton USF en dynamique ???

Alors pourquoi ne pas mettre dans le bon ordre a la création :mouarf: ?

Bonjour,

Citation:

---

Envoyé par cerede2000

Alors pourquoi ne pas mettre dans le bon ordre a la création :mouarf: ?

---

Bien sûr, c'est une idée sauf que le monde ne se crée jamais de zéro.

Le formulaire que je construit est un peu plus complexe qu'un test bidon.
Les contrôles n'ont pas tous la même taille en fonction des données à saisir.
Les combobox contiennent des données d'autres feuilles qui alimentent certaines rubriques
et c'est entre autre la raison de mon idée d'utiliser tabindex.

Comme tu m'as prouvé que cela fonctionne, il n'y a pas de raison que je n'arrives pas à trouver la faille dans mon classeur.
Il n'est pas toujours profitable de contourner l'obstacle car l'on progresse plus en découvrant la raison.

Merci en tout cas pour ton exemple qui me rassure.

re
et oui c'est un peu l'erreur des débutant une chose après l'autre mais dans le cas qui te concerne c'est pas la chose a faire visiblement

tu dis que tu construit tes contrôles dynamiquement
alors tu dois faire un truc du genre

add control textboxs puis add control textboxbox2 puis add listbox puis list box .list patin couffin etc.....

alors que ta construction dynamique doit se faire dans l'ordre de tabulation puis seulement!!!!!! après remplir tes combo ,list textbox label etc

et comme ca tu n'aura pas de soucis d'ordre de tabindex

construit d'abords tes controls dans l'ordre que tu souhaite et ensuite tu leur donne les instructions

si tu a des labels devant chaque controls fait d'abords tout ceux la ensuite fait tes contrôles dont tu te sert, ils seront dans l'ordre tu verra
c'est pas grand chose a changer dans ton classeur

bonjour,
le TabIndex permet d'identifier l'ordre de tabulation. comme le suggère Patrick,il te sufis de modifier l'ordre de création de contrôles pour modifier l'ordre de tabulation.

mais visiblement ton problème est de passer certaine tabulation, pour cela il existe TabStop qui vas te faire passer les contrôles à éviter dans la tabulation!

Code:

---

Me.TextBox1.TabStop = False

---

note que ça n'interdit pas l'utilisateur de clicker sur un contrôle et d'en effectuer la saisie!

si tu veux que l'utilisateur ne puisse saisir certaines données sens en avoir saisie d'autre avant,dan ce cas, il faut en interdire dynamiquement l'accès!

Code:

---

Me.TextBox1.Enabled = False

---

Bonjour à vous,

Citation:

---

Envoyé par patricktoulon

si tu a des labels devant chaque controls fait d'abords tout ceux la ensuite fait tes contrôles dont tu te sert, ils seront dans l'ordre tu verra
c'est pas grand chose a changer dans ton classeur

---

Merci Patrick de ton conseil et c'est effectivement ainsi que je procédait, donc pas grand chose à changer effectivement.
Le problème pourtant venait de là car en faisant d'abord les labels c'est ce qui crée le souci des tabindex :aie:

Citation:

---

Envoyé par cerede2000

J'ai rajouté le fait de rajouter 10 a chaque TabIndex au cas ou....

---

Voilà l'idée "au cas où" qui était bonne : merci cerede2000 !

J'ai commencé par rajouter aux tabindex des labels le nombre des autres contrôles
puis j'ai affecté le tabindex souhaité aux contrôles de saisie et cela fonctionne nickel.

Merci beaucoup à vous pour vos idées et conseils lumineux. :)

sinon puisque c'est géré dans la classe
ajoute l'evenement keydown

change nombouton pour celui que tu utilise dans ta classe

ca fait un peu pansement mais bon !!

exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub nombouton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then Select Case nombouton.Name Case "TextBox1" TextBox4.SetFocus Case "TextBox2" TextBox15.SetFocus 'etc.... End Select End If End Sub

---

Bonsoir patricktoulon,

Merci de continuer à proposer des solutions mais maintenant mes tabindex sont conformes à ce que j'attendais.
Je suis un peu surpris par ton idée car je viens de suivre ta contribution remarquable à la "classe sans classe" de haut niveau. ;)

Ce que je n'avais pas précisé même si j'avais mentionné les contrôles dynamiques,
c'est qu'en fait mon formulaire gère la saisie pour de nombreux onglets en fonction
des paramètres gérés par un autre formulaire qui défini les rubriques à saisir, leur format,
les contrôles à effectuer, les combo ou textbox à afficher, la localisation des données des combo, etc

Dans ce cas, tous les noms de contrôles sont banalisés et seulement identifiés par un N°.
La seule chose que je voulais modifier c'est de permettre la modification de l'ordre des tabulations
et maintenant cela fonctionne correctement : merci pour vos contributions.