COMPARAISON entre 2 tableaux des lignes communes (dans le désordre)

Bonsoir Didier,


Tu trouveras en pièce jointe un petit exemple qui devrait répondre au problème posé.

=====================================================

Private Sub CommandButton2_Click()

'Paramétrage Colonne à considérer comme clé pour éliminer les doubles
Set ColKey = Range("A:A")

'Copy du premier tableau en début de la feuille Fusion
Sheets("Tableau1").UsedRange.Copy _
Destination:=Cells(1)

'Copy du du second tableau à la suite du premier tableau dans la feuille Fusion
Sheets("Tableau2").UsedRange.Copy _
Destination:=Cells(1).Offset(UsedRange.Rows.Count, 0)

'Tri de la feuille fusion sur les clés située dans la colonne donnée en paramètre
UsedRange.Sort Key1:=ColKey, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

'Elimination des doubles rouge/rouge, jaune/jaune, rouge/jaune
'Les éléments uniquement présents dans Tableau 1 restent en Jaune
'Les éléments uniquement présents dans Tableau 2 restent en Rouge
'Les éléments présents dans les deux tableaux sont fusionnés et coloriés en orange
For Each Row In UsedRange.Rows
While Intersect(Row, ColKey) = Intersect(Row, ColKey).Offset(1, 0)
Row.Interior.ColorIndex = 44
Intersect(Row, ColKey).Offset(1, 0).EntireRow.Delete
Wend
Next Row


End Sub

=====================================================

Bon courage pour la suite.

Omicron

Merci a toi,
et à Patrick qui m'a donné la solution ici :

http://www.excelabo.net/moteurs/compteclic.php?nom=pmk-suivilistes

Ton idée est géniale et parfaite mais il semblerait que l'exemple ne tienne compte que des cellules de la première colonne pour la comparaison.

Au temps pour moi c'était écrit ici :
'Paramétrage Colonne à considérer comme clé pour éliminer les doubles
Set ColKey = Range("A:A")

Merci encore je vais étudier cela