création de menu en VBA avec un userform (pédagogie en cours de création)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-64.png)
exemple de userform en vba avec 4 boutons
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-65.png)
Boite de dialogue avec message Hello MSGBOX
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-66.png)
utilisation de la procédure show et hide sur le userform2
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-67.png)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-68.png)
en cliquant sur ok le formulaire ne s’affiche plus
ou par exemple avec ce message de fermeture
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-79.png)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-69.png)
en cliquant sur le bouton menu en bleu, on affiche le menu avec les boutons janvier février mars etc …
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-70.png)
En cliquant sur les boutons, on atteint la feuille souhaitée ou on peut fermer le formulaire
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-71.png)
code source vba
code pour afficher le menu
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-81.png)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-80.png)
affichage du userform2
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-82.png)
code pour atteindre la feuille janvier à l’aide du bouton Janvier nommé btn01
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-72.png)
code pour atteindre la feuille février
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-73.png)
code pour atteindre la feuille mars
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-74.png)
code pour le bouton fermer du formulaire menu calendrier
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-75.png)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-76.png)
comment afficher le formulaire sous excel
menu formulaire fini
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-77.png)
zone d’onglets feuilles de janvier à décembre)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-78.png)
couleur de l’onglet dans excel
Par défaut, la couleur des onglets des feuilles de calcul Excel est grise. Pour changer la couleur d’un onglet, un clic droit permet d’accéder à la palette de couleur :
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-83.png)
Cette action manuelle peut également être réalisée par programmation en VBA à l’aide de l’instruction .Tab.
Par exemple, le code suivant change la couleur de l’onglet de la première feuille de calcul (en partant de la gauche) en vert :With ActiveWorkbook.Sheets(1).Tab .Color = 5296274 .TintAndShade = 0 End With
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-84.png)
Les couleurs peuvent être codifiées à partir de la fonction RGB (pour Rouge / Vert / Bleu) ; par exemple : RGB(0, 255, 0).
paramètres complémentaires des couleurs d’onglets ou propriétés
Les paramètres de l’instruction .Tab sont les suivants :
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-85.png)
exemple de classeur avec plusieurs onglets de feuille
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-86.png)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-87.png)
si j’ajoute une feuille dans le classeur
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-88.png)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-89.png)
la feuille active est colorée en vert clair
les autres couleurs ne changent pas
code vba à mettre en place dans la rubrique ThisWorkbook
c’est une procédure à l’activation de la feuille et la désactivation de la feuille.
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-91.png)
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-90.png)
code source faire un copier coller
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Names.Add “CoulTab”, Sh.Tab.Color
Sh.Tab.Color = &HFF00&
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
If Sh.Tab.Color <> &HFF00& Then
Sh.Names.Add “CoulTab”, Sh.Tab.Color
Else
Sh.Tab.Color = Sh.[CoulTab]: End If
End Sub
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-95.png)
code pour afficher ou masquer un user form
![](http://espaceinformatique.net/officelearn/wp-content/uploads/2023/10/image-92.png)
À propos de l’auteur