Bonjour,
j'essaie de m'y atteler !
Pour commencer j'ai écrit cette procédure afin de donner aux images des fruits et légumes le nom qui leur correspond au niveau du tableau :
Sub NomLRD()
ligne = 2
Do
If Cells(ligne, 1) = "" Then Exit Do
For Each sh In ActiveSheet.Shapes
If Not Intersect(Range(sh.TopLeftCell.Address), Cells(ligne, 2)) Is Nothing Then
sh.Name = Cells(ligne, 1)
Exit For
End If
Next
ligne = ligne + 1
Loop
End Sub
Comme cela il sera plus facile de cibler une image en fonction de son nom ! Elle n'est à lancer qu'une fois, ou bien lors d'ajout en masse d'image.
J'y retourne.
@ bientôt
LouReeD