Microsoft 365 fonction personnalisée

[thenesol]

bonjour à tous

j'ai écrit cette fonction

Function cellule_url (cel As Range)
Application.Volatile
cellule_url = cel.Hyperlinks(1).Address
End Function

la cellule A1 contient une url, que je veux insérer sous format texte dans B1
dans B1, j'ai écrit =cellule_url(A1)

mais ça ne marche pas
c'est sans doute très bête, mais pourquoi ?

 

[Hasco]

Bonjour,

Si les liens sont créés par formule ils ne sont pas dans la collection des Hypelinks.
Si les liens sont des renvois à l'intérieur du classeur, utiliser la propriété 'SubAddress'
Si les liens sont des renvois vers des documents externes : ??? impossible(pour moi) avec ce que vous nous donnez de déterminer ce qui cloche.
Cordialement

 

[thenesol]

c'est des liens vers le web
mais bon, finalement ça marche en passant par "inserer formule personnalisée", je sais pas pourquoi
merci !