Microsoft 365 pb syntaxe range/hyperlinks

[thenesol]

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 ?

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...!

 

[fanch55]

Bonjour,

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 ?

1/ je ne comprends pas pourquoi Sub extract_url() appelle la fonction cellule_url qui est dessous !

Retirez Application.volatile

 

[thenesol]

"cell/cel" oups !
pourtant j'ai relu au moins 10 fois le code, merci !

 

[fanch55]

Pas de pb, cela m'arrive et m'arrivera encore ... 😁