Afficher / masquer des feuilles

[Constantin]

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

 

[job75]

Bonsoir Constantin,

Traitez les feuilles une par une :

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+

 

[Constantin]

Bonjour Job75,
Merci (une fois de plus) pour votre réponse. Cela marche super bien!
Joyeux Noël et peut-être (sans doute...) à l'année prochaine !