Microsoft 365 pb syntaxe range/hyperlinks

thenesol

XLDnaute Nouveau
bonjour à tous

j'ai 2 pbs avec le code ci dessous, qui est supposé copier les url d'une plage de cellules et les inscrire en texte dans la colonne adjacente

1/ je ne comprends pas pourquoi Sub extract_url() appelle la fonction cellule_url qui est dessous !
2/ pourquoi la phrase cell.Hyperlinks(1).Address.Copy cel.Offset(0, 1) qui permet a priori de faire la même chose que les 2 lignes juste au dessus génère une erreur ?

VB:
Sub extract_url()
Dim rng As Range
Dim row As Range
Dim cell As Range
Dim url As String

Set rng = Selection

  For Each cell In rng
  url = cell.Hyperlinks(1).Address
  cell.Offset(0, 1) = url
 
'  cell.Hyperlinks(1).Address.Copy cel.Offset(0, 1)
 
  Next cell

End Sub

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

merci...!
 

Discussions similaires

Statistiques des forums

Discussions
298 015
Messages
1 965 153
Membres
200 864
dernier inscrit
b.sami