Please Help: Comparer deux listes et rajouter a l'une ce que l autre a de plus

[JuniorExcel]

Bonsoir a tous,

j ai passé bcp de temps sur mon problème et j ai finalement réussi a faire qqch mais de tres moche... c'est pourquoi je fais appel a vos talents...

Version plus simple, ce que j aimerai faire c'est:

J ai plusieurs colonnes formant un tableau TABLE1 et une autres TABLE2 dans une autre feuille. J aimerais rajouter a TABLE1 les lignes de TABLE2 qu il n'a pas ... mais surtout j aimerai laisser la dimension de TABLE1 et TABLE2 variable pour que tout s adapte a un changement de dimensions...

Je vous envoie ci-joint un mini exemple vite fait car le vrai fichier est tres gros, j ai essayé de faire des chose avec les fonction NB.SI et SI et de trier apres ... mais en plus d avoir qqch de moche, je devrais tout recommencer si les tables changes de tailles....


PLEASE HELP


merci.....

 

[Banzai64]

Re : Please Help: Comparer deux listes et rajouter a l'une ce que l autre a de plus

Bonsoir

Avec du code

 

[mth]

Re : Please Help: Comparer deux listes et rajouter a l'une ce que l autre a de plus

Bonsoir,

Un essai avec ce code:

Sub Conso()
Dim Derlig1 As Long, Derlig2 As Long
 
Derlig1 = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
Derlig2 = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row
Set Dest = Sheets("Feuil1").Range("A" & Derlig1)
Sheets("Feuil2").Range("A2:D" & Derlig2).Copy Dest
With Sheets("Feuil1")
    Derlig1 = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A1:D" & Derlig1).RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
        Header:=xlYes
End With
End Sub

Bonne soirée,

mth

Edit: Oups ... bonsoir Banzai
Désolée, je n'avais pas rafraichi ...
@ +
m