VBA : lien hypertexte

[jmcemoa]

Bonjour tout le monde,
utilisateur de macro excel 4, je suis assez novice en VBA.
Je travaille sur excel 2003 avec windows XP.

la formule pour créer un lien dans une cellule est :
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="xxx", ...

Comment remplacer l'adresse "xxx" par le contenu d'une autre cellule.

pour info : en excel4, j'utilisais la formule lire.cellule(5)

Merci beaucoup de m'aider à passer ce cap.
Cordialement,

 

[ODVJ]

Re : VBA : lien hypertexte

Bonsoir,

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=[D8]

le lien contenu dans la cellule D8 sera mis sur ta sélection.

cordialement

 

[Jacou]

Re : VBA : lien hypertexte

Bonsoir,
essaie
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= Range(C5).Value, ...
ou bien
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= Cells(3,5).Value, ...

Bonne soirée

 

[jmcemoa]

Re : VBA : lien hypertexte

Merci à ODVJ et Jacou.
J'ai essayé les réponses et cela marche 🙂 pour :
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=[B3]
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("B3")
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("B3").Value

Par contre, je m'aperçois que ma question n'était pas assez précise.
En effet, je construis une "macro" et je suis dans une boucle ; l'adresse doit alors changer et être en relatif par rapport à la cellule active (celle juste à droite).
Dans les essais, j'ai mis Cells(,1) qui me paraissait une bonne idée, mais cela n'a malheureusement pas fonctionné🙁

Merci d'avance de continuer à m'aider
Cordialement,
Jean-Marie

 

[jmcemoa]

Re : VBA : lien hypertexte

Bonsoir ou bonjour,

Ouf ! 🙂
grace à la piste laissée par les précédentes réponses, j'ai continué à chercher et finalement, j'ai pu trouver mon bonheur avec l'adresse suivante

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Offset(, 1)

Merci encore à ODVJ et Jacou 😀 et aussi à tous ceux qui prennent un peu de leur temps pour aider à résoudre nos problèmes.

Bien cordialement,
Jean-Marie