Coller "une gommette " dans une cellule

Bonsoir,

Dans un tableau de bord pour mon boulot, dans un ficher excel avec excel 2003 maxi je souhaite coller dans une cellule une "gommette" verte si sa cellule voisine de gauche est >= 0,95; si la cellule voisine de gauche est <0,95 une gommette rouge et enfin une gommette blanche sir la cellule voisine de gauche est non numérique.

Les trois gommettes sont des images d'un simple rond colorié, elles sont présentes dans le fichier excel.

Je sais que l'on pourrait faire une cellule pleine mais ceci ne plait à ma hiérarchie.

Par avance merci de votre aide.

Bonsoir

Pas de solution mais peut-être une aide

Du Maitre TI (Paix à son âme)

Bonjour,

Avec MFC: cf Pièce Jointe

Avec VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([C7:C1000], Target) Is Nothing And Target.Count = 1 Then
  For Each s In ActiveSheet.Shapes
    If s.Type = 1 Then
      If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then s.Delete
    End If
   Next s
   If Not IsNumeric(Target) Then
     nom = "égal"
   Else
     nom = IIf(Target >= 0.95, "plus", "moins")
   End If
   ActiveSheet.Shapes(nom).Copy
   Target.Offset(0, 1).Select
   ActiveSheet.Paste
   Selection.ShapeRange.Left = ActiveCell.Left + 7
   Selection.ShapeRange.Top = ActiveCell.Top + 5
   Target.Select
  End If
End Sub

Héroux