je souhaites faire une comparaison du 1er terme de ma colonne 1 et tout les terme de la colonne 2 puis le 2eme avec toute la colonne 2 etc … et mettre le resultat pour "ajout" ou "suppression" ou "identique" en colonne 3
enfin faire de meme de colonne 1 vers tout de la colonne 2
resultat en 4
’ Compare les colonnes A et B et inscrit 0 en colonne C lorsque
’ une valeur en colonne A existe aussi dans la colonne B
’ Détourne l’utilisation de la fonction Match (Equiv) pour trouver
’ les données de A qui sont présentes dans B
Sub CompareTwoColumns()
Dim rngA As Range
Dim rngB As Range
Set rngA = Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
Set rngB = Range(Cells(1, "B"), Cells(Rows.Count, "B").End(xlUp))
For Each cell In rngA
If Not IsError(Application.Match(cell.Value, rngB, 0)) Then
Cells(cell.Row, "C").Value = 0
End If
Next
End Sub