XL 2013 Masquer tous les onglets d'un classeur sauf 4 feuilles

[Merlin258413]

Bonjour le Forum,
Je cherche une macro qui masque toutes les feuilles d'un fichier sauf 5 feuilles.

Les feuilles qui ne doivent pas être masquées ont pour noms :
FA ==> feuille dans laquelle je vais mettre le bouton qui masque toutes les feuilles
SGA
Histo
Mois sec
Cum sec


Excellente journée et bon week end

 

[patricktoulon]

bonjour
un exemple
tu click sur le bouton c'est invisible / tu reclique les feuilles revienent

 

[Merlin258413]

bonjour
un exemple
tu click sur le bouton c'est invisible / tu reclique les feuilles revienent

Bonjour l'idée est bonne mais cela ne correspond pas à ma demande initiale
Les feuilles qui ne doivent pas être masquées ont pour noms :
FA
SGA
Histo
Mois sec
Cum sec

Ce sont les autres feuilles qui doivent être masquées ci joint un fichier

 

[cp4]

Bonjour l'idée est bonne mais cela ne correspond pas à ma demande initiale
Les feuilles qui ne doivent pas être masquées ont pour noms :
FA
SGA
Histo
Mois sec
Cum sec

Ce sont les autres feuilles qui doivent être masquées ci joint un fichier

Bonjour,

Sub MasquerFeuilles()
   Dim Feuil As Worksheet
   Application.ScreenUpdating = False
   For Each Feuil In ThisWorkbook.Worksheets
If Feuil.Name <> "FA" And Feuil.Name <> "SGA" And Feuil.Name <> "Histo" And Feuil.Name <> "Mois sec" _
And Feuil.Name <> "Cum sec" Then Feuil.Visible = False
   Next Feuil
End Sub

Pour rendre visible toutes les feuilles

Sub feuilleVisible()
   Dim Feuil As Worksheet
   For Each Feuil In ThisWorkbook.Worksheets
      Feuil.Visible = True
   Next Feuil
End Sub

Bonne journée.

 

[Merlin258413]

Bonjour,

Sub MasquerFeuilles()
   Dim Feuil As Worksheet
   Application.ScreenUpdating = False
   For Each Feuil In ThisWorkbook.Worksheets
If Feuil.Name <> "FA" And Feuil.Name <> "SGA" And Feuil.Name <> "Histo" And Feuil.Name <> "Mois sec" _
And Feuil.Name <> "Cum sec" Then Feuil.Visible = False
   Next Feuil
End Sub

Pour rendre visible toutes les feuilles

Sub feuilleVisible()
   Dim Feuil As Worksheet
   For Each Feuil In ThisWorkbook.Worksheets
      Feuil.Visible = True
   Next Feuil
End Sub

Bonne journée.

Bonjour et merci cela fonctionne parfaitement
bonne journée et bon week end

 

[Merlin258413]

Bonjour,

Sub MasquerFeuilles()
   Dim Feuil As Worksheet
   Application.ScreenUpdating = False
   For Each Feuil In ThisWorkbook.Worksheets
If Feuil.Name <> "FA" And Feuil.Name <> "SGA" And Feuil.Name <> "Histo" And Feuil.Name <> "Mois sec" _
And Feuil.Name <> "Cum sec" Then Feuil.Visible = False
   Next Feuil
End Sub

Pour rendre visible toutes les feuilles

Sub feuilleVisible()
   Dim Feuil As Worksheet
   For Each Feuil In ThisWorkbook.Worksheets
      Feuil.Visible = True
   Next Feuil
End Sub

Bonne journée.

Bonjour c'est parfait merci