Afficher / masquer des feuilles

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Constantin

XLDnaute Occasionnel
Supporter XLD
Bonjour (ou plutôt bonsoir) à toutes et tous,
Je dispose d'un fichier (xltm mais peu importe) qui contient de nombreuses feuilles. Dans un onglet (Synthèses) j'ai créé des raccourcis pour accéder aux éléments d'analyse des fichiers de saisie. Cela marche plutôt bien sauf que lorsque j'ai ouvert un onglet, mes macros "Afficher tout" et "Masquer tout" me lâchent...
Vous vous en doutez, compte tenu de mon niveau pitoyable en matière de programmation, j'ai créé ces deux macros à partir de l'enregistreur. Je voudrais pouvoir les rendre fonctionnelles même si une des feuilles concernée par ces macros sont déjà ouvertes.

Merci par avance de votre aide et surtout passez de bonnes fêtes de fin d'année

Constantin
 

Pièces jointes

Solution
Bonsoir Constantin,

Traitez les feuilles une par une :
Code:
Sub Afficher_tout()
Dim f
Application.ScreenUpdating = False
For Each f In Array("Résultats", "Plan d'actions", "Plan d'actions2", "Plan d'actions3", _
    "Plan d'actions bis", "Plan d'actions bis2", "Plan d'actions bis3")
    Sheets(f).Visible = xlSheetVisible
Next
End Sub

Sub Masquer_tout()
Dim f
Application.ScreenUpdating = False
For Each f In Array("Résultats", "Plan d'actions", "Plan d'actions2", "Plan d'actions3", _
    "Plan d'actions bis", "Plan d'actions bis2", "Plan d'actions bis3")
    Sheets(f).Visible = xlSheetHidden
Next
End Sub
A+
Bonsoir Constantin,

Traitez les feuilles une par une :
Code:
Sub Afficher_tout()
Dim f
Application.ScreenUpdating = False
For Each f In Array("Résultats", "Plan d'actions", "Plan d'actions2", "Plan d'actions3", _
    "Plan d'actions bis", "Plan d'actions bis2", "Plan d'actions bis3")
    Sheets(f).Visible = xlSheetVisible
Next
End Sub

Sub Masquer_tout()
Dim f
Application.ScreenUpdating = False
For Each f In Array("Résultats", "Plan d'actions", "Plan d'actions2", "Plan d'actions3", _
    "Plan d'actions bis", "Plan d'actions bis2", "Plan d'actions bis3")
    Sheets(f).Visible = xlSheetHidden
Next
End Sub
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour