VBA - Lien hypertexte vers nom de cellule
Bonjour à tous,
J'aimerais réaliser dans une macro VBA un lien hypertexte sur une cellule (ici A2) qui par l'intermédiaire du nom de la cellule A1: "PLA", renvoie vers cette cellule A1 !
J'ai donc réalisé une mini macro qui crée le nom de cellule de A1: "PLA" et ceci fonctionne correctement. C'est la ligne de code qui suit qui me pose problème, car je n'arrive pas à effectuer ce lien hypertexte via le nom de la cellule. Quelqu'un pourrait-il m'aider ?
Je vous ai joint le fichier en question avec ma mini macro même si elle tient sur deux lignes.
Je vous remercie d'avance,
SkillzZ
Je propose le code :
ThisWorkbook.Sheets("Feuil1").Hyperlinks.Add Anchor:=Sheets("Feuil1").Range("A2"), Address:="", SubAddress:= _
"PLA", TextToDisplay:="Lien"Bonjour,
à tester,
With Worksheets("Feuil1")
.Range("A1").Name = "PLA"
lieu = Application.Substitute(Names("PLA").RefersTo, "=", "")
.Hyperlinks.Add Anchor:=Range("A2"), Address:="", SubAddress:=lieu, TextToDisplay:=lieu
End WithBonjour à tous les deux,
Et merci beaucoup pour vos réponses ! Elles fonctionnent toutes les deux !
J'ai juste un nouveau texte qui apparaît dans la cellule A2 avec le code de i20100
Merci !
À bientôt !
SkillzZ