Discussion :

[Niagala]

Bonjour à tous.
J’ai un classeur contenant 10 feuilles. Pour faciliter la navigation entre les feuilles masquées et visibles, j’utilise une feuille comme accueil dans laquelle j’ai inséré des boutons de commandes pour aller sur les différentes feuilles.
Problème :
Les feuilles masquées ne s’affichent pas quand je clique sur le bouton de commande correspondant
Ce que je souhaite faire :
Je voudrai masquer toutes les feuilles sauf la feuille « Accueil »
Quand je clique sur un bouton de commande, je veux que la feuille soit visible, après l’avoir consulté, quand je change de feuille, qu’elle redevienne masquée.
J’ai besoin de votre aide. Bon après midi à tous.

[jean_2940]

utilise la propriété .visible pour la worksheet à utiliser

[BENNASR]

bonjour
Evénement workbook_open : pour masquer tous les onglets sauf la feuil acceuil

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
  With sh
   If Not .Name = "Accueil " Then .Visible = False
  End With
 Next
End Sub

sur la feuil acceul pour aller à feuil2 comme exemple

Code :

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

1
2
3
4
Sub afficher()
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
End Sub

pour masquer feuil2 et retour à l'acceuil :

Code :

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

1
2
3
4
Sub retourAcceuil()
ActiveSheet.Visible = False
Sheets("Accueil").Select
End Sub

voila un petit exemple

[Niagala]

bonjour
Evénement workbook_open : pour masquer tous les onglets sauf la feuil acceuil

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
  With sh
   If Not .Name = "Accueil " Then .Visible = False
  End With
 Next
End Sub

sur la feuil acceul pour aller à feuil2 comme exemple

Code :

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

1
2
3
4
Sub afficher()
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
End Sub

pour masquer feuil2 et retour à l'acceuil :

Code :

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

1
2
3
4
Sub retourAcceuil()
ActiveSheet.Visible = False
Sheets("Accueil").Select
End Sub

voila un petit exemple

Ton code est parfait BENNASR. Je te remercie beaucoup.

[Niagala]

utilise la propriété .visible pour la worksheet à utiliser

Là il n'y a pas de problème mais les feuilles masquées ne s'affichent pas quand je clique sur le bouton de commande approprié. C'est ce que je voudrai contourné et rétablir la propriété invisible quand je change de feuille. Merci pour ton aide.

[jean_2940]

Là il n'y a pas de problème mais les feuilles masquées ne s'affichent pas quand je clique sur le bouton de commande approprié. C'est ce que je voudrai contourné et rétablir la propriété invisible quand je change de feuille. Merci pour ton aide.

la propriété "invisble" n'existe pas mais comme BENNASR t'as tout écrit maintenant c'est plus clair.

[Pierre Fauconnier]

Salut.

Attention qu'avec Feuil1.Visible = False, tu laisses à l'utilisateur la possibilité d'afficher les feuilles par clic droit sur l'onglet "Accueil" puis Afficher.... Si tu souhaites qu'il ne puisse pas effectuer cela, tu dois utiliser la constante xlSheetVeryHidden au lieu de False pour masquer une feuille. Elle ne pourra alors pas être affichée via l'interface Excel.

Il est plus intéressant d'utiliser les constantes prévues pour gérer une propriété, plutôt que d'utiliser des "faux amis" comme False ou True. Ton code sera plus explicite et tu découvriras de nouvelles possibilités. La saisie semi-automatique propose d'ailleurs les constantes utilisables, et il est souvent plus sage de les utiliser.

• xlSheetVisible = -1 = True
• xlSheetHidden = 0 = False
• xlSheetVeryHidden = 2

[Niagala]

Bonjour à tous.

Merci Pierre Fauconnier pour ces précisions.
Je m'excuse de ce bref silence.