Suivant résultat cellule mettre couleur différente dans forme

[libellule85]

Bonjour le forum,
Les amis j'aurais une nouvelle fois besoin de vous. J'aimerais que la couleur d'une forme change suivant le résultat d'une cellule.
Par exemple, si le résultat de la cellule A3 et négatif la couleur de la forme se met en rouge et en vert si cela est positif.
Est ce possible ??
D'avance merci pour votre aide.

 

[piga25]

Bonjour,

Peut être avec ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then _
Shapes.Range("Rectangle à coins arrondis 1").Fill.ForeColor.RGB = IIf(Target < 0, RGB(255, 0, 0), RGB(0, 186, 80))
End Sub

code à mettre dans la feuille

 

[libellule85]

Bonjour Piga25,
Un grand merci pour ton aide précieuse.
Bon après midi