XL 2016 Comment gérer des CheckBoxes à l'alternat ?

[Dudu2]

Bonjour,

J'ai du bricoler un flag et une séquence complexe pour pouvoir, dans un UserForm, gérer 2 ou plus de checkboxes dont l'une exclut les autres en 1 seul clic.
N'y a-t-il pas plus simple. Je n'y arrive pas ! Même en désactivant les évènements, la valorisation d'une CheckBox provoque son évènement Click().

Private Sub CheckBox1_Click()
    'MsgBox "Enter CheckBox1_Click - NotRealClick = " & NotRealClick
    Call OffCheckBox(Me.CheckBox2, Me.CheckBox3)
End Sub

Private Sub CheckBox2_Click()
    'MsgBox "Enter CheckBox2_Click - NotRealClick = " & NotRealClick
    Call OffCheckBox(Me.CheckBox1, Me.CheckBox3)
End Sub

Private Sub CheckBox3_Click()
    'MsgBox "Enter CheckBox3_Click - NotRealClick = " & NotRealClick
    Call OffCheckBox(Me.CheckBox1, Me.CheckBox2)
End Sub

'-----------------------------------------
'Décoche les CheckBoxes passée en argument
'-----------------------------------------
Private Sub OffCheckBox(ParamArray TabChB() As Variant)
    Static NotRealClick As Boolean
    Dim ChB As Variant
   
    If NotRealClick = False Then
        NotRealClick = True
        For Each ChB In TabChB
            If ChB.Value Then ChB.Value = False
        Next ChB
        NotRealClick = False
    End If
End Sub

 

[fanfan38]

Bonjour
Il ne faut pas utiliser des checkbox mais des OptionButton
A+ François

 

[Dudu2]

Merci @fanfan38, c'est effectivement plus simple avec le OptionButtons.
Je suppose que les CheckBoxes sont faites pour être indépendantes et s'appliquer à des choix multiples.
Je conserve quand même le code d'effacement des CheckBoxes au cas où...

 

[Dudu2]

Bonjour,
Je reviens sur le sujet, juste pour information, car j'ai eu à gérer 2 groupes indépendants d'options.
J'ai essayé avec les boutons d'options et, malgré des tutos (Ctrl + clic gauche etc...) pour créer 2 groupes indépendants dans un UserForm j'ai galéré sans succès.
Je suis donc revenu au système CheckBoxes et au code du Post #1 pour pouvoir m'en sortir.

 

[fanfan38]

Bonjour
Tu aurais demandé
A+ François

 

[Dudu2]

Ok, toi tu sais le faire mais pas moi

 

[fanfan38]

C'est le but du site: apprendre

 

[Dudu2]

Même avec ton fichier qui est un "produit fini" je n'en sais pas davantage sur la construction de ces "groupes".

 

[fanfan38]

Il faut regrouper les option boutons dans un frame
A+ François

 

[cp4]

Bonjour fanfan38 , Dudu2,

Comme te l'a signalé Fanfan39, tu mets les boutons dans des frames.
Touche Ctrl pour dupliquer les boutons d'option.

 

[Dudu2]

@fanfan38, @cp4,
Merci pour les explications et la démo

 

[eriiic]

Bonjour à tous,

et si tu ne veux pas reprendre le dessin de ton UF tu as la propriété GroupName qui te permet de faire regroupements indépendants.
eric

 

[Dudu2]

Bonjour @eriiiic,
Comment ça marche ?

 

[eriiic]

Bonjour,

comme indiqué, tu as juste a donner le nom du groupe aux optionbuttons concernés, rien de plus :

Mes meilleurs pour 2021 à tous
eric

 

[Dudu2]

OK merci @eriiiic, je ne voyais pas à quel objet cette propriété appartenait.
En effet c'est plus sain que les Frames qui génèrent de problèmes par ailleurs même si c'est pas spécialement sur les boutons d'options. Ce sujet.
J'aime pas les Frames

Meilleurs Voeux