Editer lien hypertexte d'images

Résolu
Onepat1 Messages postés 5 Statut Membre -  
Onepat1 Messages postés 5 Statut Membre -
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

6 réponses

  2.
    Onepat1 Messages postés 5 Statut Membre
     
    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
    0
  3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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

    0
  4. Onepat1 Messages postés 5 Statut Membre
     
    Je ne connais pas du tout cette fonction shape !
    il me pointe une erreur sur cette ligne:
    Range("B" & i).Value = s.Hyperlink.SubAddress
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      essaie cela 

      Option Explicit
Sub Test()
    Dim shp As Shape, c As Range
    'On Error Resume Next
    With ActiveSheet
        For Each shp In .Shapes
            Set c = shp.BottomRightCell
            c.Offset(0, 0) = shp.Hyperlink.SubAddress
        Next shp
    End With
End Sub


      pour en savoir plus sur les shapes

      http://boisgontierjacques.free.fr/pages_site/lesimages.htm#CreationShape

      @+
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Onepat1 Messages postés 5 Statut Membre
     
    merci pour le lien !
    la petite macro ne fonctionne pas.
    je vais essayer quelques lignes avec les shapes...
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Pour des liens sur le web ou adresse sur le pc mettre ceci 

      Sub Test()
    Dim shp As Shape, c As Range
    'On Error Resume Next
    With ActiveSheet
        For Each shp In .Shapes
            Set c = shp.BottomRightCell
            c.Offset(0, 0) = shp.Hyperlink.Address
        Next shp
    End With
End Sub
      0
  7. Onepat1 Messages postés 5 Statut Membre
     
    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.
    0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Lylou -

2 réponses
renommer un lien internet
brian johnson -
pilou67000 -

1 réponse
comment changer le nom d'un lien?
nina20 -
MattisFreeman -

17 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

4 réponses