Bonjour Dubdub87,
Voici un exemple simple d'affichage d'image par le biais d'un UserForm.
Et le code ci-dessous:
Dim Cible As String
Private Sub Image1_Click()
ActiveSheet.Range("D10") = Cible 'Insert le chemin de l'image dans la cellule D10
End Sub
Private Sub TextBox1_Change()
' Répertoire des images (format jpg) de l'utilisateur Lambda
Cible = "C:\Users\Lambda\Images\" & TextBox1.Text & ".jpg"
On Error Resume Next
Me.Image1.Picture = LoadPicture(Cible)
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.Text = "Sapin01" ' 1 ière Image à afficher
End Sub
Tout changement valide (image existante) va se répercuter sur le contrôle image.
Et tout clic sur l'image va inclure le lien (chemin ou se trouve l'image) dans la cellule souhaitée.
Bonne continuation