Cours VBA : les contrôles (partie 3)
Insertion sur une feuille
Les contrôles peuvent être utilisés également sur une feuille Excel. Pour cet exemple, nous ajouterons donc le contrôle directement sur la feuille.
Le bouton bascule (ToggleButton)
Insérez pour commencer un bouton bascule (contrôle ActiveX) à partir de l'onglet Développeur :
![vba excel inserer bascule activex controles feuille](https://www.excel-pratique.com/view/fr/vba/img/controles-feuille/vba-excel-inserer-bascule-activex.png)
Notez que pour manipuler un contrôle ActiveX sur une feuille, le Mode Création doit être activé :
![vba excel inserer togglebutton controles feuille](https://www.excel-pratique.com/view/fr/vba/img/controles-feuille/vba-excel-inserer-togglebutton.png)
Double-cliquez maintenant sur le bouton et modifiez ses propriétés pour obtenir :
![bouton bascule controles feuille](https://www.excel-pratique.com/view/fr/vba/img/controles-feuille/bouton-bascule.png)
L'objectif ici est de masquer la feuille 2 lorsque le bouton est pressé ou de l'afficher dans le cas contraire.
Le précédent double-clic a également ajouté l'événement Click du bouton dans la feuille où se trouve le bouton :
![evenement togglebutton controles feuille](https://www.excel-pratique.com/view/fr/vba/img/controles-feuille/evenement-togglebutton.png)
Il ne reste plus qu'à entrer les instructions à exécuter au clic sur le bouton :
Private Sub ToggleButton1_Click()
'Si le bouton est pressé
If ToggleButton1 Then
'Masquer la feuille et modifier le texte du bouton
Sheets("Feuil2").Visible = 2
ToggleButton1.Caption = "La feuille 2 est masquée"
'Sinon
Else
'Afficher la feuille et modifier le texte du bouton
Sheets("Feuil2").Visible = -1
ToggleButton1.Caption = "La feuille 2 est affichée"
End If
End Sub
![bouton bascule presse controles feuille](https://www.excel-pratique.com/view/fr/vba/img/controles-feuille/bouton-bascule-presse.png)
Le fichier : togglebutton.xlsm