XL 2016 masquer/afficher des feuilles

[eastwick]

Bonjour à toutes et tous, le forum,
Voici ma question : dans le fichier joint, j'ai 3 onglets (plus dans la réalité, mais je veux juste acquérir le principe).
L'onglet base dispose de boutons pour aller ouvrir des feuilles en principe masquées.
J'aimerais donc ouvrir (afficher) ces feuilles masquées en cliquant sur ces boutons. Une fois le travail fini, j'aimerais que la feuille sur la laquelle je viens de bosser se remasque en revenant sur l'onglet base, qui lui, sera toujours visible.
Merci beaucoup.

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[eastwick]

Bonjour
Ci joint ma solution

A+ François

Bonjour et merci François mais ce fichier n'est pas de mon ressort et la personne qui l'utilise souhaite juste masquer la feuille 1 ou 2 en revenant tout simplement dans l'onglet base... J'avais pensé à cette solution, effectivement...

 

[eastwick]

Finalement, ça convient, merci François !

 

[sylvanu]

la personne qui l'utilise souhaite juste masquer la feuille 1 ou 2 en revenant tout simplement dans l'onglet base...

On peut le faire en mettant dans la feuille Base :

Sub Worksheet_Activate()
    Sheets("Feuil1").Visible = False
    Sheets("Feuil2").Visible = False
End Sub

 

[job75]

Bonjour eastwick, François, sylvanu,

Autre solution avec cette macro affectée aux boutons :

Sub Affiche()
If IsError(Application.Caller) Then Exit Sub
With Sheets(ActiveSheet.DrawingObjects(Application.Caller).Text)
    .Visible = xlSheetVisible
    .Activate
End With
End Sub

et dans ThisWorkbook :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If LCase(Sh.Name) <> "base" Then Sh.Visible = xlSheetVeryHidden
End Sub

A+

 

[eastwick]

Merci beaucoup sylvanu et job75