Création d'un "MEGA" onglet dans une feuille

Bonjours à tous,

Est-il possible de créer un "GROS" onglet qui lorsque l'on cliquera dessus affichera d'autres "petits onglets" et lorsque que l'on cliquera de nouveau dessus il cachera ces mêmes onglets.

Ce sujet a déjà été abordé mais ma demande est un peu différente. Quelqu'un peut-il m'aider sachant que mon niveau sur Excel est moyen + ?

Merci pour toute considération que vous voudriez bien porter sur ma demande.

Cordialement,

Que veux tu dire par onglet ? Feuille ?

Si c'est cela oui...

Il suffit de faire une macro qui à l'activation de cet onglet si les autres onglets sont masqués te les affiche et s'ils ne le sont pas ils les hide.

J'ai fais un exmple de ce que je voulais,

Je parle bien d'onglet,

Donc l'idée serait de faire une Macro qui hide les onglets choisis quand on clique dessus le MEGA onglet ? et de les faire apparaitre lorsque l'on clique de nouveau dessus ?

merci

Private Sub Worksheet_Activate()
If Sheets("petit ""base"" 1").Visible = False Then
Sheets("petit ""base"" 1").Visible = True
Sheets("petit ""base"" 2").Visible = True
Sheets("petit ""base"" 3").Visible = True
Else
Sheets("petit ""base"" 1").Visible = False
Sheets("petit ""base"" 2").Visible = False
Sheets("petit ""base"" 3").Visible = False
End If
End Sub

A mettre dans le module de ton onglet

MEGA ONGLET BASE

merci pour ta réponse,

J'ai bien l'impression que ca ne marche pas totalement , ça marche que pour le premier MEGA ONGLET "base" et pas pour l'autre groupement MEGA ONGLET EFFECTIF.

Etant débutant sur les macros, il y a peut etre une opération simple que j'aurai oublié de faire ?

(pourtant je l'ai bien mis dans le module de mon onglet MEGA ONGLET BASE)

merci

J'ai essayer avec ce code mais ce ne marche pas

Private Sub Worksheet_Activate()

If Sheets("petit ""base"" 1").Visible = False Then

Sheets("petit ""base"" 1").Visible = True

Sheets("petit ""base"" 2").Visible = True

Sheets("petit ""base"" 3").Visible = True

Else

Sheets("petit ""base"" 1").Visible = False

Sheets("petit ""base"" 2").Visible = False

Sheets("petit ""base"" 3").Visible = False

End If

If Sheets("petit ""effectif"" 1").Visible = False Then

Sheets("petit ""effectif"" 1").Visible = True

Sheets("petit ""effectif"" 2").Visible = True

Sheets("petit ""effectif"" 3").Visible = True

Else

Sheets("petit ""effectif"" 1").Visible = False

Sheets("petit ""effectif"" 2").Visible = False

Sheets("petit ""effectif"" 3").Visible = False

End Sub

...

Tu en fais un que tu mets dans l'onglet mega onglet base et un autre avec ton deuxieme if dans le deuxieme...

Ca marche !

Un grand MERCI pour ton aide !