apparition d'images en fontion d'une liste déroulante Résolu/Fermé

Question

Bonjour à tous,

J'ai un problème j'ai une liste déroulante colonne C dans mon fichier et j'aimerais que ça me renvoie une image dans la colonne B. J'ai cherché et utilisé la fonctions "les fonctions INDIRECT et  RECHERCHEV" mais je ne peux pas copier cette formule aux autres cellules et celle ci s'efface si je supprime la photo...
Quelqu'un aurait une solution svp?

Mon fichier : https://www.cjoint.com/doc/22_04/LDwn4rfmsWB_Test-img.xlsm
La fonction utilisée : https://www.cjoint.com/c/LDwodR6rm5B

D'avance merci.



Configuration: Windows / Firefox 99.0

Mike-31 · Answer

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

doumyc · Answer

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?

michel_m · Answer

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

Mike-31 · Answer

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

doumyc · Answer

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

Mike-31 · Answer

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

doumyc · Answer

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...

Mike-31 · Answer

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")

doumyc · Answer

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

Mike-31 · Answer

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

doumyc · Answer

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!

Mike-31 · Answer

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.

doumyc · Answer

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

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

13 réponses

Discussions similaires