Affichage d'une image a partir d'une liste de references

Bonjour,

Mon problème :

Réussir a afficher dans la colonne B dans une case excel une image , en face de la case se situant de la case A avec la référence d'un article.

Imaginons, j"'ai le fichier 4.jpg representant un chien, je voudrais que dans la colonne A, j'ai 4 dans mis dans une cellule, aprés le lancement du script , dans la collone d'a coté la photo du chien apparaisse.

Voici ce que j'ai tenté, mais les images se superposent et se mettent pas dans la cellule.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub ARGOS() ' 'Test Macro '   On Error Resume Next For Each o In Selection o.Activate Z = o & ".jpg" ActiveSheet.Pictures.Insert ("Mon_repertoire" & Z) Next   ' End Sub

---

Bonjour,

Essayez avec votre code modifié

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ARGOS() Dim R As Range Dim R2 As Range Dim Z As String Dim P As Picture '--- On Error Resume Next For Each R In Selection Z = R & ".jpg" Set P = ActiveSheet.Pictures.Insert("Mon_repertoire" & Z) Set R2 = R.Offset(0, 1) P.Top = R2.Top P.Left = R2.Left P.Width = R2.Width P.Height = R2.Height Next R End Sub

---