Discussion :

[curt]

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 :

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

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 :

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

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

Et... 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 ?

Curt

[casefayere]

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

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

avec le code :

Code :

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

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

2-

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

et

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

[alsimbad]

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

Code :

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

Me.Reponse1

se transforme-t-il en

Code :

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

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

[curt]

Bonjour,

le premier code

Code :

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

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 :

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

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 ?

Bonne journée.
Curt

[Theze]

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 :

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

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é.

[pijaku]

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

Code :

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

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 :

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

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