boucle pour creer lien hypertexte

[CB60]

Bonsoir
Je cherche à faire une boucle sur des "pictures" nommées et leurs créer un lien hypertexte sur le même nom de ma base.

Sub CreeliensImageVersBase()
A = 2 ' ligne 2
   For i = 1 To Sheets("Plan").Pictures.Count ' je compte mes images
     Set S = Sheets("plan").Shapes(i) 'je prend le premier
    Sheets("Plan").Hyperlinks.Add Anchor:=S, Address:="", SubAddress:="base!b" & A
   A = A + 1
   Next i
End Sub

Ce code crée bien un lien, mais il ne s'associe pas correctement (image nommée et le nom de la base)
Avez vous une idée?

 

[Staple1600]

Bonsoir le fil, le forum, CB60

Testé à l'aveugle

Sub CreeliensImageVersBase()
Dim A As Long, S As Shape
A = 2 ' ligne 2
   For i = 1 To Sheets("Plan").Pictures.Count ' je compte mes images
    Set S = Sheets("plan").Shapes(i) 'je prend le premier
   Sheets("Plan").Hyperlinks.Add Anchor:=S, Address:="", SubAddress:="base!b" & CStr(A)
   A = A + 1
   Next i
End Sub

Si je mets 3 images sur la feuille Plan
alors les liens pointeront respectivement vers
base!B2
base!B3
base!B4

Est-ce que c'est bon?

 

[CB60]

Bonjour à tous, Staple
Merci pour la réponse, dommage ça n'a pas fonctionné, bon je n'avais pas mis le fichier!!!

Sub HyperlinksImage()
  For Each S In Sheets("Plan").Shapes
    If S.Type <> 8 Then
      tmp = S.Name
      Valeur_Cherchee = tmp
        Set PlageDeRecherche = Sheets("Base").[légende]
        Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
            If Trouve Is Nothing Then
            AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
        Else
            AdresseTrouvee = "base!" & Trouve.Address
        End If
         If Not IsError(AdresseTrouvee) Then
         Sheets("Plan").Hyperlinks.Add Anchor:=S, Address:="", SubAddress:=AdresseTrouvee
      Else
         S.Hyperlink.ScreenTip = "...."
      End If
    End If
  Next S
End Sub

Je joint le fichier, avec ce code ça fonctionne

 

[Staple1600]

Bonsoir le fil, le forum

@CB60
Si je clique sur l'image des noix, le lien mène vers B6.
C'est bon, non ?
Où sont les autres erreurs?

Spoiler: Déployer liste

Poirier|$B$5
Myrtillier|$B$9
Cassissier|$B$10
Fraisier|$B$12
Kaki|$B$13
Sapin2|$B$15
Mirabellier|$B$19
Cerisier_B|$B$17
marronnier|$B$18
cerisier|$B$4
Noyer|$B$6
Abricotier|$B$3
Erable_pourpre|$B$20
Arbre_a_Papillon|$B$21
Houx|$B$22
Sapin1|$B$14
Fraise_des_bois|$B$16
Framboisier|$B$11
Prunier|$B$8
Pecher|$B$2
figuier|$B$7
Pommier|$B$23
Poirier1|$B$24
Poirier4|$B$27
Poirier3|$B$26
Poirier2|$B$25
Pommier1|$B$28
Pommier2|$B$29
Pommier3|$B$30
Pommier4|$B$31
Poirier5|$B$32
Poirier10|$B$37
Poirier9|$B$36
Poirier8|$B$35
Poirier7|$B$34
Poirier6|$B$33
Pommier5|$B$38
Pommier6|$B$39
Pommier7|$B$40
Pommier8|$B$41
Noyer1|$B$42
cerisier1|$B$43
cerisier2|$B$44
Prunier1|$B$45
Prunier2|$B$46
Prunier3|$B$47

 

[CB60]

Bonjour
Oui Stapple ça fonctionne, si la base et construite en même temps que les images ( dans le même ordre) et que nous ne faisons pas de tris sur celle ci