Comparaison colonnes 2 feuilles

[IZELLOUP]

Bonsoir à tous.

Je cherche à comparer 2 colonnes (A&D) d'une feuil1 à 2 colonnes d'une feuil2 (A&B). J'ai déjà une macro qui me permets de faire ressortir les valeurs communes de la colonne A. J'aimerais également mettre en évidence (en rouge par exemple) les différences entre la colonne D (STATUT) de la feuil1 et la colonne B de la feuil2.
Si quelqu'un pouvait m'aider.
Merci beaucoup.


Sub Macro1()
Dim Lig1 As Long, Derlig1 As Long, Derlig2 As Long, Cp As Variant
Dim Lig2 As Long
Derlig1 = Sheets("Feuil1").Range("A65535").End(xlUp).Row
Derlig2 = Sheets("feuil2").Range("A65535").End(xlUp).Row
With Sheets("Feuil2")
For Lig1 = 2 To Derlig1
Cp = Sheets("feuil1").Cells(Lig1, "A")
For Lig2 = 1 To Derlig2
If Cp = .Cells(Lig2, "A") Then
.Cells(Lig2, "A").Interior.ColorIndex = 6
Else
End If
Next Lig2
Next Lig1
End With
End Sub

 

[Lone-wolf]

Re : Comparaison colonnes 2 feuilles

Bonjour IZELLOUP

Ton fichier en retour. En souhaitant avoir compris.

 

[IZELLOUP]

Re : Comparaison colonnes 2 feuilles

Bonjour Lone-wolf, c'est exactement ce que j'espérais. Merci beaucoup. Bonne journée.