Discussion :

[appericube49]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PMO2017]

Bonjour,

Essayez avec votre code modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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