Bonjour à tous,

Je travaille sous Excel 2013.

Je souhaite créer une macro un peu plus évoluée que celle que j'utilise actuellement pour afficher/masquer certains onglets de mon classeur.

Pour l'instant, je passais par une macro qui nommée mes feuilles du type:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If Sheets("NOM DE LA FEUILLE").Visible = True Then
Sheets("NOM DE LA FEUILLE").Visible = False
Else
Sheets("NOM DE LA FEUILLE").Visible = True
End If

A présent, je souhaite faire une macro qui ne nomme pas le nom de mes feuilles au cas où une personne utilisant le fichier change le nom des feuilles. De plus, je veux que, via un seul bouton, je puisse afficher/masquer les feuilles.

J'ai écrit cela sur deux macros pour l'instant mais je n'arrive pas à les réunir en une seule. De plus, je nomme quand même les feuilles "SYNTHESE" et "Param" dans ma macro. Du coup, je dois espérer que personne ne change le nom de ces feuilles:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MasquerOnglets()
 
Dim Onglets As Worksheet
 
        For Each Onglets In Sheets
 
            If Onglets.Name <> "SYNTHESE" And Onglets.Name <> "Param" Then
 
            Onglets.Visible = False
 
            End If
 
        Next Onglets
 
 
End Sub

--------------------------------------------------------------------------------------


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub AfficherOnglets()
 
 
Dim Onglets As Worksheet
 
    For Each Onglets In Sheets
 
    If Onglets.Name <> "SYNTHESE" And Onglets.Name <> "Param" Then
 
 
    Onglets.Visible = True
 
    End If
 
Next Onglets
 
 
 
End Sub



Dans l'attente de vous lire,


Merci à vous,

Laurent