Masquer Feuil2, si clic sur onglet Feuil1: Comment faire?

[Halffy]

Bonjour à tous,
Je me trouve face à un nouveau problème: Actuellement, j'ai fait une macro qui en double-cliquant dans une cellule de la Feuil2, masque celle-ci et "active" la Feuil1 / Mais comment masquer Feuil2 si je clic sur l'onglet de la Feuil1 (au lieu de double-cliquer sur une cellule de Feuil2) ?
Je vous joins un fichier explicatif avec mon code, afin de mieux cerner éventuellement ma demande.
Par avance, tous mes remerciements / je vous souhaite un bon week-end.
Halffy /.

 

[phlaurent55]

Re : Masquer Feuil2, si clic sur onglet Feuil1: Comment faire?

Bonjour Halfly,

et pour quoi pas le faire simplement avec des liens hypertexte ???
voir fichier joint

à+
Philippe

 

[Halffy]

Re : Masquer Feuil2, si clic sur onglet Feuil1: Comment faire?

Bonjour phlaurent55,
Avant tout Merci pour ton implication.
Effectivement, j'aurai pu passer par un hyperlien, mais le problème est que ma cellule Feuil1 ne sera pas vide, elle comportera "un nombre" en fait (qui en double-cliquant dessus m'ouvrira la Feuil2 pour plus de détails sur ce fameux nombre).
Cernes-tu mieux le pourquoi du comment de ma requête?
Mais dans tous les cas, Merci beaucoup.
NB: DE plus, ce n'est pas de passer de la Feuil1 vers la Feuil2 qui me pose problème, mais comment masquer Feuil2 en cliquant sur onglet Feuil1 / tu vois ?

 

[Fo_rum]

Re : Masquer Feuil2, si clic sur onglet Feuil1: Comment faire?

Bonjour,

dans ThisWorkbook :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Sheets("Feuil2").Visible = ActiveSheet.Name = "Feuil2"
End Sub

 

[Halffy]

Re : Masquer Feuil2, si clic sur onglet Feuil1: Comment faire?

Bonjour & Merci Fo_rum,
Je me doutais que cela se passerait dans ThisWorkbook, mais je ne connaissais pas la phrase qui allait bien 😱
Tu réponds entièrement à mon problème (qui n'en est plus un 😉) ça marche du tonnerre!
Tous mes Remerciements à vous deux /
Forum toujours aussi efficace je constate (mais je n'en doutais pas).
Un bon week-end à tous, et au plaisir.
Halffy /.