Discussion :

[Olivierporcinet]

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)

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

Ensuite, si je clique sur "Electroménger" dans l'onglet "MENU" , seul l'onglet "MENU" apparaît.

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 :

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

Merci.

[Al__22]

Afficher juste Menu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WorkSheets.Visible = xlSheetHidden
Sheets("MENU").Visible = xlSheetVisible

Afficher Divers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Divers").Visible = True

Afficher Electroménager :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Electroménager").Visible = True

[Olivierporcinet]

Je joins le fichier en annexe.

Je veux pouvoir afficher MENU + Divers en cliquant sur Divers --> OK

et, par la suite, comme je suis sur l'onglet "MENU", si je clique sur "Electroménager" les 2 onglets MENU + Electro doivent s'afficher.


Et de même pour d'autres onglets que je vais créer.

merci

[Al__22]

Afficher juste Menu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WorkSheets.Visible = xlSheetHidden
Sheets("MENU").Visible = xlSheetVisible

Afficher Divers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Divers").Visible = xlSheetVisible

Afficher Electroménager :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Electroménager").Visible = xlSheetVisible

A adapter avec chacune de tes feuilles

[Olivierporcinet]

Comment modifier le code ci-dessous pour que l'onglet "Electroménager" s'affiche avec le menu et que je puisse cliquer ensuite sur "DIVERS" et que "MENU" +" DIVERS" s'affiche sans problème, merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton3_Click()
For Each sh In Sheets
 If sh.Name <> "MENU" And sh.Name <> "Electroménager" Then .Visible = xlSheetVisible
Next
End Sub

[joe.levrai]

Bonjour,

Olivierporcinet, si tu postes tes messages les uns après les autres, sans prendre le soin de répondre aux participants qui te donnent des propositions, il ne faudra pas s'étonner que les gens ne te répondent plus

Car une personne qui n'écoute pas les autres, prend le risque que les autres ne l'écoutent plus ...

[Olivierporcinet]

sorry

[Menhir]

Comment modifier le code ci-dessous pour que l'onglet "Electroménager" s'affiche avec le menu et que je puisse cliquer ensuite sur "DIVERS" et que "MENU" +" DIVERS" s'affiche sans problème, merci

Avec ce qui a dans mon message, tu as tous les éléments qui permettent de faire ça.

[Olivierporcinet]

je ne suis pas un expert en VBA, je coince.....

J'essaie de comprendre mais pas facile.......

[Al__22]

A adapter pour chacune de tes feuilles :

Affiche Menu + Divers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
WorkSheets.Visible = xlSheetHidden
Sheets("MENU").Visible = xlSheetVisible
Sheets("Divers").Visible = xlSheetVisible

Renomme le Divers avec le nom d'une autre feuille pour que ce soit celle-ci qui s'affiche

2e exemple pour Electroménager :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
WorkSheets.Visible = xlSheetHidden
Sheets("MENU").Visible = xlSheetVisible
Sheets("Electroménager").Visible = xlSheetVisible

Etc.

[Menhir]

Je n'ai pas très bien compris ta question mais si tu veux afficher un onglet particulier (par exemple "divers"), tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
WorkSheets.Visible = xlSheetHidden
Worksheets("divers").Visible = xlSheetVisible
Worksheets("divers").Activate

Petite remarque, au passage : le If Then de ton code est inutile puisque si tu mets à True une propriété qui l'est déjà, ça ne dérangera rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each WS In Worksheets
    WS.Visible = True
Next

Pour aller encore plus vite, rendre visible tous les onglets en une seule ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Worksheets.Visible = True