Boutons d'option

[bernardrustrel]

Bonjour

je cherche le moyen de nommer un groupe de boutons d'option afin de pouvoir testerpar la suite si au moins l'un d'eux est activé.
Merci à vous
Cordialement Bernard

 

[gilbert_RGI]

Re : Boutons d'option

Bonjour

click droit et propriétés

 

[bernardrustrel]

Re : Boutons d'option

Bonjour
merci pour cette réponse, mais dans la précipitation je me suis mal exprimé. En fait j'ai un groupe de boutons situés dans un Frame d'un formulaire et avant de valider la saisie je voudrais pouvoir tester si au moins un des boutons est activé.
Merci à vous
cordialment
bernard

 

[MJ13]

Re : Boutons d'option

Bonjour à tous

L'enregistreur de macros te propose quoi?

Sinon avec un fichier, ce sera plus simple 🙂.

 

[Modeste geedee]

Re : Boutons d'option

Bonsour®

Bonjour
merci pour cette réponse, mais dans la précipitation je me suis mal exprimé. En fait j'ai un groupe de boutons situés dans un Frame d'un formulaire et avant de valider la saisie je voudrais pouvoir tester si au moins un des boutons est activé.
Merci à vous
cordialment
bernard

dans le principe les boutons d'option (bouton radio) lorsqu'ils sont regroupés dans un frame s'excluent les uns les autres c-a-d qu'il y en a qu'un et toujours un seul, actif à la fois...

tester par la suite si au moins l'un d'eux est activé.

cela sous-entend la présence d'un option bouton correspondant au choix "aucun"
c'est ce bouton qui à l'initialisation devra être activé par défaut

 

[Robert]

Re : Boutons d'option

Bonjour le fil, bonjour le forum,

Comme tu n'as pas daigné mettre un fichier en pièce jointe tu devras adapté le code ci-dessous :

Private Sub CommandButton1_Click()
Dim ctrl As Control 'déclare la variable ctrl (ConTRôLe)
Dim nb As Byte 'déclare la variable nb (NomBre)

For Each ctrl In Me.Controls 'boucle sur tous les contrôle de l'UserForm
    If TypeOf ctrl Is MSForms.OptionButton Then 'condition : si le contrôle est un bouton d'option
        If ctrl.Value = True Then nb = nb + 1 'si le contrôle est activé, incrémente la variable nb
    End If 'fin de la condition
Next ctrl 'prochaine contrôle de la boucle
If nb = 0 Then 'condition 1 : si nb vaut zéro
    MsgBox "Aucun bouton d'option n'a été activé !" 'message (tu remplaceras par ton code)
Else 'sinon (condition 1)
    'si tu n'as qu'un seul "GroupName" le "Esle" n'est pas néessaire
    If nb = 1 Then 'condition 2 : si nb vaut 1
        MsgBox "1 bouton a été activé !" 'message
    Else 'sinon (condition 2)
        'si tu as plusieurs "GroupName"
        MsgBox nb & " boutons ont été activés !" 'message
    End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub

 

[bernardrustrel]

Re : Boutons d'option

Merci à Robert
J'ai pu adapter le code à mon besoin.
J'avoue que je ne savais pas comment aborder ce sujet, d'où l'absence de code.
Merci encore cordialement.
Bernard