Bouton d’option ou OptionButton dans un formulaire Userform, Excel VBA

Le contrôle OptionButton ou bouton d’option  vous permet de sélectionner une ou plusieurs alternatives mutuellement exclusives.

Les boutons d’option sont généralement affichés dans des groupes. Le regroupement est effectué à l’aide du contrôle Frame ou de la propriété GroupName de l’objet OptionButton. Les événements principaux du Bouton d’option sont les événements Click et Change, et la propriété principale est la propriété Value, qui renvoie ou définit son état. Si la valeur de cette propriété est True, le bouton d’option est sélectionné, si False, il est désélectionné.
1 Sélection de l’opération à effectuer

Nous allons reprendre l’exemple de  Zone de texte (TextBox) dans un formulaire personnalié Userform, Excel VBA. L’opération à effectuer est définie en sélectionnant le bouton d’option approprié.
Figure 1: Sélection de l’opération résultante

Ainsi, créez un formulaire sur lequel placer trois Intitulés, trois zones de texte et deux boutons commande, ainsi qu’un cadre dans lequel, comme dans un conteneur, placez deux boutons d’option et, à l’aide de la fenêtre Propriétés, définissez leurs valeurs de propriété comme indiqué dans le tableau 1.
Tableau 1: Valeurs de propriété définies dans la fenêtre Propriétés

Objet Propriété Valeur
Intitulé Caption A
Zone de texte Name TxtA
Intitulé Caption B
Zone de texte Name TxtB
Intitulé Caption C
Zone de texte Name TxtC
Bouton Name CmdOK
Caption OK
Bouton Name CmdANNULER
Caption ANNULER
Cadre Caption Opérations
Bouton d’option Name OptAddition
Caption Addition
Bouton d’option Name OptSoustraction
Caption Soustraction

Dans le module de formulaire, tapez le code suivant :

Private Sub UserForm_Initialize()

   optAddition.Value = True

End Sub

Private Sub cmdOK_Click()

   Dim a As Double, b As Double, c As Double

   a = txtA.Text

   b = txtB.Text

   If optAddition.Value Then

      c = a + b

   End If

   If optSoustraction.Value Then

      c = a - b

   End If

   txtC.Text = c

End Sub

Private Sub optAddition_Click()   Me.Caption = "Addition"

End Sub

Private Sub optSoustraction_Click()

   Me.Caption = "Soustraction"

End Sub

Commentaires

■ Dans la procédure de gestion de l’événement Click du bouton, le bouton d’option sélectionné est identifié et, sur cette base, le calcul est effectué selon la formule correspondante.

■ La gestion des événements Click du bouton d’option affiche le nom de l’opération sélectionnée dans l’en-tête du formulaire.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x