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

Merlin258413

XLDnaute Occasionnel
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
 
Solution
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,
VB:
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
Code:
Sub feuilleVisible()
   Dim Feuil As Worksheet
   For Each Feuil In ThisWorkbook.Worksheets
      Feuil.Visible = True...

Merlin258413

XLDnaute Occasionnel
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
 

Pièces jointes

  • test.xlsm
    302.3 KB · Affichages: 6

cp4

XLDnaute Barbatruc
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,
VB:
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
Code:
Sub feuilleVisible()
   Dim Feuil As Worksheet
   For Each Feuil In ThisWorkbook.Worksheets
      Feuil.Visible = True
   Next Feuil
End Sub
Bonne journée.
 

Merlin258413

XLDnaute Occasionnel
Bonjour,
VB:
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
Code:
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

XLDnaute Occasionnel
Bonjour,
VB:
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
Code:
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
 

Discussions similaires

Réponses
6
Affichages
243

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla