Discussion :

[SBranchu]

Bonjour à toutes et à tous,

J'ai créé un lien hypertext qui renvoi à une plage sur une autre page, jusque là pas de pb...
Ca se complique quand je cache cette page : le lien ne renvoie à rien, normal
Comment faire pour qu'en cliquant sur le lien, un macro affiche la page et sélectionne la plage...
J'ai tenté avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    lien = Target.Name
    Sheets("Feuil2").Visible = True
 
End Sub

Il m'affiche bien la page mais il ne va pas à la plage considérée.

J'ai tenté ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    lien = Target.Name
    Sheets("Feuil2").Visible = True
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 
End Sub

Mais là ça tourne en rond...

Il me faudrait un "before click"...

Quelqu'un à une idée ?

Merci,

SB

[halaster08]

Pour l'empêcher de tourner en rond il faut désactiver les évènements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Application.EnableEvents = False
 lien = Target.Name
 Sheets("Feuil3").Visible = True
 Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.EnableEvents = True

C'est normal la définition de lien que n'utilise pas par la suite ?

[SBranchu]

Merci beaucoup !
Ca ne fonctionne pas tout de même, c'est la fonction Hyperlinks qui ne fonctionne pas....
SB

[halaster08]

Sur mon classeur de test ça fonctionne.
Peux-tu être un peu plus précis ? un message d'erreur ? lequel ? a quelle ligne ? Sinon que se passe-t-il ?

[SBranchu]

Sur mon classeur de test ça fonctionne.
Peux-tu être un peu plus précis ? un message d'erreur ? lequel ? a quelle ligne ? Sinon que se passe-t-il ?

En fait la plage à laquelle renvoyait le lien ne s'affiche pas...
Mais pas de souci, j'ai collé une macro sur un bouton en lieu et place, et ça fonctionne nickel !
Merci