Modifier la couleur de remplissage d'une forme

Bonjour

Je souhaiterai savoir s'il est possible de modifier la couleur de remplissage d'une forme selon la valeur de la cellule qui lui est associée ?

Par exemple, si valeur de la cellule est 0 alors la couleur de remplissage serait jaune et dans le cas contraire, la couleur de remplissage serait rouge.

merci de vos lumières

chb

Bonjour

Un exemple

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H4")) Is Nothing Then
ActiveSheet.Shapes("MaForme3").Select
If Target = 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
ElseIf Target = 1 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
End If

Cordialement

Bonsoir Amadeus

merci pour ton message et le code que tu m'as transmis

je l'ai adapté au fichier joint et cela ne fonctionne pas !

peux tu m'aider ?

merci

Bonjour

1) Je ne vois pas de "Freeform 35" sur ta carte

2) Même s'il y en avait une, cela ne marchera pas car l'ensembre des Freeforms est groupé.

Tu pourrais obtenir un résultat et un fichier plus parlant en suivant les conseils suivants:

1) tu sélectionnes ta carte. Dans la zone de noms, tu vois "Groupe 1"

2) Tu dissocies l'ensemble, les Freeforms sont accessibles

3) Tu changes le nom des Freeforms (pas obligatoire)

Dans le fichier joint, un exemple avec le Nord (La cellule à valider est la L59)

Cordialement

Edit: J'ai remis le Nord à sa place

Merci !!

cela fonctionne très bien !

Bonjour,

CF PJ

=ColorieImage("forme1";SI(A2>0;255;65000))

Ceuzin

Bonsoir à tous les membres du forum !

Votre forum m'a intéressé car je voudrais m'inspirer de ce que vous avez fait pour l'adapter sur ma feuille !

En fait, je voudrais savoir si on pouvait colorer une forme selon les données d'une autre feuille ?

Pour que ce soit plus simple à comprendre, j'ai tout expliqué dans le fichier EXCEL ci-joint!

J'espère que vous arriverez à me comprendre !

Merci aux gens qui prendront de leur temps pour m'aider à trouver une solution à mon problème

J-Baptiste