Probleme reconnaissance couleur dans boucle sur mise en forme conditionnelle

Attila451

XLDnaute Occasionnel
Bonjour,
Je cherche à comparer 2 colonnes, si il y a des différences, les cellules colonne A sont en rouge.
La macro se base sur la couleur rouge colonne A et va chercher la bonne valeur colonne B qui est affectée colonne A et met la colonne A en vert ensuite.

Jusque la, pas de problème par contre, quand j'active une mise en forme conditionnelle, avec rouge si différence, j'ai l'impression que la macro ne reconnait pas la couleur rouge de la mise en forme conditionnelle.

J'ai fais un test avec l'enregistreur de macro et le code affecté pour la mise en forme conditionnelle est
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With

ma condition est RGB( 255, 0, 0):

Sub recupcouleurs()
Dim Num_lig As Long
Num_lig = 1

While Cells(Num_lig, 1) <> ""
If Cells(Num_lig, 1).Interior.Color = RGB(255, 0, 0) Then
Cells(Num_lig, 1) = Cells(Num_lig, 2)
Cells(Num_lig, 1).Interior.Color = RGB(96, 255, 64)

End If

Num_lig = Num_lig + 1
Wend

End Sub
 

Fichiers joints

Discussions similaires


Haut Bas