Macro coloration cellule selon condition

Bonsoir,

je souhaite un code vba qui me permette de mettre en evidence, via coloration, une cellule d'une colonne qui comporte un montant différent d'une cellule d'une autre colonne de la même ligne.

Concrètement je voudrais que les cellules où se trouvent des montants en colonne S se colorent si le montant de la cellule est différent de celui qui est en colonne R sur la même ligne.

j'ai mis les exemples dans mon tableau joint

exemple R12 = 10 et S12 = 5 donc S12 doit se collorer

en espérant que quelqu'un pourra m'aider

par avance merci

bonne soirée à tous

Bonjour,

Pourquoi ne pas utiliser une simple mise en forme conditionnelle ?

Formule : =ET($S5<>"";$S5<>$R5)

s'applique à : =$S$5:$S$83

A+

Bonsoir Frangy!

merci pour la formule, effectivement le résultat est probant

j'ai voulu passer par macro pour que la coloration soit appliquée automatiquement en cas de modifications du tableau (ajout de ligne).

en modifiant la formule de la mise en forme on peut peut être y arriver?

quelle que soit la longueur de mon tableau je voudrais que la coloration soit prise en compte automatiquement

est ce possible?

Bonsoir,

si tu souhaites tout de même le faire par macro, voici un exemple.

(Tu peux choisir aisément la couleur avec le code RGB, en ouvrant la palette de couleur excel>Autres couleurs>Personnalisé)

EDIT :

ajoute la ligne suivante :

     If Cells(i, 19) <> "" And Cells(i, 18) = Cells(i, 19) Then Cells(i, 19).Interior.Color = xlNone

comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer
i = 5

While Cells(i, 18) <> ""
    If Cells(i, 19) <> "" And Cells(i, 18) <> Cells(i, 19) Then Cells(i, 19).Interior.Color = RGB(134, 134, 250)
    If Cells(i, 19) <> "" And Cells(i, 18) = Cells(i, 19) Then Cells(i, 19).Interior.Color = xlNone
    i = i + 1
Wend

End Sub

Bonsoir Melch,

merci pour ton aide,

je voudrais rajouter dans ce code le fait que si le montant en colonne S redevient identique à celui de la colonne R la cellule se décolore.

la en remettant le même montant qu'en colonne R la cellule reste bleu.

merci pour l'aide

J'ai édité mon message, avec la ligne à ajouter pour que cela fonctionne

Je me suis rendu compte que j'avais oublié ce détail ^^

ah ben tu m'as devancé héhé

c'est parfait ça marche nickel!

merci beaucoup!