Apparition d'images en fontion d'une liste déroulante

Re,
Salut Michel_m, et merci d'avoir pris le relais.
sans avoir regardé ta proposition, certainement une autre approche que j'ai adaptée vite fait en attendant le retour de Doumyc

https://www.cjoint.com/c/LDyjsT2D2EF

Bonjour,

regarde cette publication ou j'ai donné expliqué les deux possibilités

https://forums.commentcamarche.net/forum/affich-37642405-excel-faire-apparaitre-une-image-sur-une-feuille-de-calcul

Merci justement j'ai utilisé ta méthode :-)
Le problème c'est que je n'arrive pas à dupliquer a toute la colonne et j'aimerais que l'image soit figée dans la cellule.
Peut être devrais je utiliser une macro?

Bonjour Doumyc, Mike

Un exemple avec une petite macro
https://www.cjoint.com/c/LDxhKLvjSvl
,

Bonjour et merci pour vos réponses!
J'ai regardé vite fait et je pense que la solution de Mike-31 sera la plus adapté car les images sont comprises dans le fichier j'essaye de tester ca demain.
Bonne journée

Re,

as tu remarqué que j'ai ajouté un zoom automatique, il suffit de cliquer sur une image pour zoomer et recliquer sur l'image pour dézoomer.
cette fonction peut être supprimée si gênante ou inutile

Bonjour Mike-31 oui merci je viens de tester et de voir cette petite surprise :-D malheureusement quand je l'adapte à mon document j'ai un message d'erreur exécution 1004 "l'index de cette collection est en dehors des limites" et je ne vois pas d’où cela peut venir...

Re,

plusieurs raisons possibles
es ce que ton ordinateur est à l'heure
as tu copié dans un module le code
Agrandir_image()
et
Diminuer_image()
que tu trouveras dans le module
MAJDATE
ensuite dans les propriétés de ta feuille de travail as tu bien placé le code

Private Sub Worksheet_Change(ByVal Target As Range)

et dans ce code as tu adapté le nom de tes onglets de travail
Worksheets("Feuil1")
Sheets("Feuil1")
et de stockage de tes photos
Worksheets("Photos")
Sheets("Photos")

Pour moi tout à l'air bon à part l'heure je suis à l’étranger... je ne sais pas si ça change quelque chose?
Voila l'erreur https://www.cjoint.com/c/LDAofh7pcVB
Après ca marche très bien à part qu'avec ta macro zoom l'image est verrouillée alors que la elle peut être supprimée

Re,

ajoute une gestion d'erreur en début de code
Sub Agrandir_image()
Dim Forme As Shape
On Error Resume Next

ensuite enregistre ton fichier sous pour le renommer pour voir

si le code ne fonctionne toujours pas ça peut venir peut être de l'ARRAY

essaye dans les deux codes Agrandir_image() et Diminuer_image()
remplace cette ligne
ActiveSheet.Shapes.Range(Array(Application.Caller)).Select
par

 ActiveSheet.Shapes(Application.Caller).Select

Aucune des solutions ne marchent mais merci quand même a la limite le zoom n'est pas indispensable c'était un plus lol. Juste est il possible de verrouiller la photo pour qu'elle ne puisse être supprimée?
Encore merci!

Re,

Si tu n'utilises pas le zoom supprime les codes
Agrandir_image()
et
Diminuer_image()

et la ligne ci-dessous dans le code Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Shapes(Imag).OnAction = "Agrandir_image" ' --- affecte à chaque Shape la macro Agrandir_image

pour verrouiller l'image, ça va devenir difficile puisque elle est associée à une validation.

il faudrait voir le fichier complet anonymisé pour écrire un code de protection après la sélection de l'image et de la validation.
il y a longtemps j'avais écrit un code similaire avec déprotection par mot de passe réservé à un responsable pour intervenir en cas d'erreur.

Après avoir regarder en fait ce n'est pas gênant car même si l'image est supprimée le fait de reselectionner dans la liste celle ci revient!
Un grand merci! Bonne continuation