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

Merlin258413 · 10 Mars 2023

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

cp4 · 10 Mars 2023

Merlin258413 à dit:
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...

patricktoulon · 10 Mars 2023

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

Merlin258413 · 10 Mars 2023

patricktoulon à dit:
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 · 10 Mars 2023

Merlin258413 à dit:
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 · 10 Mars 2023

cp4 à dit:

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 · 10 Mars 2023

cp4 à dit:

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

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

Merlin258413

XLDnaute Occasionnel

cp4

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Merlin258413

XLDnaute Occasionnel

Pièces jointes

cp4

XLDnaute Barbatruc

Merlin258413

XLDnaute Occasionnel

Merlin258413

XLDnaute Occasionnel

Discussions similaires

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

Merlin258413

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Merlin258413

XLDnaute Occasionnel

Pièces jointes

cp4

XLDnaute Barbatruc

Merlin258413

XLDnaute Occasionnel

Merlin258413

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency