Option bouton multiple

Citation:

---

Envoyé par laetitia

re, comme dit plus haut si plusieurs frames dans ton user precise la quelle frame tu testes!!!!


ton code

Code:

---

1 2 3

For i = 1 To 10 If Frame1.Controls("OptionButton" & (i)) = True Then z = z + 1 Next i

---

ect...

---

Bonjour,

Je me permets de reprendre des informations de cette discussion car j'ai le même soucis. Le code fonctionne, mais en cas de plusieurs Frame, comment faire? Ca fonctionne pour une, mais j'en ai une 20aine, avec 4 optionbutton dans chaque...

Code:

---

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

Private Sub Suivant1_Click() Dim i As Byte, z As Byte For i = 1 To 4 If Frame2.Controls("OptionButton" & (i)) = True Then z = z + 1 Next i If z = 0 Then Frame2.BorderColor = RGB(255, 0, 0) MsgBox "il manque des réponses "   Else   'suite code pour valider l'ensemble des questions et passage à l'userform suivant'     End If     End Sub

---

Bonsoir Thibaud123

Comme chaque OptionButton est indépendant des autres,
il suffit de supprimer l'objet frame dans le code

Code:

---

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

Sub Suivant1_Click() Dim i As Byte, z As Byte For i = 1 To 4 If Controls("OptionButton" & (i)) = True Then z = z + 1 Next i If z = 0 Then 'BorderColor = RGB(255, 0, 0) MsgBox "il manque des réponses " Else 'suite code pour valider l'ensemble des questions et passage à l'userform suivant' End If End Sub

---

A+;)