Discussion :

[graphikris]

Bonjour,
J'ai un classeur Excel qui fonctionne uniquement avec des UserForm qui s'adaptent à la taille des ecrans.
Pour pouvoir fonctionner, Excel affiche ou cache, par le biais des macros, toutes mes feuilles sauf une (Feuil1).
Toutes mes autres feuilles ont des noms bien définies (ex: Bilan 2017, Archives 2016, etc...)
En cours d'années, je crée des nouvelles feuilles et/ou en supprime.

Je voudrais savoir s'il était possible de masquer la totalité de mes feuilles sauf la Feuil1 et également les proteger sans pour autant les noms individuellement.
Actuellement je modifie a chaque fois mes macros qui ont ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
UserForm_Accueil.Show
    Sheets("Accueil").Protect
    Sheets("Accueil").Visible = False
    Sheets("Fiche 2017").Protect
    Sheets("Fiche 2017").Visible = False
    Sheets("Archive 2016").Protect
    Sheets("Archive 2016").Visible = False
    Sheets("Bilan 2017").Protect
    Sheets("Bilan 2017").Visible = False

[riaolle]

Bonjour,
Regarde ici : http://silkyroad.developpez.com/vba/boucles/#LII
Il y a un exemple qui montre comment faire une boucle sur toutes les feuilles d'un classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Ws In Wb.Worksheets
            '....
        Next Ws

Ensuite, il faut juste mettre une condition pour ne pas prendre en compte la feuille Feuil1.

[graphikris]

Je te remercie. Voici le code. Si ça peut servir a d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
  With sh
   If Not .Name = "Feuil1" Then .Visible = False
  End With
 Next
End Sub

[Nicolas JACQUIN]

Bonjour, j'arrive après la bataille, j'utilise ce code pour masquer toutes les feuilles sauf une, si ça peut aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Feuille As Worksheet
    For Each Feuille In Sheets
    If Feuille.Name <> "Feuil1" Then Feuille.Visible = xlSheetVeryHidden
    Next Feuille

Bien amicalement.