Bonsoir Licaon leakim le forum
Ta solution Leakim est bonne à mettre à la poubelle!!!! Et en plus en aucun cas elle ne va permettre d'afficher la photo défaut comme le demande Licaon !!!
Si tu gères du vba de la sorte tu ne vas pas aller loin!!!
On error Resume next, est à utiliser quand on ne peut pas faire autrement, car botter en touche c'est facile, mais cela ne règle rien!!!
Licaon ton fichier en retour
a+
Papou
Bonjour et merci pour ce sujet qui m'aide.
Cependant étant un novice je n'arrive pas adapter ce code à mon projet sans sauter l'erreur et afficher l'image par défaut.
Mon fichier se trouve dans M:\TP. Les images dans M:\Tp\RAD.
J'utilise le numéro unique qui se trouve à la 2 ème colonne.
Quand je choisi ma ligne dans ma listbox1 l'image est bien affiché.
Mon problème c'est quand il n'existe pas un. jpg qui correspond à une donnée qui se trouve à la 2 ème colonne de mon row. Il n'y a aucune image ou j'ai juste la dernière image que j'ai visualisé.
Je précise que c'est le seul code que j'ai pris et modifier et que j'ai tout simplement coller entre les deux lignes de ma listebox1. J'ai l'impression que ça coince au niveau "ThisWorkbook.Path & "\RAD\Défaut.jpg"
Merci pour votre aide !
Error Resume Next
If ListBox1.ListIndex = -1 Then Exit Sub
UserForm_R.Image2.Picture = LoadPicture("M:\Tp\RAD\" & ListBox1.List(ListBox1.ListIndex, 1) & ".JPG")
If Dir(adr, vbDirectory) = "" Then
adr = ThisWorkbook.Path & "\RAD\Défaut.jpg"
End If
Image2.Picture = LoadPicture(adr)
On Error GoTo 0