Effacer une image

A

aguwar

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

myDearFriend!

XLDnaute Barbatruc
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]
 

Pièces jointes

  • PourAguwar.zip
    4.6 KB · Affichages: 17

Discussions similaires