Remplissage obligatoire de Optionbutton

[Ilino]

Bonsoir Forum
Comment faire pour obliger l’utilisateur d’un USF de cocher au choix ( Optionbutton) ?
J’ai pu faire avec les combobox( exemple ci-dessous ) mais avec les ( Optionbutton) ?????
merci

Private Sub valider_Click()
  If Me.Nom = "" Then
      MsgBox "Veuillez sélectionner un Nom!"
      Me.Nom.SetFocus
      Exit Sub
   End If
End Sub

GRAZIE

 

[mapomme]

Re : Remplissage obligatoire de Optionbutton

Bonjour Ilino,

Classiquement, les boutons d'options sont mis dans un cadre (Frame). Une seule option peut être choisie mais il est possible de n'en avoir aucune cochée. Une piste pour vérifier qu'une option est cochée.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim x As Object, UneOptionAuMoins As Boolean

UneOptionAuMoins = False
For Each x In Frame1.Controls
  UneOptionAuMoins = UneOptionAuMoins Or x.Value
Next x

If Not UneOptionAuMoins Then
  MsgBox "aucune des 3 options n'est cochée !"
  Cancel = True
End If

End Sub

 

[Ilino]

Re : Remplissage obligatoire de Optionbutton

Grazie mapomme pour la réponse
Franchement 😱je n’arrive pas a l’adapter a mon soucis ci joint
merci par avance

 

[mapomme]

Re : Remplissage obligatoire de Optionbutton

(re)

Est-ce que les options A, B doivent être réunies avec les options C, D ,E ou s'agit-il de deux groupes différents d'options ?

 

[Ilino]

Re : Remplissage obligatoire de Optionbutton

Re
oui c'est deux groupes séparés
A+
NB: dans chaque groupe si je sélectionne pas un j’aurais un msg

 

[mapomme]

Re : Remplissage obligatoire de Optionbutton

(re)

Voir fichier joint (pour l'exemple, j'ai empêché la fermeture de la fenêtre par un clique sur la croix). Après, c'est à vous de voir en fonction de ce que vous voulez faire au sein de votre code.

 

[Ilino]

Re : Remplissage obligatoire de Optionbutton

Re merci d'avoir pencher a mon souci
peut tu m'expliqué le role de la variable UneOptionAuMoins ???

 

[mapomme]

Re : Remplissage obligatoire de Optionbutton

(re)

Voir explications dans le fichier joint.

 

[Ilino]

Re : Remplissage obligatoire de Optionbutton

Re
grazie pour ces explications
Bon debut de semaine