Bonjour et Bonne Année et Bonne Santé !!!
petit code à tester, en sachant que les images auront comme nom la valeur du combobox avec l'extension ".JPG"
et qu'elles se trouveront dans le dossier Images_banques qui lui sera sur C:\
Private Sub ComboBox1_Change()
Le_chemin_de_mon_Image = "c:\Images_banques\" & ComboBox1.Value & ".jpg"
Image5.Picture = LoadPicture(Le_chemin_de_mon_Image)
End Sub
Après il faut parfaire cette idée en faisant des tests sur l'existance du fichier ou tout simplement en rajoutant
On error resume next avant de demander d'afficher l'imege et en mettant
On Error Goto 0
Private Sub ComboBox1_Change()
Le_chemin_de_mon_Image = "c:\Images_banques\" & ComboBox1.Value & ".jpg"
On Error Resume Next ' inhibition des erreurs
Image5.Picture = LoadPicture(Le_chemin_de_mon_Image) ' si le fichier n'existe pas, pas d'erreur vu l'instruction juste au dessus
On Error Goto 0 ' on remet la gestion des erreurs pour la suite du code
End Sub
@ bientôt
LouReed