Extraire URL "web" d'une cellule comme valeur d'une autre

[Elfe_Errant]

Bonjour !

Un truc tout bête mais que je n'arrive pas à faire :

J'ai des cellules en colonne A qui ont pour certaines des URL rattachées (visibles par clic droit - hyperlink). Elles sont donc en bleu, et si je clique cela ouvre le site web.
J'aimerais, en colonne B, récupérer cette URL comme valeur de cellule.

En gros, avant :
---
A1
EXCEL-DOWNLOAD
---
après:
----
A1
EXCEL-DOWNLOAD
B1
https://www.excel-downloads.com/
----

Une idée de formule ?

Merci d'avance !

Ps: Excel 2003 en Anglais.

 

[tototiti2008]

Re : Extraire URL "web" d'une cellule comme valeur d'une autre

Bonjour ElfeErrant,

avec une fonction personnalisée :

Function AdresseLien(Cellule As Range) As String
    AdresseLien = ""
    On Error GoTo Err_Lien
    AdresseLien = Cellule.Hyperlinks(1).Address
    On Error GoTo 0
    Exit Function
Err_Lien:
End Function

 

[Elfe_Errant]

Re : Extraire URL "web" d'une cellule comme valeur d'une autre

Merci de ta réponse !

Pas moyen d'éviter le VBA je suppose ? Je vais tenter le coup