Effacer une image

[aguwar]

Bonjour à tous

J'ai fais une petite macro pour mettre une flèche dans la colonne D à condition que la valeur de la cellule C de la même ligne soit inférieure à un certain seuil.

Voici la partie qui insère mon image.

Range('D6').Select
ActiveSheet.Pictures.Insert('D:\\Mes images\\FlèchreRouge.bmp').Select
Selection.ShapeRange.IncrementLeft 1.5
Selection.ShapeRange.IncrementTop -6#
Range('C6').Select

Ca marche bien, il ne me reste qu'a faire la boucle conditionnelle.

Mon problème est : quel code utiliser pour effacer les images quand, après correction, la condition n'est plus remplie. Si ce code existe.

Si c'est très compliqué ou impossible je ferais de la MFC.

Merci d'avance pour la réponse.

 

[Claudy]

Salut,
sans macro, une formule dans le fichier joint
A+
Claudy
😉

 

[Claudy]

[file name=Fleche.zip size=9221]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fleche.zip[/file]

 

[myDearFriend!]

Bonsoir aguwar, Claudy,

Le plus simple serait en effet d'éviter de charger une image pour obtenir une simple flèche.

J'avais fait sensiblement la même chose que toi Claudy, mais en ajoutant un format conditionnel pour la couleur.

Ci-joint l'exemple que j'avais préparé...

Cordialement, [file name=PourAguwar.zip size=4751]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourAguwar.zip[/file]

 

[Claudy]

Soir à tous..
reste à voir quel type de flèche, et quelles conditions....
C'est pour cela que j'avais renseigné sur la possibilité d'un choix de flèches différentes dans mon classeur démo...
a+
claudy

 

[myDearFriend!]

Re,

La prochaine fois, je frapperai avant d'entrer.
Toutes mes excuses pour le dérangement...

Bonne soirée.

 

[aguwar]

Bonjour à tous,

Grand merci à Claudy et à myDearFriend!
Cette solution me convient parfaitement et à l'avantage d'être simple.
Merci encore.