image sur un USF

Petchy, le forum


Essaye ce code en ajoutant dans ton UserForm :

Un control image1, et a l'interieur de celui-ci un Label13 ,

A ajouter dans ton listBox qui lance ton descriptif et par la même occasion de ton image, prends soin de modifier le code pour ton ListBox a ce niveau :

With Range("A8:A" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(ListBox1, LookIn:=xlValues)

(Il ne s'appel peu être pas pas ListBox1) et le chemin d'acces ou sont stockés tes images a ce niveau:

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Cell & ".jpg")

Voici ce code :

Private Sub ListBox1_Click()

Dim Cell As Object

On Error GoTo gestion


With Range("A8:A" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(ListBox1, LookIn:=xlValues)

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Cell & ".jpg")
Label16.Visible = False
End With
Exit Sub

gestion: 'si pas d'image disponible pour chargement
If Err.Number = 53 Then

Label16.Caption = "Pas de photo disponible pour cette référence. "
Image1.Picture = LoadPicture()

End If

end sub

Voila, ce code m'a été donné par Michel il me semble (Si je me trompe j'espère que cette personne se reconnaitra), que je remercie grandement, et s'il peu te servire et bien j'en serait ravie, Salut G'Claire

Bonsoir le Forum,

,G'Claire pour se code,il fonctionne parfaitement,à part le Label;quand je click sur un non et qui n'y à pas de photo pas de probleme le message s'affiche bien,si je click sur un Non ou il y a une photo la photo apparait bien et ensuite si je reviend sur le Nom ou il ny à pas de photo la je n'ait pas de message.

Petchy, le forum

Rajoute :

Label16.Visible = True

Juste avant ce code :

Label16.Caption = "Pas de photo disponible pour cette référence. "
Image1.Picture = LoadPicture()

Salut G'Claire