Icône de la ressource

VBA - UserForm - Groupes de CheckBoxes exclusives / à choix unique V4

Le fichier à télécharger contient:
  1. Le Module_CheckBoxExclusive à importer dans le projet VBA.
  2. Le UserForm1 comme exemple de mise en œuvre.
Les principales caractéristiques:
  • Permet de gérer facilement des CheckBoxes appartenant au même GroupName (propriété CheckBox.GroupName) comme des OptionButtons, c'est à dire faire en sorte qu'une seule dans le groupe puisse être cochée, et ceci indépendamment des Frames auxquels les CheckBoxes appartiennent.

    1728020851930.png
Mise en œuvre très simple:
  • Placer le Module_CheckBoxExclusive dans la projet VBA.

  • Dans le code VBA du UserForm, utiliser la fonction CheckBoxExclusive() qui ne nécessite aucun paramètre.
    VB:
    '----------------------
    'CheckBoxes du Groupe 1
    '----------------------
    Private Sub CheckBox1_Click()
        Call CheckBoxExclusive
    End Sub
    
    Private Sub CheckBox2_Click()
        Call CheckBoxExclusive
    End Sub
    
    Private Sub CheckBox3_Click()
        Call CheckBoxExclusive
    End Sub
Versions:
  • V1 - Initiale.
  • V2 - Mise en Module de la fonction CheckBoxExclusive() pour homogénéiser et simplifier
  • V3 - Utilise la propriété CheckBox.GroupName au lieu d'une constante listant les CheckBoxes
  • V4 - Corrige le bug sur CheckBox dans Frame ou Multipage

Démo.gif