Bonjour,
Dans le ThisWorkBook :
Sub Workbook_Open()
Sheets("Feuil3").Visible = False
'lister les feuilles avec les détails à rendre invisible comme ca à tous les chargements le fichier
' débute avec les détails cachés, peu importe comment il était au moment de la sauvegarde précédente
End Sub
Après je ne sais pas comment tu retourne à ton menu, mais dans le doute :
Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Menu" Then
Worksheets("Feuil3").Visible = False
' idem lister les feuilles à rendre invisible
End If
End Sub
Comme cela dès que l'onglet Menu devient actif, les feuilles de détails sont toutes re-cachées.
Et dans tes boutons de détails :
Sub Bouton_Cliquer()
' pour le bouton qui mène à la feuille 3
Worksheets("Feuil3").Visible = True
Worksheets("Feuil3").Select
End Sub
N'ayant pas ton fichier, il faut bien sur remplacer les variables par le nom de tes feuilles et de tes boutons.
edit: j'aime les gens comme toi vba-new qui arrive à résumer 15 lignes en 1 seule, ca me laisse admiratif ^^
par contre avec ta proposition, il faut que l'utilisateur, retourne dans le menu et reclick sur le même bouton pour remettre la feuille invisible