Autres obtenir données sources hyperlien

job75

XLDnaute Barbatruc

• 27 Mai 2019

• #2

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Mai 2019

• #3

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mai 2019

• #4

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

 

Pièces jointes

• Liens(1).xlsm

  37.9 KB · Affichages: 6

Vote positif 0 Vote négatif

P

phenix2007

XLDnaute Nouveau

• 28 Mai 2019

• #5

Merci. Je l'essaie dans mon classeur.

 

Vote positif 0 Vote négatif