Je suis confronté à ce type de colonne ou il y a des textes sous ce texte un
lien hypertexte, j'aimerais savoir de quelle manière
pourrais je afficher à la place ou à coté les url cachés sous ce texte.
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
Daniel
Bonjour. Essaie : Sub test() For Each hl In ActiveSheet.Hyperlinks hl.Range.Offset(0, 1).Value = hl.Address & hl.SubAddress Next End Sub Cordialement. Daniel "Michel a" a écrit dans le message de news:
Bonjour à tous
Je suis confronté à ce type de colonne ou il y a des textes sous ce texte un lien hypertexte, j'aimerais savoir de quelle manière pourrais je afficher à la place ou à coté les url cachés sous ce texte.
Je vous remercie d'avance de votre aide
Michel a
Bonjour.
Essaie :
Sub test()
For Each hl In ActiveSheet.Hyperlinks
hl.Range.Offset(0, 1).Value = hl.Address & hl.SubAddress
Next
End Sub
Cordialement.
Daniel
"Michel a" <ma83@free.fr> a écrit dans le message de news:
uCLLXLAyFHA.720@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
Je suis confronté à ce type de colonne ou il y a des textes sous ce texte
un lien hypertexte, j'aimerais savoir de quelle manière
pourrais je afficher à la place ou à coté les url cachés sous ce texte.
Bonjour. Essaie : Sub test() For Each hl In ActiveSheet.Hyperlinks hl.Range.Offset(0, 1).Value = hl.Address & hl.SubAddress Next End Sub Cordialement. Daniel "Michel a" a écrit dans le message de news:
Bonjour à tous
Je suis confronté à ce type de colonne ou il y a des textes sous ce texte un lien hypertexte, j'aimerais savoir de quelle manière pourrais je afficher à la place ou à coté les url cachés sous ce texte.
Je vous remercie d'avance de votre aide
Michel a
Michel a
Merci Daniel ça fonctionne
A+
Michel a
"Daniel" a écrit dans le message de news:
Bonjour. Essaie : Sub test() For Each hl In ActiveSheet.Hyperlinks hl.Range.Offset(0, 1).Value = hl.Address & hl.SubAddress Next End Sub Cordialement. Daniel "Michel a" a écrit dans le message de news:
Merci Daniel
ça fonctionne
A+
Michel a
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
O75tvXAyFHA.1168@TK2MSFTNGP15.phx.gbl...
Bonjour.
Essaie :
Sub test()
For Each hl In ActiveSheet.Hyperlinks
hl.Range.Offset(0, 1).Value = hl.Address & hl.SubAddress
Next
End Sub
Cordialement.
Daniel
"Michel a" <ma83@free.fr> a écrit dans le message de news:
Bonjour. Essaie : Sub test() For Each hl In ActiveSheet.Hyperlinks hl.Range.Offset(0, 1).Value = hl.Address & hl.SubAddress Next End Sub Cordialement. Daniel "Michel a" a écrit dans le message de news:
