Alimentation d'une image userform

Bonjour à tous,

J'ai un tableau qui reprend les différentes pièce que constitue une figurine.

J'ai créer un userform qui fonctionne très bien (du moins pour ce que je veux faire)

L'orsque je rentre la référence d'une figurine j'ai sa photo et composition qui apparait bien comme je veux.

Seulement j'aimerais que lorsque je clic sur une pièce dans la listbox, l'image apparaisse dans l'encadrer prévu a cet effet.

Je n'arrive pas a récupéré la sélection de la listbox, pour appeler l'image.

Ps: je ne sais pas mettre le dossier complet avec les images

Bonjour,

Un essai ...

je me reprends dans 5 minutes

ric

Bonjour,

Un essai ...

ric

Super.

Merci Ric

Bonjour,

Si tu as des milliers de lignes dans ton fichier de travail > ce code-ci sera beaucoup plus rapide ...

Private Sub List_part_Click()
Dim CherParts As String
Dim X As Long
Dim Img_parts
Dim Tbl()

Application.ScreenUpdating = False

  CherParts = Me.List_part.List(Me.List_part.ListIndex, 0)
  With Worksheets("Figurines")
    ReDim Tbl(1 To Last, 1 To 7)
    Tbl = .Range("A3:G" & Last).Value

    For X = 1 To Last
      If Tbl(X, 4) = CherParts And Tbl(X, 3) = Cherfig Then
        Img_parts = Tbl(X, 2)
        If Dir(Img_parts) <> "" Then
          'si le fichier existe, il est chargé pour visualisation.
          Image_parts.Picture = LoadPicture(Img_parts)
          Image_parts.PictureSizeMode = fmPictureSizeModeZoom
          Exit For
        Else
          'Sinon, affiche aucune image.
          Image_parts.Picture = LoadPicture("")
          Exit For
        End If
      End If
    Next X
  End With
  Erase Tbl
End Sub

ric