image sur un USF

[petchy]

Bonjour le Forum,

un grand MERCI à Ti et Vériland pour le prog sur les gifs.
Mais je n'arrive pas mettre une image sur un USF en clickant sur un Nom qui se trouve dans une listbox dans se meme USF,pourtant j'ai bien décortiqué le programme j'ai essayé plein de code et il met des erreurs.
je décrit se que j'ait dans l'USF:
une listbox avec une centaines de Noms quand je click sur un Nom j'ai le desciptif qui apparait et je voudrais que la photo apparaisse.

merci

 

[G'Claire]

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

 

[petchy]

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.

 

[G'Claire]

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