Discussion :

[revemane]

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 :

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

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

[laetitia]

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 :

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

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

[revemane]

merci pour ton info

peux tu me mettre un exemple avec les frames

svp

merci

[laetitia]

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


ton code

Code :

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

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

ect...