Insertion d'image selon des conditions

Bonjour à tous et bonjour à Vincent91,

J'ai lu cette discussion.
C'est tout à fait ce que je cherche.

J'ai des tableaux statistiques et en fonction de la variation (en pourcentage histoire de compliquer les choses) j'aimerais que s'ajoute une image pour chaque tableau. après des heures de recherche sur internet j'ai fini par tomber sur ton message et c'est tout à fait ce que je recherche.

Afin de comprendre comment faire fonctionner le code que proposait mercatog, je suis partie de ton fichier.

J'ai bien suivi les instructions (à savoir changer le chemin) mais je ne comprends pas, l'image ne change pas selon les données renseignées !!!

Je ne remets pas de fichier joint puisque j'ai utilisé le tien justement pour comprendre comment ça fonctionnait.

Il faut savoir que je suis novice en la matière donc je pense qu'il y a quelque chose que je ne dois surement pas faire correctement !!!

En tout cas si quelqu'un peut m'aider ça serait cool :D

Merci d'avance.

Sophie

Bonjour
Il fallait mettre le code dans le module de la feuille en question

Bonjour et merci beaucoup Mercatog.

Effectivement ça fonctionne impeccable.

J'abuse encore du forum pour pousser plus loin dans mon problème, en fait j'ai un fichier statistique et j'aimerais qu'une image s'insère en fonction du résultat obtenu dans une cellule. Je voudrais donc adapter ce code mais malheureusement je n'y arrive pas puisque Vincent91 faisait une moyenne sur les 5 derniers résultats alors que moi c'est uniquement sur un résultat.

J'ai testé plusieurs chose et j'ai essayé de modifier le code du fichier météo mais je n'arrive pas à obtenir ce que je souhaite.

Je sais ce que je veux faire mais je n'arrive pas à le transcrire en VBA : si dans la cellule B2 la valeur est inférieure à -1% alors il faut charger x photo, si elle est supérieur à +1% alors x photo et sinon une autre.

Mon soucis est qu'en plus dans votre code, je ne sais pas ce que veux dire la partie ci-dessous :

Code:

---

1 2 3 4 5 6 7

If Target.Count = 1 And Target.Column = 2 And Target.Row > 1 Then R = Target.Row If R <= 6 Then S = 2 Else S = R - 4 End If

---

Merci d'avance pour votre aide.

Cordialement

Sophie

Tiens une adaptation de ce code qui pourrai t'aider :

Insertion image dans cellule

Bonjour,

Désolée de ne pas avoir répondu plus tôt. Merci pour le lien, en fait c'est mon chef qui a travaillé sur le problème pendant le week-end !!! :oops: ça fonctionne impeccable. merci à tous pour votre aide.

cordialement

sophie