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
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
 

Pièces jointes

  • Liens(1).xlsm
    37.9 KB · Affichages: 6

Discussions similaires

Réponses
3
Affichages
473
Compte Supprimé 979
C
Réponses
0
Affichages
131
  • Question
Microsoft 365 XLOOKUP
Réponses
8
Affichages
368