En VBA, vous pouvez créer un Bouton d'option pour permettre à un utilisateur de choisir parmi plusieurs options. Un bouton Option est souvent utilisé dans les formulaires utilisateur, mais peut également être utilisé dans une feuille de calcul. Dans ce didacticiel, vous apprendrez à créer un bouton Option, à obtenir un choix utilisateur dans VBA et à l'utiliser dans le code.
Si vous voulez apprendre à créer une case à cocher, cliquez ici : VBA Checkbox
Créer un bouton d'option
Pour insérer un bouton d'option dans la feuille de calcul, vous devez accéder à la Onglet Développeur, Cliquez sur Insérer et sous Contrôles ActiveX choisissez Bouton d'option :
Image 1. Insérer un bouton d'option dans la feuille de calcul
Lorsque vous sélectionnez le bouton Option que vous avez inséré, vous pouvez cliquer sur Propriétés sous le Onglet Développeur:
Image 2. Modifier les propriétés du bouton Option
Ici, vous pouvez définir différentes propriétés du bouton Option. Pour le début, nous avons changé l'attribut Nom à optOptionButton1. Maintenant, nous pouvons utiliser le bouton Option avec ce nom en code VBA.
De plus, nous avons changé le texte qui apparaît à côté du bouton Option pour Homme. Pour ce faire, vous devez définir l'attribut Légende.
Comme nous voulons permettre à un utilisateur de choisir son sexe, nous allons répéter l'ensemble du processus pour un autre bouton Option. Le second a un nom optOptionButton2, tandis que la légende est Femelle. Vous pouvez également créer un nouveau bouton Option en copiant celui existant et en modifiant les propriétés. Maintenant, notre feuille de travail a deux boutons d'option :
Image 3. Insérez le deuxième bouton Option
Obtenir un bouton d'option sélectionné dans VBA
Le but d'un bouton d'option est d'obtenir une décision des utilisateurs. Nous allons montrer dans l'exemple comment écrire Homme dans la cellule C3 si le bouton Option 1 est choisi ou Femelle si le second est choisi. Chaque bouton d'option a son événement qui se déclenche lorsqu'il est choisi - Cliquez sur.
Par conséquent, pour le premier bouton Option, nous devons mettre le code suivant dans l'événement Cliquez sur de l'objet optOptionButon1:
| 123456789 | Sous-privé optOptionButton1_Click()Si Sheet1.optOptionButton1.Value = True AlorsSheet1.Range("C3") = "Mâle"Fin siFin du sous-marin |
De même, nous mettrons ce code dans l'événement Cliquez sur de l'objet optOptionButton2:
| 123456789 | Sous-privé optOptionButton2_Click()Si Sheet1.optOptionButton2.Value = True AlorsSheet1.Range("C3") = "Femme"Fin siFin du sous-marin |
La valeur du bouton Option est dans leValeur attribut de l'objet optOptionButton1 ou optOptionButton2. La valeur du bouton Option peut être vrai s'il est choisi ou faux s'il n'est pas choisi.
Image 3. Retour Male si le premier bouton Option est choisi
Comme vous pouvez le voir sur l'image 3, nous avons cliqué sur le premier bouton Option. Par conséquent, la valeur de Sheet1.optOptionButton1.Value est vrai, donc le résultat dans C3 est Homme.
Image 4. Retour Female si le deuxième bouton Option est choisi
De la même manière que dans l'exemple précédent, la valeur de C3 est modifiée en Femelle, car nous avons choisi le deuxième bouton Option. Dans ce cas, la procédure optOptionButton2_Click() est déclenché.
Utiliser un bouton d'option dans un formulaire utilisateur
Comme nous l'avons mentionné, le bouton Option est le plus souvent utilisé dans les formulaires utilisateur. Pour expliquer comment vous pouvez le faire, nous allons d'abord insérer un Userform. Dans l'éditeur VBA, faites un clic droit sur le nom du module, cliquez sur Insérer et choisissez Formulaire utilisateur:
Image 5. Insérer un formulaire utilisateur
Pour afficher les commandes d'insertion, vous devez activer le Boîte à outils. Pour ce faire, cliquez sur leBoîte à outils icône dans la barre d'outils. Après cela, vous obtiendrez les fenêtres avec tous les contrôles disponibles. Vous pouvez cliquez sur leBouton d'option pour le créer dans le Userform :
Image 6. Insérer un bouton d'option dans le formulaire utilisateur
Dans la fenêtre des propriétés, nous changeons le nom du bouton Option en optOptionButton1 et la légende en Homme. De même, nous avons créé un autre bouton Option pour Femme. Lorsque nous exécutons le formulaire utilisateur, nous obtenons deux boutons d'option :
Image 7. Deux boutons d'option dans Userform
Si vous souhaitez obtenir un bouton d'option sélectionné, vous devez utiliser la même logique que pour une feuille de calcul, qui est expliquée plus haut dans l'article.
