Autres Masquer/Afficher onglets avec une seule macro

Trois jours que je parcours le net...

Cliquez pour agrandir...

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

Bonsoir Oliver,

ton fichier en retour.

VB:

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

Cliquez pour agrandir...

Staple1600 à dit:

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)

VB:

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 !😇

Cliquez pour agrandir...

Staple1600 à dit:

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)

Cliquez pour agrandir...

bien au contraire je suis content d'apprendre.

Cliquez pour agrandir...

Staple1600 à dit:

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 )

Cliquez pour agrandir...