XL 2016 masquer feuille avec lien hypertexte en vba

[Yücel]

Bonjour,

Je souhaiterai pouvoir effectuer les tâches suivantes :
1/ Feuille_1 : cliquer sur le lien hypertexte "Menu" pour arriver sur l'onglet menu qui est masqué (donc à démasquer)
2/ Feuille_Menu : clique sur le lien hypertexte "1" pour arriver sur la Feuille_1 et masquer masquer par la suite la feuille_Menu.

Chose qui est fait dans le fichier ci-joint !

Mon soucis est que la macro que j'ai fait dans la Feuille_Menu je souhaiterai la rendre générale pour l'ensemble de mes feuilles 1, 2, 3, 4, ...

l'erreur est que lorsque je clique sur le "2" de la Feuille_Menu il me renvoie vers la Feuille_1.
lorsque je clique sur le "3" de la Feuille_Menu il me renvoie vers la Feuille_1.

Vous en remerciant d'avance pour votre aide.

 

[sylvanu]

Bonsoir Yücel,
Un essai en PJ.
J'ai mis la macro Worksheet_FollowHyperlink dans un module général.
Tout à l'air de marcher.

 

[Yücel]

Bonsoir Sylvanu,

Merci pour la réactivité.

C'est pas exactement ce que je voulais.
Vous remarquerez que si vous retirez toutes les macros ça donnera exactement le même résultat car ce qui fait fonctionner dans ce cas c'est uniquement les liens hypertextes.

Dans ce qui a été fait, ça ne me masque pas l'onglet menu une fois sur la feuille 1.

Reprenez mon fichier de base et vous verrez que si vous cliquez dans l'onglet menu sur la cellule 1, l'onglet menu se masque.

Merci à vous

 

[sylvanu]

Oups!
Il faut dupliquer la macro sur chaque feuille pour faire apparaitre le menu.
Dans le menu j'ai rajouté une macro qui masque le menu :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Feuil16.Visible = False
End Sub

En espérant que cette fois c'est bon.

 

[Yücel]

Super Un grand merci Sylvanu !

J'ai une autre petite demande svp.

Si dans l'onglet menu il y a un filtre et que le filtre fasse apparaître de base le "tableau 4" (cf. fichier joint).
Serait-il possible cette fois-ci lorsque je me mets dans l'onglet 1 et que je clique sur "menu" que ca m'affiche uniquement le "tableau 1" ?

Merci d'avance.

 

[sylvanu]

Vraiment pas sur d'avoir compris.
Un essai en PJ.
J'ai modifié les macros des feuilles avec :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Feuil16.Visible = True
    Feuil16.Activate
    ActiveSheet.Range("$B$3:$E$1000").AutoFilter Field:=1, Criteria1:="1" ' Mettre en critère le nom de la feuille.
End Sub

 

[Yücel]

Mille merciiiiiii ! je vous aime ! c'est exactement le résultat finale que je voulais

 

[Yücel]

Lorsque mon problème est résolu, je dois clôturer ? si oui je dois cliquer où ?

 

[soan]

Bonsoir Yücel, sylvanu,

En bas du post qui a résolu ton problème, clique sur le bouton
« Marquer comme solution » ; le fond passera en vert clair.

(donc sur les 2 posts #4 et #6 ; bravo sylvanu !)

soan

 

[Yücel]

Bonsoir Soan,

Merci ! c'est fait.

Très bonne soirée à vous.

 

[Yücel]

Bonjour Sylvanu

J'espère une dernière petite demande please !

De nouveau le même fichier mais cette fois-ci avec l'onglet "biens" que j'ai ajouté.

Dans l'onglet "1" Lorsque je clique sur biens, il me revoie vers l'onglet "assurance" et non l'onglet "Biens".

En vous remerciant d'avance pour votre précieuse aide !