Contrôle Userform en variable

bonjour à tous,

Dans un Userform, j'ai plusieurs groupes d'option (avec boutons radio) dont je récupère l'état avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Btn_Validez_Click()   '>> QUESTION 1 à 9 Dim Ctrl As Control   For Each Ctrl In Me.Reponse1.Controls If Ctrl.Value = True Then Worksheets("Feuil1").Range("B2") = Ctrl.Object.Caption Next Ctrl   For Each Ctrl In Me.Reponse2.Controls If Ctrl.Value = True Then Worksheets("Feuil1").Range("B3") = Ctrl.Object.Caption Next Ctrl       Etc......

---

J'ai tenté de passer par une boucle (pour simplifier le code) pour mettre le nom du groupe d'option [Reponse] en variable tel que je l'ai réalisé ici et qui fonctionne :

Code:

---

1 2 3

For i = 1 To 11 Me.Controls("Question" & i) = Worksheets("Feuil1").Range("C" & i + 1).Value Next i

---

Et... :cry: impossible. A chaque fois, j'ai une erreur m'annonçant que ça ne fait pas partie des propriété de l'objet !!!

Où est l'astuce ? :calim2:

Curt

Bonsoir,
je ne comprends pas ces 2 contradictions :
1 -

Citation:

---

...pour mettre le nom du groupe d'option [Reponse]...

---

avec le code :

Code:

---

...Me.Controls("Question" & i)..

---

2-

Citation:

---

je l'ai réalisé ici et qui fonctionne :

---

et

Citation:

---

...impossible. A chaque fois, j'ai une erreur m'annonçant que ...

---

et je dirais même que je comprend pas la question
si le deuxieme code et là pour simplifier le premier, pourquoi

Code:

---

Me.Reponse1

---

se transforme-t-il en

Code:

---

1 2	Me.Controls("Question" & i)

---

Bonjour,

le premier code

Code:

---

1 2 3

For Each Ctrl In Me.Reponse1.Controls If Ctrl.Value = True Then Worksheets("Feuil1").Range("B2") = Ctrl.Object.Caption Next Ctrl

---

ne fonctionne pas.... si je tente de remplacer Reponse1 par ("Reponse" & i) (bien évidemment, j'intègre celà dans une boucle). Est-ce à cause de l'utilisation de Crtl.value ou du groupe d'option ?

Par contre, l'utilisation du second code

Code:

---

1 2 3

For i = 1 To 11 Me.Controls("Question" & i) = Worksheets("Feuil1").Range("C" & i + 1).Value Next i

---

qui est là pour renseigner des cellules avec le mot Question1, Question2, etc fonctionne

Donc la question est : Pourquoi ce qui fonctionne pour des cellule ne fonctionne pas pour un groupe d'option ? :cry:

Bonne journée.
Curt

Bonjour,

Si j'ai bien compris, tu veux utiliser le nom des farmes en incrémentant l'indice ?
Peut être de la manière suivante ?

Code:

---

1 2	For Each Ctrl In Me.Controls("Reponse" & I).Controls

---

il te faut faire une boucle supérieure pour boucler sur tes frames.

Hervé.

Bonjour,
Sans me préoccuper du pourquoi et du comment, pour boucler sur tes optionButton de 1 à 13 selon une variable i :

Code:

---

1 2 3 4 5 6 7

Dim BoutonDoption As MSForms.OptionButton   'blablabla For i = 1 To 13 Set BoutonDoption = Me.Controls("Question" & i) 'blablabla Next i

---

EDIT : exemple à tester :

Code:

---

1 2 3 4 5 6 7

Dim BoutonDoption As MSForms.OptionButton Dim Num As Integer For Num = 1 To 13 Set BoutonDoption = Me.Controls("Question" & Num) BoutonDoption.Caption = "toto" & Num Next Num Set BoutonDoption = Nothing

---

Bonjour,

voir ce sujet :

I-B. Boucler sur les contrôles contenus dans la Forme

et l'ensemble du tutoriel...

cordialement,

Didier

Bonjour à tous et merci pour les réponses,

mais ... à question mal posée, problème mal compris et donc réponse hors sujet.... je m'explique :

J'ai un Userform qui contient 9 Cadre option contenant chacun 4 boutons. Pour relever la valeur de chaque Cadre, j'ai utilisé :

Code:

---

1 2 3 4 5

'>> QUESTION 1   For Each Ctrl In Me.Reponse1.Controls If Ctrl.Value = True Then Worksheets("Feuil1").Range("B1") = Ctrl.Object.Caption Next Ctrl

---

Le même bout de code est répété 9 fois... pas top !

En fait, un peu de repos et 2 cafés plus tard, il fallait écrire :

Code:

---

1 2 3 4 5 6 7 8 9

'>> QUESTION 1 à 9 Dim Ctrl As Control Dim Reponse As Control   For i = 1 To 9 For Each Ctrl In Controls("Reponse" & i).Controls If Ctrl.Value = True Then Worksheets("Feuil1").Range("B" & i + 1) = Ctrl.Object.Caption Next Ctrl Next i

---

Désolé pour la mauvaise formulation du problème, mais en voulant faire vite.... on fait trop vite ! :mrgreen:

Je retiens le tuto de Ormonth :coucou: qui me sera sans doute très utile.

Bon week-end à tous.
Curt