Lier une image dans un useform à un combobox

bonjour à tous,

Je me heurte depuis plusieurs jours au problème suivant : je voudrais lier des photos présentes sur une feuille de mon classeur à une combobox dans un userform pour qu'elle s'affiche dans le userform.

en gros :

• j'ai un userform avec un combobox et un imagebox
• mon combobox avec deux données (ex : pomme, poire)
• une image correspondante à chaque fruit sur une feuille

je veux afficher la photo de la pomme quand je choisi "pomme" dans mon combobox

Mon code jusque la :

Private Sub CommandButton1_Click()

Dim Img

    If ComboBox1 = Sheets(1).Range("B1").Value Then
    Img = Sheets(1).Image1.Picture
    Me.Image1.Picture = LoadPicture(Img)

    End If

    If ComboBox1 = Sheets(1).Range("B2").Value Then
    Img = Sheets(1).Image2.Picture
    Me.Image1.Picture = LoadPicture(Img)

    End If
End Sub

Private Sub UserForm_Initialize()
'remplissage barre deroulante'
ComboBox1.List = Sheets(1).Range("A1:A2").Value
End Sub

Merci a tous

Bonjour Tendral,

Consultes mon blog, je traite un sujet similaire pour un fichier de gestion de recettes culinaires.

A mon humble avis, pour que cela fonctionne, ce serait d'avoir le fichier excel et les images dans un même dossier.

A bientôt

Bonjour et1000lio

J'arrive à obtenir ce que je veux en ayant mes images stockés dans un dossier, mais le ficher étant voué a être partagé j'aimerai pouvoir le faire avec les images directement inclus dans le classeur (quitte a en augmenter le poids). Et ça je n'arrive pas a le faire.

Merci de ta réponse.