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

eastwick

XLDnaute Impliqué
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

XLDnaute Barbatruc
Supporter XLD
Bonsoir Eastwick,
Sans fichier test alors un peu au pif, testez :
VB:
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
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

Une autre syntaxe (sans passer par Select)
Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
313 193
Messages
2 096 073
Membres
106 489
dernier inscrit
fabintou