XL 2019 faire apparaitre une image en fonction d'une valeur vrai

[aspect]

bonjour,
j'ai créer un fichier avec en colonne A des cases à cocher VRAI/FAUX qui me sont utiles, je voudrais faire apparaitre en case E3 une images se trouvant dans un onglets "IMAGES", en fonction des cases que j'ai coché en colonne A.
exemple:
Si je coche la case A12 valeur à "VRAI" (les autres valeurs restant à "FAUX") je veux obtenir l'image en E3 de l'image se trouvant dans l'onglet "IMAGES" en cellule C1
Si je coche la case A14 et A15 valeur à "VRAI" (les autres valeurs restant à "FAUX") je veux obtenir l'image en E3 de l'image se trouvant dans l'onglet "IMAGES" en cellule C11
Si je coche la case A14, A16, et A20 valeur à "VRAI" (les autres valeurs restant à "FAUX") je veux obtenir l'image en E3 de l'image se trouvant dans l'onglet "IMAGES" en cellule C13
Si je coche la case A14, A15,A16,A19 et A20 valeur à "VRAI" (les autres valeurs restant à "FAUX") je veux obtenir l'image en E3 de l'image se trouvant dans l'onglet "IMAGES" en cellule C15.

pour information, j'ai dû enlever certaines images car le fichier était trop volumineux

Merci de votre aide
Aspect

 

[riton00]

Bonsoir,

Un exemple de ce que tu peux faire

Slts

 

[aspect]

OK merci, ça me donne déjà une piste, de ce que je peux faire, je vais essayé d'aller plus loin avec les autres cas de figures

 

[aspect]

j'ai voulu la retranscrire dans un autre fichier excel, mais je me retrouve avec une erreur que je n'arrive pas à comprendre. j'ai bien ma feuille principale et ma feuille avec les images.

Sub AffichePomme()
If Range("B14") = False Then 'case à cocher
ActiveSheet.Shapes("Pomme").Visible = False
Else
ActiveSheet.Shapes("Pomme").Visible = True
End If
End Sub

merci pour votre aide
Aspect

 

[riton00]

Bonjour,
Ne peux-tu pas mettre ton fichier à la disposition puisque comme cela de but en blanc c'est difficile de trouver ton problème
Ps: si le fichier est trop volumineux tu peux toujours le transmettre par

https://www.cjoint.com/

Slts

 

[aspect]

Bonjour,
Ne peux-tu pas mettre ton fichier à la disposition puisque comme cela de but en blanc c'est difficile de trouver ton problème
Ps: si le fichier est trop volumineux tu peux toujours le transmettre par

https://www.cjoint.com/

Slts

 

[aspect]

bonjour,
je t'envoi en pièce jointe mon fichier que j'essai de faire.
je te remercie pour l'exemple que tu m'as fourni, par contre lorsque je clic sur mon bouton 'EFFACER' je remets bien mes boutons colonne A à FAUX mais par contre les images restent, aurais-tu aussi une solution
je te remercie beaucoup pour ton aide
aspect

 

[riton00]

Re
Comme tes images ne correspondaient pas aux libellés de la colonne C et étant donné que tu n'a laissé aucune explication j'ai pris ta première case à cocher était en ligne 12 et j'ai pris la photo de la ligne 12 et ainsi de suite jusqu'à la ligne 20 + Bouton EFFACER fonctionnelle

Slts

 

[aspect]

Re
Comme tes images ne correspondaient pas aux libellés de la colonne C et étant donné que tu n'a laissé aucune explication j'ai pris ta première case à cocher était en ligne 12 et j'ai pris la photo de la ligne 12 et ainsi de suite jusqu'à la ligne 20 + Bouton EFFACER fonctionnelle

Slts

 

[aspect]

Top c'est exactement ce que je veux faire, mais comment tu fais pour associer case B12 avec l'Image 1, j'ai essayé de modifier, mais ça ne fonctionne pas
aspect

 

[riton00]

Re
La première des choses est de redimensionner correctement tes images......si tu regardes le fichier que je t'avais joint j'ai redimensionné correctement tes images dans l’onglet IMAGES à partir de le ligne 12 jusqu’à ligne 20.
Puis tu copies une image de ton onglet IMAGES exemple Image1 et tu la colles dans ton emplacement désiré exemple dans l'onglet C9065_C9070 DIMENSIONS cellule B12 (supprimer l'ancienne image) puis tu modifies le code VBA de l'Image12 par Image1 (en fait partout où il y a 12) tu mets 1 puis tu fais un clic droit sur ta case à cocher et tu affectes ta macros sur Image1 et le tour est joué
Slts

 

[aspect]

Re
La première des choses est de redimensionner correctement tes images......si tu regardes le fichier que je t'avais joint j'ai redimensionné correctement tes images dans l’onglet IMAGES à partir de le ligne 12 jusqu’à ligne 20.
Puis tu copies une image de ton onglet IMAGES exemple Image1 et tu la colles dans ton emplacement désiré exemple dans l'onglet C9065_C9070 DIMENSIONS cellule B12 (supprimer l'ancienne image) puis tu modifies le code VBA de l'Image12 par Image1 (en fait partout où il y a 12) tu mets 1 puis tu fais un clic droit sur ta case à cocher et tu affectes ta macros sur Image1 et le tour est joué
Slts

Bonjour,
j'ai suivi tes conseils:
1- j'ai supprimer l'ancienne image
2-j'ai fait un copier / coller de la nouvelle image en B12; feuille C90_9070 DIMENSIONS
3- j'ai modifier le code VBA de l'Image12 par Image1
4- j'ai affecter la macro1 à la case à cocher
j'ai un message d'erreur, "l'élément portant ce nom est introuvable"

Je te renvoi le fichier avec ce que j'ai fait, car je ne vois pas l'erreur que je fais, si tu peux m'expliquer mon erreur afin que je puisse comprendre.
merci
aspect

 

[riton00]

Bonjour,

Je te renvoi le fichier avec ce que j'ai fait, car je ne vois pas l'erreur que je fais, si tu peux m'expliquer mon erreur afin que je puisse comprendre.

Ton fichier est vide aucune image dans la colonne B je ne peux pas te répondre sur ton erreur

Slts

 

[aspect]

Bonjour,



Ton fichier est vide aucune image dans la colonne B je ne peux pas te répondre sur ton erreur

Slts

 

[aspect]

désolé je me suis trompé de fichier, je t'ai renvoyé le bon
aspect