Afficher et masquer des feuilles

**LaPanic** · 04/09/2007, 20h54

Bonjour,
Je suis entrain de créer un Userforme avec des boutons qui affichent des feuilles masquées et avec un bouton "quitter" qui affiche la feuille menu (menu reste toujour affichée) et qui masque les feuilles affichées (ca depend du nombre de feuilles consultées)
Merci pour votre aide

**jfontaine** · 04/09/2007, 21h22

En t'inspirant de cette Boucle pour rendre visible toutes les feuilles

Code :

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

1
2
3
4
5
6
7
 
Dim sh As Worksheet
 
 
For Each sh In ThisWorkbook.Worksheets
    sh.Visible = xlSheetVisible
Next

**LaPanic** · 04/09/2007, 21h34

Slt
la je doit masquer toutes les feuilles sauf la feuille menu

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Quitter_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    sh.Visible = False
Next
    Sheets("menu").Visible = True
    Sheets("menu").Select
    Range("A1").Select
    UserForm1.Hide
End Sub

et ca ne marche pas !!

**jfontaine** · 04/09/2007, 22h23

Il doit y avoir au moins un onglet de visible

Code :

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

1
2
3
4
5
6
7
 
Dim sh As Worksheet
 
 
For Each sh In ThisWorkbook.Worksheets
    If sh.Name <> "menu" Then sh.Visible = xlSheetHidden
Next

**grrimag** · 05/09/2007, 08h42

Salut,

Une petite précision, histoire de mettre mon grain de sel

suivant comment tu veux cacher ta feuille, tu peux soit utiliser xlSheetHidden, soit xlSheetVeryHidden. Le premier laisse la possibilité de réafficher la feuille via le menu format/feuille/afficher le second empêche cette possibilité.

**LaPanic** · 05/09/2007, 10h19

Bonjour,
Merci pour votre aide
la ca ne marche pas ca me sort une erreur d'execution 1004,au niveau de

Code :

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

sh.Visible = xlSheetHidden

la methode visible de l'objet worksheet a echoué
et la ca masque toutes les feuille et laisse la dernière feuille (l'onglet le plus a droite:testé)

**jfontaine** · 05/09/2007, 10h28

Ton onglet menu est t'il resté visible?

**LaPanic** · 05/09/2007, 10h43

non sauf si je le déplace vers la droite le dernier (le plus a droite)

**jfontaine** · 05/09/2007, 11h13

Dans ma proposition il cache toutes les feuilles sauf la feuille menu.
Si tu as repris ce code c'est qu'il y a un problème sur l'orthographe de la feuille

Peux tu faire voir ton code.