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