Changement du couleur de cellule

Bonjour

je cherche un code qui me permet de changer la couleur d'une cellule suivant la valeur d'une autre cellule,

si par exemple j'ai 1 dans la cellule A1 la couleur de cellule A2 sera rouge

et si par exemple j'ai 0 dans la cellule A1 la couleur de cellule A2 sera vert

merci pour votre aide

Bonjour,

Ce n'est les sujets qui manque sur le forum pour t'aider. Une recherche sur "couleur et conditions" par exemple te montrerait pas mal de fils sur le sujets.

Voici toujours un code exemple à placer dans la feuille concernée par les cellules A1 et A2

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro Dan le 01/08
If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Target
Case Is = 1: Range("A2").Interior.ColorIndex = 3
Case Is = 0: Range("A2").Interior.ColorIndex = 43
End Select
End If
End Sub

Pour le placer, clique droite sur l'onglet et choisis l'option "visualiser le code". Coller le code ci-avant dans la fenêtre.

Amicalement

Bonjour meryem, Dan,

Sinon solution sans code, les MFC

Tu peux le gérer très simplement avec la mise en forme conditionnelle.

Sélectionne ta cellule A2, click dans mise en forme conditionnelle, ajouter une nouvelle règle puis Utiliser une formule pour déterminer ...."

Tu mets = $A$1=1 et tu choisis ta mise en forme puis tu le refais une 2ème fois en mettant 0 et la 2ème couleur.

Cordialement.

Bonjour meryem,

Pas besoin de code. Passe par une mise en forme conditionnelle :

Edit : salut Dan, Zirak ! On ne se bouscule pas

Bonjour,

peut-être avec cette Mise en Forme Conditionnelle

Fichier exemple Joint

EDIT: Bonjour le fil... vraiment à la bourre moi!!!

Bonne Journée

Bonjour

tout abord merci pour vos réponses , est ce que on peut l'option la mise conditionnelle si la cellule contient un texte ???

Oui. A toi de faire des tests pour voir par toi-même

Bonjour Dan

si je veux changer le code en utilisant l'événement calculte comment je réécrire mon code

[

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'Macro Dan le 01/08

If Not Intersect(Target, Range("A1")) Is Nothing Then

Select Case Target

Case Is = 1: Range("A2").Interior.ColorIndex = 3

Case Is = 0: Range("A2").Interior.ColorIndex = 43

End Select

End If

End Sub ]

-- 01 Aoû 2011, 16:04 --

Bonjour VBANEW

j'ai fait le test mais ca marche pas c'est pour cela j'ai posé la question

Bonjour,

Pourquoi utiliser l'événement Calculate ??

Vois le fichier joint.

Un changement en A1 mettra A2 en couleur via le code

Un changement en B1 mettre B2 en couleur via une MFC. Pour la MFC voit aussi ce lien --> MFC

Amicalement