Macro Masquer feuille

[fileofish]

Bonjour tout le monde,

Je cherche une petite macro qui permettrait de cacher toutes les feuilles d'un fichier sauf la Feuil(2) par exemple
Quelqu'un pourrait-il m'aider?

Merci d'avance
Philippe

 

[fileofish]

Re : Macro Masquer feuille

Je viens de trouver la macro: 😀

Sub MasqueOngletSaufUn()
Dim nbonglet As Byte
For nbonglet = 1 To ThisWorkbook.Sheets.Count
If Sheets(nbonglet).Name <> "Nom de l'onglet à garder" Then
Sheets(nbonglet).Visible = 0
End If
Next
End Sub

 

[ROGER2327]

Re : Macro Masquer feuille

Bonjour

Une proposition :

Sub masque_les_feuilles_sauf_la_deuxième()
Dim feuille
   With ThisWorkbook.Sheets
      For feuille = 1 To .Count
         If feuille <> 2 Then .Item(feuille).Visible = False
      Next feuille
   End With
End Sub

Sub affiche_toutes_les_feuilles()
Dim feuille
   With ThisWorkbook.Sheets
      For feuille = 1 To .Count
         .Item(feuille).Visible = True
      Next feuille
   End With
End Sub

Bonne journée !
ROGER2327

__________________
TROP TARD !!!

 

[PascalXLD]

Re : Macro Masquer feuille

Bonjour

possibilité de faire ainsi

Sub MasqueOngletSaufUn()

For each ws in worksheets
If ws.Name <> "Nom de l'onglet à garder" Then ws.Visible = 0
Next
End Sub

 

[vbacrumble]

Re : Macro Masquer feuille

Bonjour à tous


Sur le principe du Toogle (et à partir du code de ROGER2327)
1) première exécution de la macro :masque les feuilles
2) seconde exécution de la macro : démasque les feuilles

Sub masquedemasque_les_feuilles_sauf_la_deuxième()
Dim feuille
   With ThisWorkbook.Sheets
      For feuille = 1 To .Count
         If feuille <> 2 Then .Item(feuille).Visible = Not .Item(feuille).Visible
      Next feuille
   End With
End Sub