VBA Mettre nom/N° shape sous variable

[herve62]

Bonjour
Dans le fichier joint , la feuille "catalogue" va être le résultat d'une copie et j'aimerai à la fin affecter un lien hyperText à l'image la macro fonctionne
ne reste plus qu'à trouver comment récupérer le nom de la shape en B et le re injecter dans "array" ?
Je cherche , mais avec votre aide cela sera peut être plus rapide , voire autre méthode !!
Merci

 

[mapomme]

Bonsoir @herve62 ,

Voir dans le fichier joint, une fonction appelée NOM qui prend en argument une cellule. Pour cette cellule, la fonction renvoie le nom de la 1ère image trouvée sur la ligne de la cellule.

 

[herve62]

Bonjour , Slt @mapomme
Merci bien mais comme à chaque fois je continue de chercher en // , donc j'avais trouvé cette méthode certainement plus archaïque
que la tienne
Ce matin j'ai poursuivi en affectant en "dur" le nom des "picture.." pour ne pas aller jusqu'à des "picture 2586 ......." car à chaque MAJ de la feuille l'ancienne image sera supprimée pour une nouvelle !! et si je me rappelle ( il y a plus de ... 10 ans !) on ne sait pas faire de RAZ !
et puis au cas ou ... dans le futur !! je saurais qu'en ligne 12 ce sera toujours "image12" !
Juste un truc : j'ai pas pigé le comment du nom de ton image ??
Encore merci ; A+

 

[laurent950]

Bonjour Herve62,

Comme ceux-ci cela peut être correcte ?

Sub hyper()
Dim s As Shape
With Worksheets("Catalogue")
    dl = .Range("A100").End(xlUp).Row
  For x = 5 To dl
  ch = .Cells(x, 5).Text
  's = .Shapes.Range("b" & x).Name
  's.Name = s.TextFrame.Characters.Text
  ' PERMETTRE DE METTRE VIA VARIABLE LE N° SHAPE DE  LA COL B
        'MsgBox .Shapes(ActiveSheet.Shapes.Count).Name
        'MsgBox .Shapes(x - 4).Name
        MsgBox .Shapes(x - 4).Select
  ' Il faudrait récupérer le nom/N° de l'image en B comme N_img="Picture 3"
        MsgBox .Shapes(x - 4).Name
  ' le liens
  ActiveSheet.Hyperlinks.Add Anchor:=.Shapes(x - 4), Address:=ch
  Next x
End With
End Sub