XL 2016 saisir un lien hypertexte depuis un nom dans une cellule

[eastwick]

Bonjour le forum,
Voilà mon souci : je souhaite par macro saisir en colonne M un lien hypertexte dont le libellé est en colonne AL.
Il faut copier le contenu de la cellule (et non la cellule) puis clic droit en M, choisir lien hypertexte et coller ledit contenu.
Ceci pour 150 lignes environ. J'aimerais utiliser les références relatives pour réitérer la macro à chaque ligne.
Je vous remercie.

 

[sylvanu]

Bonsoir Eastwick,
Sans fichier test alors un peu au pif, testez :

Sub CopierLien()
    For L = 1 To 150                ' A adapter, ici de la ligne 1 à la ligne 150
        Valeur = Cells(L, "AL")
        Cells(L, "M").Select
        On Error Resume Next
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Valeur, TextToDisplay:=Valeur
    Next L
    [A1].Select
End Sub

 

[eastwick]

Epatant, merci !

 

[Staple1600]

Bonsoir le fil

Une autre syntaxe (sans passer par Select)

Sub LiensSansSelect()
Dim vArr, i&
    With ActiveSheet
        vArr = .Range(.Cells(1, "AL"), .Cells(Rows.Count, "AL").End(xlUp)).Value
        For i = 1 To UBound(vArr, 1)
        .Hyperlinks.Add Anchor:=.Cells(i, "M"), Address:=vArr(i, 1), TextToDisplay:=vArr(i, 1)
        Next i
    End With
End Sub

NB: test OK avec des URL de sites web en colonne AL

 

[job75]

Bonjour eastwick, sylvanu, JM, le forum,

Formule en M2 =LIEN_HYPERTEXTE(AL2)

qu'on peut (est-ce nécessaire ?) entrer par macro en adaptant la plage :

Sub Lien()
[M2:M150] = "=HYPERLINK(RC[25])"
End Sub

A+