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]

Bonsoir Oliver,

ton fichier en retour.

Sub HideShow()
  Dim i%: Application.ScreenUpdating = 0
  For i = 1 To Worksheets.Count
    With Worksheets(i)
      If Left$(.Name, 4) = "C05_" Then .Visible = Not .Visible
    End With
  Next i
End Sub

soan

 

[Staple1600]

Bonsoir le fil, Oliver77, soan

=>Oliver77

Trois jours que je parcours le net...

Pourtant, on a en cela en stock dans les archives du forum

afficher-masquer toutes les feuilles d'un classeur

Bonsoir, en VBA comment afficher/masquer toutes les feuilles d'un classeur sauf celle nommée :"principale"? merci de votre aide perdinch

www.excel-downloads.com

Et ci-dessous, macro adaptée, 11 ans après, pour la question de ce fil ( mais sans le If, ce qui fait du code un chouia plus court)
(mais mieux vaut que toutes les feuilles ne commencent pas par CO5)

Sub MasquerAfficher()
Dim c As Worksheet
On Error Resume Next
For Each c In Worksheets
c.Visible = Left(c.Name, 4) = "C05_" = Not c.Visible
Next
End Sub

 

[soan]

@Oliver77, Staple, le fil,

ajout à mon post #2 :

si tu es sûr que les feuilles "C05_" seront toujours à droite de la feuille "P05",
alors tu peux accélérer la macro en évitant le test des 4 premières feuilles :

remplace For i = 1 To Worksheets.Count par For i = 5 To Worksheets.Count

mais tu dois commencer par 5, au cas où il n'y aurait aucune feuille "C05_",
car avec 6, ça planterait, la 6ème feuille n'existant pas.

soan

 

[Oliver77]

Bonsoir Oliver,

ton fichier en retour.

Sub HideShow()
  Dim i%: Application.ScreenUpdating = 0
  For i = 1 To Worksheets.Count
    With Worksheets(i)
      If Left$(.Name, 4) = "C05_" Then .Visible = Not .Visible
    End With
  Next i
End Sub

soan

Salut SOAN,

Je viens de faire un test.
Nickel !

Merci

 

[soan]

@Oliver77

merci pour ton retour !

tu peux aussi lire mon post #4 ci-dessus,
ainsi que le post #3 de Staple.

soan

 

[Staple1600]

Re

=>soan
Cette fois-ci, c'est moi qui est invisible
J'ai du vexer Oliver77 avec mon léger trait d'humour empoussiéré
(cf lien dans message#3)

 

[Oliver77]

Bonsoir le fil, Oliver77, soan

=>Oliver77

Pourtant, on a en cela en stock dans les archives du forum

afficher-masquer toutes les feuilles d'un classeur

Bonsoir, en VBA comment afficher/masquer toutes les feuilles d'un classeur sauf celle nommée :"principale"? merci de votre aide perdinch

www.excel-downloads.com

Et ci-dessous, macro adaptée, 11 ans après, pour la question de ce fil ( mais sans le If, ce qui fait du code un chouia plus court)
(mais mieux vaut que toutes les feuilles ne commencent pas par CO5)

Sub MasquerAfficher()
Dim c As Worksheet
On Error Resume Next
For Each c In Worksheets
c.Visible = Left(c.Name, 4) = "C05_" = Not c.Visible
Next
End Sub
[/code
[/QUOTE]

Salut & merci !😇

 

[Oliver77]

Re

=>soan
Cette fois-ci, c'est moi qui est invisible
J'ai du vexer Oliver77 avec mon léger trait d'humour empoussiéré
(cf lien dans message#3)

Non, pas du tout

 

[Staple1600]

Re

Question existentielle
Pourquoi créer des feuilles dans un classeur si c'est pour les masquer ensuite ?
Vaste débat
(mais c'est un sujet qui ne tombera jamais au bac )

 

[Oliver77]

Je ne suis pas vexé, bien au contraire je suis content d'apprendre.

 

[Staple1600]

Re

=>Oliver77

bien au contraire je suis content d'apprendre.

Justement , je t'apprends que je peux avoir un type d'humour particulier

A là prochaine question, ou au prochain "Allinone", alors

 

[soan]

@Staple1600

clique sur le texte orange « Cliquez pour agrandir... » du post #8.

tout en bas, tu verras : « Salut & merci ! »

@Oliver77

voilà pourquoi il faut éviter d'ajouter du texte entre les balises
d'une citation : taper le texte sous la balise de fin de citation.

soan

 

[Oliver77]

Re

Question existentielle
Pourquoi créer des feuilles dans un classeur si c'est pour les masquer ensuite ?
Vaste débat
(mais c'est un sujet qui ne tombera jamais au bac )

Pour plusieurs raisons :
1/ quand il y a beaucoup de feuilles c'est plus simple de cacher celles dont on n'a pas besoin
2/ Epater les copains
3/ Frustrer les curieux

 

[Staple1600]

Re

=>soan
Merci pour l'info
C'est la faute à ma mode de navigation "raw and wild" sur XLD
(si tu vois de quoi je veux parler)
Dans ce mode, je ne vois pas ce "Cliquez pour Agrandir"