Feuille visible

Bonjour à tous

Dans un classeur excel je souhaite n'afficher que certaines feuilles au démarrage

Chose que je sais faire avec le code

Private Sub Workbook_Open() ' A REMETTRE
Application.Visible = True
Application.AlertBeforeOverwriting = True

Dim cptr As Byte
For cptr = 1 To ThisWorkbook.sheets.Count
    If sheets(cptr).name <> "ACCUEIL" _
    And sheets(cptr).name <> "Feuil1" _
    And sheets(cptr).name <> "test" _
    And sheets(cptr).name <> "Feuil3" _
    And sheets(cptr).name <> "elle" _
    And sheets(cptr).name <> "lui" _
    And sheets(cptr).name <> "Feuil7" _
    And sheets(cptr).name <> "toi" _
    And sheets(cptr).name <> "Feuil9" Then

        sheets(cptr).Visible = 0

    End If
Next
If sheets("REGLAGES").Range("b100").Value = "D" Then
Application.ActiveWindow.DisplayGridlines = True
Else
Application.ActiveWindow.DisplayGridlines = False
End If

Est cela fonctionne très bien si je renseigne les noms des feuilles et que celle-ci ne change pas de nom

Dans la feuille « REGLAGES » j’ai 2 groupes de nom de feuille

1er groupe « feuille visible » les noms dans les cellules me serviront à créer par la suite les onglets

2esgroupe « Feuille cacher » ces noms dans les cellules sont des onglets fixes et ne changeront donc jamais

Ma question :

Est -il possible dans le Workbook Open() de n’ouvrir que les feuilles visibles ( les noms dans la feuille REGLAGES à partir de la cellule A6) sans devoir inscrire les noms de feuilles comme ci-dessous

Dim cptr As Byte
For cptr = 1 To ThisWorkbook.sheets.Count
    If sheets(cptr).name <> "ACCUEIL" _
    And sheets(cptr).name <> "Feuil1" _
    And sheets(cptr).name <> "test" _
    And sheets(cptr).name <> "Feuil3" _
    And sheets(cptr).name <> "elle" _
    And sheets(cptr).name <> "lui" _
    And sheets(cptr).name <> "Feuil7" _
    And sheets(cptr).name <> "toi" _
    And sheets(cptr).name <> "Feuil9" Then

Merci pour votre aide

Bonjour,

Tu pourrais te faciliter grandement la vie en utilisant les 'CodeNames' ... au lieu des Noms des Onglets ...

En espèrant que cela t'aide ...

merci pour la réponse

avec plus de 150 feuilles je cherche une solution plus rapide

meteo62 a écrit :

merci pour la réponse

avec plus de 150 feuilles je cherche une solution plus rapide

De rien ...

Une boucle sur l'index Sheets(i) ... et en trois lignes de code ... tu balayes n onglets ...

ah ok merci

Re,

Content que cela puisse t'aider ...

Merci ... pour tes remerciements ...