VBA pour afficher toutes les feuilles

S

Softmama

XLDnaute Accro

• 3 Janvier 2011

• #2

Re : VBA pour afficher toutes les feuilles

bonjour Chtnmlb,

Code:

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

 

Vote positif 0 Vote négatif

C

Chtnmlb

XLDnaute Nouveau

• 3 Janvier 2011

• #3

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 ?

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 3 Janvier 2011

• #4

Re : VBA pour afficher toutes les feuilles

Re,

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

VB:

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

 

Vote positif 0 Vote négatif

C

Chtnmlb

XLDnaute Nouveau

• 3 Janvier 2011

• #5

Re : VBA pour afficher toutes les feuilles

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

 

Vote positif 0 Vote négatif