Inserer une image lors d'un clique sur un bouton

Bonjour à tous,

je souhaite créer un un classeur afin d'imager certains produit.

Je m'explique, j'ai 1 seul feuille de calcul nommée "RFI", celle-ci est composé de 8 boutons.

Je souhaite dès lors que j'appuie sur l'un d'eux une image s'affiche au niveau du coin à gauche de la cellule D3 de cette même feuille.

j'ai commencé mon code avec les différents chemin de mes différentes photos que je veux relier à chaque bouton mais étant novice je ne sais quelle fonction utilisée par la suite.

Merci de vos réponses

Bonjour,

Voici un premier essai en utilisant la méthode .addpicture :

Sub Inserer()
path = ...
with range("D3")
    if ShapeExiste("image") then .parent.shapes("image").delete
    .parent.shapes.addpicture(path, msofalse, msotrue, .left, .top, -1, -1).name = "image"
end with
End Sub

function ShapeExiste(sName$) as boolean
on error resume next
ShapeExiste = Activesheet.shapes(sName).ID
end function

Je ne sais pas si avoir 8 boutons avec 8 codes est la meilleure chose à faire. Au-delà, il faudrait songer à d'autres solutions, par exemple avoir un tableau avec un nom clé dans une colonne rattaché au chemin de l'image correspondante dans une seconde colonne.

Cdlt,

Bonjour,

désolé, je n'avais pas vu ta réponse, mais tu as raison j'ai un peu adapté ton code et cela me convient.

Il est possible que je ré ouvre ce sujet par la suite afin de créer le même type de code mais avec plus d'image.

Cependant je mets ce post en "résolu".

Merci beaucoup pour le coup de main.