Affichage d'image sur UserForm par rapport à ma ListBox

Bonjour;

Je voudrai apparaitre une image sur mon UserForm1, qui correspond au nom d’un item sur ma ListBox1,

  • si le nom de l'item = le nom de l'image stocker dans mon dossier (Préparateur\Information\Photos\Userform) une image apparait.
  • si le nom de l'item n'égale pas le nom de l'image stocker dans mon dossier ; il m'affiche la photos en défaut nommé: "quand il ya pas de photos"

- Ecrivez : bride ou vanne dans TextBox14 puis cliquer sur recherche pour alimenter la ListBox1

- L’adresse de mon fichier Excel : Préparateur\Menu\Préparateur.xlsm

Merci d’avance pour votre soutien, salutations.

194preparateur.zip (217.17 Ko)

Bonjour;

Repense:

Private Sub ListBox1_Click()
Me.ListBox3 = Null

ScrollBarQuantité.Value = ScrollBarQuantité.Min
ScrollBarQuantité.Enabled = False

'### ajout/modif pmo
On Error Resume Next
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Information\Photos\Userform\" & ListBox1.Value & ".jpg")
Me.CommandButton17.Visible = True
If Err <> 0 Then
  Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Information\Photos\Userform\" & "non photos.jpg")
  Me.CommandButton17.Visible = False
  End If
'###

End Sub

Salutations.

Rechercher des sujets similaires à "affichage image userform rapport listbox"