Autres Masquer/Afficher onglets avec une seule macro

[Oliver77]

Bonsoir,

Pour masquer ou afficher plusieurs onglets j'ai 2 procédures que je souhaite regrouper en 1 seule.
Les voici :
1/Masquer :
For c5i = 1 To Sheets.Count
If Left(Sheets(c5i).Name, 4) = "C05_" Then Sheets(c5i).Visible = False
Next c5i
Next

2/Afficher :
For c5i = 1 To Sheets.Count
If Left(Sheets(c5i).Name, 4) = "C05_" Then Sheets(c5i).Visible = True
Next c5i
Next

Trois jours que je parcours le net...
Je trouve des demi-solutions.

Merci par avance.
Oliver77

 

[soan]

@Oliver77

tu as oublié une 4ème raison importante :

4/ ne pas montrer les feuilles "C05_" car elles contiennent des infos secrètes
que toi seul doit connaître, et tu veux pas qu'un de tes copains risque de
surprendre un de tes secrets en regardant par-dessus ton épaule pendant
que tu pianotes sur ton clavier.

@Staple1600

j'ai compris ton expression « raw and wild » = « brute et sauvage »
= avec javascript désactivé.

soan