Cacher automatiquement les onglets

Bonsoir à tous,

Dans un fichier j'ai des onglets "Janvier, Février, Mars..." que je rajoute au fur et à mesure que les mois passent et un onglet "Menu".

J'aimerai que ces onglets soit automatiquement invisible sauf l'onglet "Menu"

Est-ce possible?

Merci beaucoup

Djodjo

Bonjour djodjo,

Oui, c'est possible. Il faut sélectionner tous les onglets à masquer, faire clic droit / masquer !

Si il s'agit de les masquer sous condition ou à partir d'un évènement, c'est également possible mais il faudrait plus de détails. En tout cas, pour le principe :

Sub AfficherMasquerOnglets()

dim ws as worksheet

for each ws in worksheets
    if ws.name <> "Menu" then
        ws.visible = not ws.visible
    end if
next ws

End sub

Sub SeulementMasquerOnglets()

dim ws as worksheet

for each ws in worksheets
    if ws.name <> "Menu" then
        ws.visible = False
    end if
next ws

End sub

Cdlt,

Bonsoir 3GB,

Merci beaucoup c'est dont j'avais besoin.

Bonne soirée

Djodjo