Controls et TabIndex

[teddy]

Bonjour,

Voici le scénarion du jour:

Le décor : un userform, plusieurs boutons
L'action : agir sur les boutons x avec .Controls(x) dans une boucle

Le casse-tête : au cours de modifications, j'ai rajouté d'autres boutons et modifié la propriété TabIndex pour qu'ils se "suivent"

MAIS comment faire pour que .Controls(x) évolue de la même façon sans recréer un userform de A à Z ?

Exemple : objet valeur valeur
TabIndex .Controls(x)
"bouton 1" 1 1
"bouton 2" 2 2
"bouton 3" 3 4 <== le
"bouton 4" 4 3 <== problème

Merci de m'éclairer s'il y a solution.
Teddy

 

[Thierry]

Salut Teddy,

Désolé de ne pas pouvoir t'aider, je suis dans le même genre de situation que toi. En fait, je n'arrive pas à utiliser le code suivant:

For i = 1 To 18
If EditSynthese3..Controls(i).Value = True Then
EditSynthese3.Label8.Caption = EditSynthese3.Controls(i).Caption
End If
Next i

J'ai exactement 18 OptionButton que j'ai copié collé à partir du premier sur un même userform. Je ne comprend pas pourquoi est-ce qu'il ne les reconnait pas.

Peut-être qqn pourra-t-il m'aider.

Merci d'avance

Thierry

 

[teddy]

Salut thierry,

Pour "mon" problème, je n'ai pas évolué si ce n'est qu'il faut le "construire" dans l'état définitif pour que les ID internes ne bougent pas à la différence de TabIndex qui lui sert à faire "circuler" le focus.

Pour toi, envois un exemple de code car ce que tu écrit semble correct.

@+
Teddy