Création d'un hyperlien

[chappyporfaro]

Bonjour le forum,

J'ai puisé ce code dans le fil "Hyperlien" :

Sub Lien_Hypertext()
For Each Cell In Selection
Cell.select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Cell.Value, TextToDisplay _
        :=Cell.Value
Next
End Sub
'En savoir plus sur https://www.excel-downloads.com/threads/hyperlien.20023225/#wGTXvWhCk1zbyTxd.99

J'aimerais que l'adresse de l'hyperlien utilise la valeur de la colonne adjacente tout en conservant la base de ce code (sélection), comme montré dans le fichier joint.

Pouvez-vous m'aider svp ?

 

[Nairolf]

Salut,

Essaye ce code:

Sub Lien_Hypertext()
For Each Cell In Range("A5", [A5].End(xlDown))
Cell.Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("B" & Cell.Row).Value, TextToDisplay:=Cell.Value
Next
End Sub

Tu pourrais aussi le faire via une simple formule (à mettre en C5 par exemple et étirer) :

=LIEN_HYPERTEXTE(B5;A5)

 

[chappyporfaro]

Parfois, je me casse trop la tête même si la solution est si simple

Merci infiniment, ça fonctionne à merveille