Discussion :

[SpaceFrog]

j'ai un workbook avec 31 feuilles

au démarrage je ne voudrais conserver que la première feuille visible

sur thisworkbook open j'ai tenté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
for i=2 to thisworkbook.worksheets.count
       thisworkbook.sheets(i).visible=false
next

Mais celà à autant d'effet que de voter pour un président de la république en espèrant qu'il tienne toutes ses promesses electorales ...

[ouskel'n'or]

Testé => Ok

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub masquer()
    For i = 2 To ActiveWorkbook.Worksheets.Count
       ActiveWorkbook.Sheets(i).Visible = False
    Next
End Sub

Hello !

Explication : ThisWorkbook est le classeur contenant la macro... Tu devais souhaiter masquer les feuilles d'un autre classeur

[SpaceFrog]

salut ousk

Non c'est pire que ça
ayant oublié mon option explicite et mon code n'étant pas exactement comme celui donné ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
NbFeuilles=thisworkbook.worksheets.count
for i=2 to NbrFeuilles
       thisworkbook.sheets(i).visible=false
next

je n'avais pas fait gaffe, et ça ne m'a pas été signalé à la compilation ...

Merci et desolé pour le derangement ...