Optionbutton multiple

bonsoir le forum

je rencontre un petit soucis lorsque je demande de faire une verification de saisie sur plus de deux option button

voici mon code pour 2 optionbutton dans une frame

Code:

---

1 2 3 4

if Controls("OptionButton1")= false and Controls("OptionButton2")=false then MsgBox " vous devez sélectionner une option" exit sub end if

---

mais je ne sais pas comment faire quand il y a par exemple 3 ou 4 optionbutton dans ma frame

merci pour votre aide

bonjour revemane le forum une premiere approche !!
dans exemple 10 OptionButtons
ne connaissant pas ton code en entier dans certains cas on est oblige de preciser dans quelle frame se trouve les controles (frame1.Controls)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub valider_Click() Dim i As Byte, z As Byte For i = 1 To 10 If Controls("OptionButton" & (i)) = True Then z = z + 1 Next i If z = 0 Then MsgBox "attention pas de selection" Else 'ton code End If End Sub

---

merci pour ton info

peux tu me mettre un exemple avec les frames

svp

merci

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