Discussion :

[laurentdx59]

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

[Menhir]

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

Plus simple :

Code :

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

Sheets("NOM DE LA FEUILLE").Visible = Not Sheets("NOM DE LA FEUILLE").Visible

J'ai écrit cela sur deux macros pour l'instant mais je n'arrive pas à les réunir en une seule.

Code :

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

1
2
3
4
5
6
Sub ClicClacOnglets()
    Dim Onglets As Worksheet
    For Each Onglets In Sheets
        If Onglets.Name <> "SYNTHESE" And Onglets.Name <> "Param" Then Onglets.Visible = Not Onglets.Visible
    Next Onglets
End Sub

[laurentdx59]

Bonjour Menhir,

Merci pour ce retour. Cela fonctionne très bien.

[Pierre Fauconnier]

Salut.

Tu pourrais modifier les codename de tes feuilles (plus difficile à modifier par l'utilisateur du classeur car il doit entrer dans le code). Ton code est alors indépendant du nom de l'onglet et tu évites les problèmes en cas de modification du nom par l'utilisateur...




Tu peux alors travailler directement avec l'objet worksheet voulu

Code :

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

shdata.Visible = not shdata.visible

Tu peux aussi utiliser le codename (le nom vba) dans ton code

Code :

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

1
2
3
4
5
6
7
Sub ViewHideSheets()
  Dim sh As Worksheet
 
  For Each sh In Worksheets
    If sh.CodeName <> "shData" Then sh.Visible = Not shData.Visible
  Next
End Sub

[laurentdx59]

Oui j'y avais pensé également finalement.

Merci quand même pour ce retour !