XL 2016 masquer feuille avec lien hypertexte en vba

Yücel

XLDnaute Junior
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.
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel.xlsm
    23.1 KB · Affichages: 12
Solution
Vraiment pas sur d'avoir compris.
Un essai en PJ.
J'ai modifié les macros des feuilles avec :
VB:
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

XLDnaute Junior
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Feuil16.Visible = False
End Sub
En espérant que cette fois c'est bon.
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel (2).xlsm
    21.6 KB · Affichages: 4

Yücel

XLDnaute Junior
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.
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel (2).xlsm
    23.2 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Vraiment pas sur d'avoir compris.
Un essai en PJ.
J'ai modifié les macros des feuilles avec :
VB:
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
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel (2) (2).xlsm
    22.8 KB · Affichages: 5

Yücel

XLDnaute Junior
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 !
 

Pièces jointes

  • fichier appart.xlsm
    25.6 KB · Affichages: 3

Discussions similaires

Réponses
7
Affichages
436

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG