Insérer deux images dans un UserForm

Bonjour

Si quelqu’un pourrait m’aider avec mon code :

J’ai mon formulaire « frmImage ». J’ai un ComboBox1 (liste déroulante) et deux zones (Image1, Image2), je veux que chaque (Image1Picture, Image2Picture) soit en relation avec le même ComboBox1.

Exemple : quand dans mon comboBox s’affiche AE140 mon (Image1 :AE140) et (Imege2 :AE140-2)

Les photos sont dans un répertoire.

Mon code marche que pour l’Image1 et je ne sais pas comment faire pour le Image2

Merci pour votre réponse

Private Sub ComboBox1_Change()

Dim FOTO As String

I = Me.ComboBox1.ListIndex + 2

On Error GoTo defaut

PHOTO = ComboBox1.Value

Image1.Picture = LoadPicture("C:\Users\Utilisateur\Desktop\PHOTO\" & ComboBox1.Value & ".jpg")

Exit Sub

defaut:

Image1.Picture = LoadPicture("C:\Users\Utilisateur\Desktop\PHOTO\defaut.jpg")

End Sub

Bonjour,

À tester ...

PHOTO = ComboBox1.Value
Image1.Picture = LoadPicture("C:\Users\Utilisateur\Desktop\PHOTO\" & ComboBox1.Value & ".jpg")
Image2.Picture = LoadPicture("C:\Users\Utilisateur\Desktop\PHOTO\" & ComboBox1.Value & "-2.jpg")

Gelinotte

Bonjour

ça marche très bien !!!!!

Merci beaucoup