Macro couleur pour valeur

[A.G.]

Bonjour,

Je débute en VBA et je n'arrive pas à solutionner le problème suivant.

Dans mon tableau excel :

- Si la valeur de la cellule M9 est < que la valeur de la cellule E9, la cellule M9 doit devenir de couleur rouge.

- Si la valeur de la cellule M9 est > que la valeur de la cellule E9, la cellule M9 doit devenir de couleur verte.

- Si la valeur de la cellule M9 est = à la valeur de la cellule E9, la cellule M9 doit devenir de couleur bleue.

Je remercie toute personne qui serait en mesure de me proposer la syntaxe d'une macro.

A.G.

 

[A.G.]

Je souhaite apporter une présision, la plage de cellule pour la colonne M est M9 : M141 et celle de la colonne E est E9 : E141.
Vous comprendrez que l'utilisation d'une mise en forme conditionnelle n'a pas été retenue car trop longue à mettre en place.

 

[porcinet82]

salut,

voila une macro qui devrait fonctionner pour ton cas, si il y a un pb, fais moi signe.

code:
Sub couleur()
Range('M9').Select
For t = 1 To 132
x = Selection.Offset(0, -8).Value
If ActiveCell.Value < x Then
ActiveCell.Interior.ColorIndex = 3
Else
If ActiveCell.Value > x Then
ActiveCell.Interior.ColorIndex = 43
Else
ActiveCell.Interior.ColorIndex = 5
End If
End If
Selection.Offset(1, 0).Select
Next
End Sub

bon courage
@+

 

[A.G.]

Bonjour Porcinet,

Un grand merci pour ton aide. J'ai testé ta macro et tout à l'air de fonctionner correctement.
Bonne journée.

A.G.