XL 2016 masquer feuille avec lien hypertexte en vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2020

• #2

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.

 

Pièces jointes

• Nouveau Feuille de calcul Microsoft Excel.xlsm

  21 KB · Affichages: 4

Vote positif 0 Vote négatif

Yücel

XLDnaute Junior

• 23 Septembre 2020

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2020

• #4

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

Vote positif 0 Vote négatif

Yücel

XLDnaute Junior

• 23 Septembre 2020

• #5

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

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2020

• #6

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

Vote positif 0 Vote négatif

Solution

Yücel

XLDnaute Junior

• 23 Septembre 2020

• #7

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

 

Vote positif 0 Vote négatif

Yücel

XLDnaute Junior

• 23 Septembre 2020

• #8

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Septembre 2020

• #9

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

 

Vote positif 0 Vote négatif

Yücel

XLDnaute Junior

• 23 Septembre 2020

• #10

Bonsoir Soan,

Merci ! c'est fait.

Très bonne soirée à vous.

 

Vote positif 0 Vote négatif

Yücel

XLDnaute Junior

• 24 Septembre 2020

• #11

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

Vote positif 0 Vote négatif