XL 2013 Acceder a une feuille masquée grace a hyperlink

[lestoiles1]

Bonjour tout le monde,

Peut-on acceder à une feuille cachée grace a hyperlink?

Merci de votre réponse

lestoiles1

 

[sylvanu]

Bonjour Lestoiles. Il suffit d'essayer. Ca marche, avec Lien Hypertexte.
Mais aprés y avoir accéder, cette dite page n'est plus cachée.

 

[lestoiles1]

non , ca ne marche pas, j'ai déja essayé

 

[sylvanu]

Sorry. J'ai éssayé et ça a marché. Mais après votre réponse j'ai ré essayer et effectivement ça ne marche pas. J'ai du faire une c.....
Je vais chercher.

 

[lestoiles1]

ok merci, je crois qu'on utilise un vb mais je ne connais pas le code

 

[sylvanu]

Exact, j'ai cherché, un lien hypertexte ne permet pas de rendre une feuille visible.
Avec un bout de VBA c'est possible. Voir par exemple : https://forum.excel-pratique.com/viewtopic.php?t=82860

 

[job75]

Bonjour lestoiles1, sylvanu,

Placer dans le code de la feuille du lien (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_FollowHyperlink(ByVal h As Hyperlink)
If h.SubAddress <> "" Then Evaluate(h.SubAddress).Parent.Visible = xlSheetVisible: Application.Goto Evaluate(h.SubAddress)
End Sub

A+

 

[lestoiles1]

Bonjour,
Ca a marché mais je veux aussi le faire remasqué si je clique le lien pour retourner au sheet1 (Menu).
Merci

 

[job75]

Bonjour,

Avec un fichier joint on pourrait tester mais bon, essayez en plaçant dans ThisWorkbook :

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal h As Hyperlink)
If h.SubAddress <> "" Then Evaluate(h.SubAddress).Parent.Visible = xlSheetVisible: Application.Goto Evaluate(h.SubAddress)
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Visible = xlSheetHidden
End Sub

A+

 

[lestoiles1]

merci a ts