Editer lien hypertexte d'images Résolu

Question

bonjour,
j'ai une liste contenant des images dans des cellules et celles-ci ont un lien hypertexte vers des adresses de messagerie différentes.
j'aimerais afficher/éditer le lien de chacune en clair dans une autre cellule.
j'avoue ne pas trouver l'astuce.
merci

cs_Le Pivert · Answer

Bonjour,

en vba voir ce post

https://forums.commentcamarche.net/forum/affich-11888609-sos-excel

Onepat1 · Answer

Merci pour cette réponse rapide mais cela fonctionne pas avec des images.
ou alors je n'ai pas ciblé la bonne cellule:
pourtant mes images sont bien dans la colonne 1

Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub

cs_Le Pivert · Answer

Pour les images c'est différent.

 Essaie ceci:

Option Explicit
Sub LireTexteShapes()
Dim i As Integer
Dim s As Shape
i = 1 'adapter la 1ère ligne
  For Each s In ActiveSheet.Shapes 'parcourt toutes les shapes(image)
     Range("B" & i).Value = s.Hyperlink.SubAddress
  i = i + 1
  Next s
End Sub

@+ Le Pivert

Onepat1 · Answer

Je ne connais pas du tout cette fonction shape !
il me pointe une erreur sur cette ligne: 
Range("B" & i).Value = s.Hyperlink.SubAddress

Onepat1 · Answer

merci pour le lien !
la petite macro ne fonctionne pas.
je vais essayer quelques lignes avec les shapes...

Onepat1 · Answer

Merci
la formule fonctionne parfaitement. !
le codage est un peu au dessus de mon niveau mais le lien sur les shapes est vraiment intéressant.

Editer lien hypertexte d'images

6 réponses

Discussions similaires

Newsletters