MsgBox pout plusieur Bouton d'option

Bonjour,

alors voilà je vais essayer de vous expliquer mon petit problème le plus simplement possible.

J'ai un cadre qui comporte à l'intérieur 3 boutons d'options. (leurs nom "prev", "exp" et "inf")

Je souhaite afficher un MsgBox si aucun d'entre eux n'a été sélectionnés (le message "Entrer une cause de dépose") avec un vkcritical.

Pour les zone de texte vide j'utilise:

If Me.ZONETEXTE.Value = "" Then
  MsgBox "Entrer une donne dans la zone texte.", vbCritical, "Champs manquant"
  Exit Sub
  End If

Mais là je sèche un peu, je vous remercie d'avance

Bonjour et bienvenue sur le forum

Private Sub CommandButton1_Click()
    If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False Then
        MsgBox "Entrer une cause de dépose", 16
    End If
End Sub

Bye !


Et si tu veux que la fenêtre reste affichée jusqu'à ce que l'utilisateur ait fait un choix :

Private Sub CommandButton1_Click()
    If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False Then
        MsgBox "Entrer une cause de dépose", 16
        Exit Sub
    End If
End Sub

Merci beaucoup pour cette réponse ! clair et précise !

Rechercher des sujets similaires à "msgbox pout bouton option"