Bonjour,
Sur une feuille excel "MENU", j'ai inséré 3 boutons :
- afficher tout
- divers
-Electroménager
Lorsque je clique sur le bouton "divers", l'onglet "divers" apparaît avec l'onglet "MENU" (c'est l'onglet MENU qui est ouvert)
Ensuite, si je clique sur "Electroménger" dans l'onglet "MENU" , seul l'onglet "MENU" apparaît.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub CommandButton2_Click() For Each sh In Sheets If sh.Name <> "MENU" And sh.Name <> "Divers" Then sh.Visible = xlSheetHidden Next End Sub
Ce que je recherche : pouvoir aller dans les onglets choisis directement sans devoir passer par un boutton "Afficher tout" que j'ai créé avec le code :
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub CommandButton1_Click() Dim WS As Worksheet For Each WS In Worksheets If Not WS.Visible Then WS.Visible = True Next End Sub
Partager