Code Vba Pour masquer les Feuilles

Bonjour,

Worksheets("Feuil2").visible=0

pour rendre visible
Worksheets("Feuil2").visible=

re,

En supposant que ta feuille principale est la première concue et la première du classeur

Sub masquer()
Dim nbre As Byte, cptr As Byte

Application.ScreenUpdating = False

nbre = ThisWorkbook.Sheets.Count
cptr = 2
For cptr = 2 To nbre
Sheets(cptr).Visible = 0
Next

Application.ScreenUpdating = False

End Sub

Oui c'est ça Merci, mais en allant au format/Feuille/ on trouve les feuilles masquées, ce que je veux qu'elles soient aussi masquer dans Formt/Feuille.

Juste une petite précision (suite à problème rencontré) : Excel a besoin de garder toujours au moins une feuille visible.

Dans mon cas, il y avait 2 feuilles (test et résultat) : il faut donc prévoir dans sa macro d'afficher la seconde feuille avant de masquer la première; sinon cela bugge.

Merci ami
mais je veux un code pour masquer toutes les feuilles du ckasseur qui contient plus de 20 feuilles.
Toutes les feuilles à la fois sauf bien sûr la principale

Exact, Merci Eric

Salut, je pense que le second "Application.ScreenUpdating" devrait être rétabli par "= True".
Ce qui donne :

_______________________________________

Sub masquer()

Dim nbre As Byte, cptr As Byte

Application.ScreenUpdating = False
nbre = ThisWorkbook.Sheets.Count
cptr = 2
For cptr = 2 To nbre
Sheets(cptr).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True

End Sub
_______________________________________

Bon codage à tous !

Beckett299

bonjour

quelle réactivité! 2 ans après!

je pense que le second "Application.ScreenUpdating" devrait être rétabli par "= True".


Tu penses mal.

Si la macro rend la main au systeme, il n'est pas nécessaire de rétablir à "true"

Consulte cet article de Laurent Longre:
http://xcell05.free.fr/pages/prog/accvba.htm

... ou alors créer une feuille vide (remplie d'un joli gris, par exemple) et masquer la(les) feuille(s) sur la(es)quelle(s) on travaille ^^