Discussion :

[cfedou]

bonjour,
j'ai un classeur xls simple avec dans les colonnes A , C, E des données type texte.

je voudrais insérer en colonnes B, D, F des images dont le début du nom correspond au texte des cellules de A, C, E.

par exemple en A2, j'ai le texte "1234" et je voudrais que s'affiche en B2 la photo qui est dans un de mes sous-dossiers rattaché au dossier "pictures", photo nommée "1234_voyage.jpeg"
en A3, j'ai le texte "5896" et je voudrais afficher en B3 la photo "5896_arbre.jpeg"
en c2, j'ai le texte "1475" et je voudrais afficher en d2 la photo "1475_fleur.jpeg"
etc, comme ça sur plusieurs dizaines de lignes.

je précise que toutes les images sont en JPEG et elles sont toutes dans des sous-dossiers différents, mais rattachés à un même dossier "pictures"

idéalement, il faudrait que l'image s'ajuste automatique à la taille de la cellule de destination B2 ou B3.

je sèche complètement !
quelqu'un a-t-il une idée?
merci d'avance pour votre aide

[Daniel.C]

Bonjour,

En supposant qu'il n'y a qu'une image commençant par 1234. Modifie la variable "Chemin" pour l'adapter à ton contexte (mets ce code dans le module de la feuille) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Img As Picture, Nom As String, Chemin As String
    If Target.Column <> 1 And Target.Column <> 3 And Target.Column <> 5 Then Exit Sub
    Chemin = "C:\Users\Daniel\Pictures"
    Nom = Dir(Chemin & "\" & Target.Value & "*.jpeg")
    Target.Offset(, 1).Select
    Set Img = ActiveSheet.Pictures.Insert(Chemin & "\" & Nom)
    Img.Width = Img.TopLeftCell.Width
    Img.Height = Img.TopLeftCell.Height
End Sub