Discussion :

[Nagel Tha]

Bonjour,

En listant les contrôles de mon Userform de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i As Integer
For i = 0 To ActiveControl.Controls.Count - 1
    Debug.Print i, ActiveControl.Controls(i).Name
Next i

Je me suis rendu compte que l'ordre était totalement aléatoire en apparence. Il me semble que l'ordre (l'indice) des contrôles est en fait leur ordre de création. Cependant, cela ne me convient pas et j'aimerais donc pouvoir modifier ces indices mais je ne parviens pas à trouver comment faire

Pour des raisons de lisibilité, mes contrôles sont nommés ainsi, chaque chekbox étant en face de sa textbox :

• CheckBoxNom
• TextBoxNom
• CheckBoxPrénom
• TextBoxPrénom
• ...

Je voudrais que le premier indice soit celui de CheckBoxNom, le deuxième celui de TextBoxNom etc.

Mon but est de créer une fonction générique qui active le champ à renseigner par clic sur la checkbox quelque soit son type (j'arrive à le faire en utilisant .Replace et TypeName() entre checkbox et textbox et je pourrais utiliser un Select Case sur l'ordre de création des contrôles mais ça fait un peu bricolage)

Du coup j'en fais appel à vos conseils. Si j'ai raté de la doc je suis preneur aussi

[pijaku]

Salut,
Dans ton cas, l'ordre de tabulation n'est pas forcément utile. Tu pourrais le régler en mode création (clic droit dans le frame ou le multipage ou l'userform).
Ce qui serait intéressant c'est d'utiliser les événements Click() de tes CheckBox pour attribuer le focus au TectBox correspondant.

[Nagel Tha]

Oui effectivement mais je voudrais que mon instruction soit d'envoyer le focus sur le contrôle adjacent sans que j'en connaisse nécessairement le nom (autrement je peux d'ores et déjà le faire). Concernant l'instruction .SetFocus, j'ai pu constater que selon l'environnement que voient les contrôles et des évènement activés, il peut ne pas se faire.

Pour ta remarque sur le mode création : dans la fenêtre VBE, je ne sais pas à quoi il sert : je n'en ai pas eu besoin pour créer mes boutons et autres contrôles et pour régler leurs propriétés (dont le TabIndex que j'ai réglé de sorte que dans une même Frame, les TabIndex de la CheckBox et du contrôle adjacent se suivent afin de pouvoir naviguer facilement lors de la saisie)

[Nagel Tha]

D'après ce que j'ai pu constater dans mes recherches, la modification des indices des contrôles (qui correspondent bien à la chronologie de leur création) n'est pas possible.

J'ai néanmoins trouvé une alternative : parcourir les contrôles avec une boucle For Each (d'autres types de boucle sont également possibles bien entendu) et faire un test d'égalité entre indice de la boucle et la propriété .TabIndex du contrôle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Activate()
Dim ctrli, ctrlj As Control
Dim intCurrentTabIndexi, intCurrentTabIndexj As Integer
 
intCurrentTabIndexi = 0
For Each ctrli In Me.Controls
intCurrentTabIndexj = intCurrentTabIndexi
    For Each ctrlj In Controls
        If ctrlj.TabIndex = intCurrentTabIndexi Then Debug.Print intCurrentTabIndexi, ctrlj.Name, ctrlj.TabIndex
    Next ctrlj
intCurrentTabIndexi = intCurrentTabIndexi + 1
Next ctrli
End Sub

Notes : si vous n'avez pas modifié les les valeurs des .TabIndex, elles sont égales aux indices de leurs contrôles et donc une seule boucle suffit et les deux boucles imbriquées donnent les mêmes résultats cependant dès que les .TabIndex sont modifiés, une boucle seule n'affiche plus rien ! Deux boucles sont donc nécessaires et ce d'autant plus que si on parcourt en faisant des tests sur les .TabIndex c'est justement qu'on les a modifiés...

[eriiic]

Bonjour,

j'avais lu trop vite. Je relis plus tranquillement ;-)
eric

[Qwazerty]

Salut

Tu pourrais peut-être regardé du coté des module de classe pour te faire ton propre composant constituer d'un chkBox et d'un TxtBox et gérer les histoire de focus directement "en interne"

++
Qwaz