Le fichier à télécharger contient:
- Le Module_CheckBoxExclusive à importer dans le projet VBA.
- Le UserForm1 comme exemple de mise en œuvre.
- Permet de gérer facilement des groupes de CheckBoxes comme des OptionButtons, c'est à dire à faire en sorte qu'une seule dans le groupe puisse être cochée sans qu'il y ait besoin de créer des Frames pour les groupes comme c'est le cas des OptionButtons si plus de 1 groupe.
- Placer le Module_CheckBoxExclusive dans la projet VBA.
- Dans le code VBA du UserForm, utiliser la fonction CheckBoxExclusive() avec le paramètre ad hoc.
VB:Private Const ListeCheckBoxesGroupe1 = "CheckBox1,CheckBox2,CheckBox3" .../... '---------------------- 'CheckBoxes du Groupe 1 '---------------------- Private Sub CheckBox1_Click() Call CheckBoxExclusive(ListeCheckBoxesGroupe1) End Sub Private Sub CheckBox2_Click() Call CheckBoxExclusive(ListeCheckBoxesGroupe1) End Sub Private Sub CheckBox3_Click() Call CheckBoxExclusive(ListeCheckBoxesGroupe1) End Sub
- V1 - Initiale.
- V2 - Mise en Module de la fonction CheckBoxExclusive() pour homogénéiser et simplifier