rendre insivible une feuille graphique avec toutes les autres feuilles

[cathodique]

Bonjour,

j'utilise ce bout de code pour rendre invisibles toutes les feuilles du classeur sauf une seule ("Menu"). En effet, elles deviennent toutes invisibles, par contre la feuille graphique reste visible feuille("graph1") pourquoi?

Sub Macro1()
Dim WS As Worksheet

Application.ScreenUpdating = False
or Each WS In Worksheets
If WS.Name <> "Menu" Then
WS.Visible = False
End If
Next
Application.ScreenUpdating = true
End Sub

je suis parvenu à la rendre non visible ainsi:

Charts("graph1").Visible = xlVeryHidden

Je n'ai pas compris pourquoi, c'est aussi une feuille à part entière. merci, d'éclairer ma lanterne, pourquoi n'est-elle pas traitée par ma macro?

Cordialement,

 

[Gurgeh]

Re : rendre insivible une feuille graphique avec toutes les autres feuilles

Salut cathodique,

Les worksheets sont des feuilles de calculs (une feuille de graphique n'est pas une feuille de calcul).

Les charts sont des graphiques.

Les worksheets et les charts sont contenus dans la collection sheets

Gurgeh

 

[cathodique]

Re : rendre insivible une feuille graphique avec toutes les autres feuilles

Bonsoir Gurgeh,

Je te remercie pour tes explications, là je comprends mieux la différence. mais alors comment déclarer la collection des sheets?

Merci beaucoup. Bonne soirée.

Cordialement,

 

[Gurgeh]

Re : rendre insivible une feuille graphique avec toutes les autres feuilles

La collection sheets s'appelle tout simplement sheets()...

Tu peux donc modifier ton code ainsi :

Sub Macro1()
Application.ScreenUpdating = False
For Each WS In Sheets
If WS.Name <> "Menu" Then
WS.Visible = False
End If
Next
Application.ScreenUpdating = true
End Sub

Gurgeh

 

[cathodique]

[Résolu] rendre insivible une feuille graphique avec toutes les autres feuilles

Bonsoir Gurgeh,

Je te remercie beaucoup pour ton aide. Comme ceci, ça fonctionne bien. Merci encore une fois.

Cordialement,