‘Récupérée sur le net, cette fonction permet de remplir une cellule avec l’adresse web d’une autre cellule
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function
‘bricolage à partir de diverses aides en ligne
‘ cette macro nécessite en colonne A les hyperliens, en colonne B les valeurs de cellule et remplit la colonne C avec valeur de B et lien de A paramétré pour s’ouvrir dans une nouvelle fenêtre
Sub peupler()
Dim MaPlage As Range
Dim MaCellule As Range
Set MaPlage = Range(« C2:C1200 »)
Dim lig As Integer
Dim col As Integer
For Each MaCellule In MaPlage
‘ActiveCell.Address = GetURL(ActiveCell.Offset(-2, 0))
‘ActiveCell.Value = ActiveCell.Offset(-1, 0)
‘ActiveCell = ActiveCell.Offset(0, 1)
‘MaCellule.Value = MaCellule.Offset(0, -1)
lig = MaCellule.Rows.Row
col = MaCellule.Columns.Column
ActiveSheet.Hyperlinks.Add Anchor:=MaCellule, Address:=Cells(lig, col – 2).Hyperlinks(1).Address, TextToDisplay:=Cells(lig, col – 1).Value
‘MaCellule.Hyperlinks(1).Follow NewWindow:=True
Next MaCellule
End Sub