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
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