Discussion :

[olivier-tig]

bonjour,
j'ai un grand nombre de feuilles dans un classeur et je voudrai par macro les masquer( sauf 1 bien sur )

[Godzestla]

Bonjour,

tu peux faire comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub cache()
Dim sh As Object
For Each sh In Sheets
  If sh.Name <> "Sheet1" Then
     sh.Visible = xlVeryHidden
  End If
Next
End Sub

L'attribut XlVeryhidden ne peux être enlevé que par du VBA et pas par une manip de l'utilisateur, contrairement à XlHidden.


Pour rendre visible, mettre la propriété visible à True.

Code :

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

1
2
3
For Each sh In Sheets
 sh.Visible = True
Next sh

Bonne journée.

[Brunodm13]

Bonjour,

Le code ci-dessous masque les feuille 2 et 3 d'un classeur contenant 3 feuilles. La feuille 1 reste visible.

Code :

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

1
2
3
4
5
 
Dim i As Integer
For i = 2 To 3
ThisWorkbook.Sheets(i).Visible = False
Next i

Cordialement

Bruno