optionbutton

[kinkalero]

Re....

Voila g trois optionbuttons et g souhaite faire une MsgBox que quand je valide mon userform, g dois avoir au un seul optionbutton sur les 3 de validé. Pour le Moment j'ai ceci:

For i = 1 To 3
If Controls("Opt" & i).Value = False Then
MsgBox ("Vous devez précisez un degré d'urgence pour votre demande")
Exit Sub
End If
Next i

Mais si j'en coche un sa m'affiche tjr le message je pense que j'ai écrit: "si et seulement si les 3 sont validés alors c'est Ok"

Merci de me corriger

Kinkalero

 

[Hervé]

Re : optionbutton

bonjour

peut etre comme ceci :

Dim i As Byte
Dim cpt As Byte

For i = 1 To 3
    cpt = cpt - (Controls("Opt" & i).Value = False)
Next i

If cpt = 3 Then
MsgBox ("Vous devez précisez un degré d'urgence pour votre demande")
Exit Sub
End If

salut

 

[kinkalero]

Re : optionbutton

Merci beaucoup Hervé
Toujours là quand il faut!!^^