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.