Obliger l'utilisateur de cocher une "OptionButton"

[apdf1]

Bonjour a tous

Dans un USF comment obliger l'utilisateur de cocher une "OptionButton" pour valider le formulaire.

Je vous en remercie d'avance

Cordialement

Max

 

[DL_13]

Re : Obliger l'utilisateur de cocher une "OptionButton"

Bonjour,

je te propose ces quelques lignes de codes

Option Explicit

Private Sub CommandButton1_Click()
Dim Cpt As Byte, i As Byte
For i = 1 To 3 ' A Adapter
    Cpt = Cpt - (Controls("OptionButton" & i).Value = False)
Next i
If Cpt = 3 Then
    Me.Hide
    MsgBox ("Veuillez cocher 1 proposition ")
    UserForm1.Show 0
    Exit Sub
End If
Unload Me
MsgBox "OK"
End Sub

Bonne Journée

 

[Pierrot93]

Re : Obliger l'utilisateur de cocher une "OptionButton"

Bonjour,

contôler que "optionbutton.value" soit bien à "true"... sans plus de détail, difficile d'en dire plus..

bonne journée
@+

 

[apdf1]

Re : Obliger l'utilisateur de cocher une "OptionButton"

Bonjour DL_13, Pierrot

Je vous remercie beaucoup et vous souhaite une bonne journée

Max