Création Sous-Onglets

[nonolegolfeur]

Bonjour,

J'aimerais savoir s'il est possible de regrouper des onglets pour que certains onglets n'apparaissent que si on clique si un onglets précis ?

En fait il s'agirrait de "sous-onglets" renvoyant vers des pages qui sont rattachées à un page principal.

Par exemple, j'aurais un onglet principal "2007" et en cliquant dessus les 12 onglets correspondants au mois s'ouvriront...

Ce qui m'eviterais d'avoir 60 onglest : 5 ans x 12 mois ... 😀

Bien entendu si je demande ça c'est que les sous-totaux ne sont pas utilisable dans ce cas précis !

Merci d'avance...

 

[Spitnolan08]

Re : Création Sous-Onglets

Bonjour,

Bien sur que c'est possible mais avec un fichier joint ce serait mieux...
Comme pour jouer au golf : il vaut mieux avoir un parcours. Ca indique où envoyer la balle....

Cordialement

 

[Staple1600]

Re : Création Sous-Onglets

Bonjour le forum

Une première approche
'code présent dans la feuile 2007
Private Sub Worksheet_Activate()
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
If Left(sh.Name, 4) = Me.Name Or sh.Visible = xlHidden Then sh.Visible = True
Next
End Sub

Testé avec un classeur contenant
une feuille nommée 2007
et deux feuilles nommées 2007_janvier et 2007_février (xlHidden)

Ca fonctionne

edit: quelques modif s plus tard

Private Sub Worksheet_Activate()
' a mettre dans le code des feuilles nommées XXXX (XXXX=année ex: 2007)
Application.ScreenUpdating = False
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
If Left(sh.Name, 4) = Me.Name Then
sh.Visible = True
Else
If Len(sh.Name) = 4 Then sh.Visible = True
If Len(sh.Name) > 4 Then sh.Visible = xlHidden
End If
Next
End Sub