Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Lien hypertexte: comment obtenir l'adresse

Lien hypertexte: comment obtenir l'adresse

4 réponses
Avatar
Arthus
Bonjour,
Je seche: Dans une premiere colonne j'ai des lien hypertexte. Comment
obtenir les adresses dans une deuxieme colonne?
Merci d'avance
Arthus
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.j
Bonsoir,

Avec cette macro:
Sub CopiLien()
'ecrit l'URL à droite (selectionner la zone)
Selection.Cells(1, 1).Activate
For i = 0 To Selection.Rows.Count - 1
On Error Resume Next
ActiveCell.Offset(i, 1).Value = ActiveCell.Offset(i,
0).Hyperlinks.Item(1).Name
Next
End Sub

--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm



"Arthus" <arthus(enlever)@free.fr> a écrit dans le message de news:
42937611$0$11724$
Bonjour,
Je seche: Dans une premiere colonne j'ai des lien hypertexte. Comment
obtenir les adresses dans une deuxieme colonne?
Merci d'avance
Arthus





Avatar
Arthus
Et en plus ça marche
N²²²²²
Merci
Arthus

"Daniel.j" a écrit dans le message de news:

Bonsoir,

Avec cette macro:
Sub CopiLien()
'ecrit l'URL à droite (selectionner la zone)
Selection.Cells(1, 1).Activate
For i = 0 To Selection.Rows.Count - 1
On Error Resume Next
ActiveCell.Offset(i, 1).Value = ActiveCell.Offset(i,
0).Hyperlinks.Item(1).Name
Next
End Sub

--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > Adresse: http://dj.joss.free.fr/faq.htm



"Arthus" <arthus(enlever)@free.fr> a écrit dans le message de news:
42937611$0$11724$
Bonjour,
Je seche: Dans une premiere colonne j'ai des lien hypertexte. Comment
obtenir les adresses dans une deuxieme colonne?
Merci d'avance
Arthus









Avatar
Starwing
Bonjour Daniel.j,

Il me semble que le Môssieux voulait obtenir les adresses. La solution
proposée renvoie la zone de texte à afficher, si je modifie le texte à
afficher par toto, le résultat sera toto et non l'adresse.
Je proposerai donc de modifier cette ligne de code:
ActiveCell.Offset(i, 1).Value ActiveCell.Offset(i,0).Hyperlinks.Item(1).Name
Par:
ActiveCell.Offset(i, 1).Value ActiveCell.Offset(i,0).Hyperlinks.Item(1).address
;-)
Starwing
"Daniel.j" a écrit dans le message de
news:
Bonsoir,

Avec cette macro:
Sub CopiLien()
'ecrit l'URL à droite (selectionner la zone)
Selection.Cells(1, 1).Activate
For i = 0 To Selection.Rows.Count - 1
On Error Resume Next
ActiveCell.Offset(i, 1).Value ActiveCell.Offset(i,0).Hyperlinks.Item(1).Name
Next
End Sub

--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > Adresse: http://dj.joss.free.fr/faq.htm



"Arthus" <arthus(enlever)@free.fr> a écrit dans le message de news:
42937611$0$11724$
Bonjour,
Je seche: Dans une premiere colonne j'ai des lien hypertexte. Comment
obtenir les adresses dans une deuxieme colonne?
Merci d'avance
Arthus









Avatar
Daniel.j
Bonjour Starwing,
Je vois qu'il y en a qui suivent :o)))
Daniel

"Starwing" a écrit dans le message de news:

Bonjour Daniel.j,

Il me semble que le Môssieux voulait obtenir les adresses. La solution
proposée renvoie la zone de texte à afficher, si je modifie le texte à
afficher par toto, le résultat sera toto et non l'adresse.
Je proposerai donc de modifier cette ligne de code:
ActiveCell.Offset(i, 1).Value > ActiveCell.Offset(i,0).Hyperlinks.Item(1).Name
Par:
ActiveCell.Offset(i, 1).Value > ActiveCell.Offset(i,0).Hyperlinks.Item(1).address
;-)
Starwing
"Daniel.j" a écrit dans le message de
news:
Bonsoir,

Avec cette macro:
Sub CopiLien()
'ecrit l'URL à droite (selectionner la zone)
Selection.Cells(1, 1).Activate
For i = 0 To Selection.Rows.Count - 1
On Error Resume Next
ActiveCell.Offset(i, 1).Value > ActiveCell.Offset(i,0).Hyperlinks.Item(1).Name
Next
End Sub

--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > > Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > > Adresse: http://dj.joss.free.fr/faq.htm



"Arthus" <arthus(enlever)@free.fr> a écrit dans le message de news:
42937611$0$11724$
Bonjour,
Je seche: Dans une premiere colonne j'ai des lien hypertexte. Comment
obtenir les adresses dans une deuxieme colonne?
Merci d'avance
Arthus