Autres obtenir données sources hyperlien

phenix2007

XLDnaute Nouveau
Bonjour,
Je désire obtenir la cellule source d'un hyperlien lorsque je clique sur celui-ci afin de revenir à mon point de départ.
Est-ce que cela est possible en VBA ?
 

job75

XLDnaute Barbatruc
Bonjour phenix2007, bienvenue sur XLD,

Quand on clique sur un lien hypertexte on est dirigé vers l'objet (une cellule Excel par exemple) défini par le lien, un point c'est tout.

A+
 

job75

XLDnaute Barbatruc
Pour obtenir l'adresse de la cellule où se trouve le lien hypertexte cliqué mettre cette macro dans ThisWorkbook :
VB:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal h As Hyperlink)
Dim ad As String
ad = "'" & Sh.Name & "'!" & h.Parent.Address(0, 0)
MsgBox "Cellule du lien : " & ad 'pour tester
End Sub
A+
 

job75

XLDnaute Barbatruc
Pour pouvoir revenir à la source la variable ad est déclarée Public, voyez ce code dans le fichier joint :
VB:
Public ad As String

Sub Retour()
On Error Resume Next
Application.Goto Evaluate(ad)
End Sub
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas