VBA pour afficher toutes les feuilles

[Chtnmlb]

Bonjour et surtout bonne année à toutes et tous,

A peine de retour au travail et déjà, ca bloque... ou plutôt ca avance lentement.
Quelqu'un connaitrait-il un code pour afficher toutes les feuilles d'un classeur ? Plutôt que de devoir nommer tous les arguments
Sheets("Feuil1";"Feuil2";...).Visible = True

Plein de bonheur !

 

[Softmama]

Re : VBA pour afficher toutes les feuilles

bonjour Chtnmlb,

For each Sh in thisworkbook.sheets
    Sh.visible=true
next

 

[Chtnmlb]

Re : VBA pour afficher toutes les feuilles

Bonjour Softmama,

Merci, ca fonctionne très bien. Si je peux me permettre de te poser une autre question, est-il possible d'y ajouter des exceptions ?

 

[Softmama]

Re : VBA pour afficher toutes les feuilles

Re,

Alors pour les exceptions, un truc dans le genre, à tester:

Dim Exc as boolean, Exceptions
Exceptions = array("NomFeuille1","NomFeuille2","NomFeuille3") 'à adapter...
For each Sh in thisworkbook.sheets
    Exc =False
    For t=lbound(Exceptions) to Ubound(Exceptions)
        If Exceptions(t) = Sh.Name then Exc = True
    Next t
        Sh.visible= iif(Exc, False, true)
next

 

[Chtnmlb]

Re : VBA pour afficher toutes les feuilles

Un grand merci à toi et une bonne année !