Bonjour
 
Je travaille sous Excel et je cherche à élaborer un indicateur qui change de couleur en fonction de la valeur d'une cellule.
Exemple:  
                On prend un cercle comme indicateur.
                La Cellule A1 contient une valeur entre 0 et 5   ---> le cercle se remplit d'une couleur Jaune
                La Cellule A1 contient une valeur entre 6 et 10   ---> le cercle se remplit d'une couleur Jaune
                La Cellule A1 contient une valeur entre 11 et 15 ---> le cercle se remplit d'une couleur Orange
                La Cellule A1 contient une valeur entre 16 et 20 ---> le cercle se remplit d'une couleur Rouge
 
Je recherche le moyen de programmer en VBA cette indicateur (par exemple un cercle) et lui adjoindre une couleur en fonction d'une valeur contenue dans une cellule et pouvoir l'utiliser avec Excel.
 
Est-ce que quelqu'un a une idée ?
 
Merci d'avance
 

Bonjour,
une partie pour dessiner:
 
set monsheet = worksheets(1)
With monsheet.Shapes.AddShape(msoShapeOval, _
        144, 144, 72, 72)
    .Name = "mon_rond"
    .Fill.ForeColor.RGB = RGB(255, 0, 0)
   ' .Line.DashStyle = msoLineDashDot
End With
 
une partie pour changer la couleur
 
With monsheet.Shapes("mon_rond" )
 
.Fill.ForeColor.RGB = RGB(255, 255, 0)
 
la ligne suivante pour supprimer le dessin si nécessaire  
'.Delete    
End With
 
Cordialement