Discussion :

[emilie31]

Bonjour,

Je suis en train d'élaborer un fichier excel avec différents onglets.
Sur le premier je souhaiterai afficher la liste complète des onglets avec en face 2 cases à cocher contrôle de formulaire (Oui/non) par exemple.
Si oui est coché on conserve l'onglet, si non est coché, on masque l'onglet.
Est-ce que cela vous semble envisageable avec ou sans macro?

Merci d'avance!

Emilie

[Pierre Fauconnier]

Salut.

C'est possible en VBA.

Je propose de travailler avec un tableau structuré qui contiendra les noms des onglets du classeur et une colonne pour préciser l'option d'affichage. Dans cette colonne, on pourrait placer une liste de validation proposant Oui ou Non.




Je propose de récupérer les noms grâce à la procédure suivante (si c'est un One Shot, on peut bien sûr les saisir manuellement, attention aux espaces à droite qui pourraient traîner)

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
Sub RetrieveTabs()
  Dim sh As Object
 
  ' Vidange du tableau des onglets
  Range("t_Onglets").ListObject.AutoFilter.ShowAllData
  If Not Range("t_Onglets").ListObject.DataBodyRange Is Nothing Then Range("t_Onglets").ListObject.DataBodyRange.Delete
 
  ' Remplissage
  For Each sh In ThisWorkbook.Sheets
    If sh.Name <> "Menu" Then
      Range("t_Onglets").ListObject.ListRows.Add
      Range("t_Onglets[Onglet]")(Range("t_Onglets").Rows.Count).Value = sh.Name
    End If
  Next
End Sub

On peut alors utiliser une procédure qui va boucler sur les lignes de ce tableau et afficher ou masquer l'onglet en fonction de la valeur de la colonne Visible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ShowHideTabs()
  Dim i As Long
 
  For i = 1 To Range("t_Onglets").Rows.Count
    If Range("t_Onglets[Visible]")(i) = "Oui" Then
      Worksheets(Range("t_Onglets[Onglet]")(i).Value).Visible = xlSheetVisible
    Else
      Worksheets(Range("t_Onglets[Onglet]")(i).Value).Visible = xlSheetHidden
    End If
  Next i
End Sub

Par la suite, on peut afficher/masquer sur base d'une modif de la cellule, par exemple, en capturant l'évènement Change de la feuille Menu (dans mon exemple).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("t_Onglets[Visible]")) Is Nothing And Target.Count = 1 Then ShowHideTab Target
End Sub
 
Sub ShowHideTab(Target As Range)
  Dim Index As Long
 
  Index = Target.Row - Range("t_Onglets").Row + 1
  If Range("t_Onglets[Visible]")(Index).Value = "Oui" Then
    Worksheets(Range("t_Onglets[Onglet]")(Index).Value).Visible = xlSheetVisible
  Else
    Worksheets(Range("t_Onglets[Onglet]")(Index).Value).Visible = xlSheetHidden
  End If
End Sub