Code Vba Pour masquer les Feuilles Résolu

Question

Bonjour,
Je voudrais un code vba pour masquer les feuilles d'un classeur qu'on ne peut pas les afficher à partir du Format/Feuille/Afficher.
Avec tous mes respects.

eriiic · Accepted Answer

Bonsoir,

Juste un complément à la macro de michel qui n'a pas dû tout lire.

Pour ne pas pouvoir les ré-afficher par le menu remplace:
.Visible = 0  par .Visible = xlSheetVeryHidden
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 = False
End Suberic

michel_m · Answer

Bonjour,

Worksheets("Feuil2").visible=0

pour rendre visible 
Worksheets("Feuil2").visible=

gham · Answer

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

michel_m · Answer

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

gham · Answer

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.

michel_m · Answer

Exact, Merci Eric

Beckett299 · Answer

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

michel_m · Answer

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

Edouard · Answer

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.

Niconick · Answer

... 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 ^^

Code Vba Pour masquer les Feuilles

10 réponses

Discussions similaires

Newsletters