Autres Masquer/Afficher onglets avec une seule macro

Oliver77

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

Pièces jointes

  • Test_2021.01.19_Onglets.xlsm
    54.5 KB · Affichages: 12

soan

XLDnaute Barbatruc
Inactif
@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
 

Discussions similaires

Réponses
11
Affichages
236

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal