Bonjour,
J'utilise cette procédure pour copier les doublons de plusieurs feuilles sur une Feuille "Ancien".
Je voudrai faire l'inverse. Que les les lignes uniques sois copiées sur une nouvelle Feuille "News".
Merci pour votre aide
Patrick
J'utilise cette procédure pour copier les doublons de plusieurs feuilles sur une Feuille "Ancien".
Je voudrai faire l'inverse. Que les les lignes uniques sois copiées sur une nouvelle Feuille "News".
VB:
Sub supDoublons()
Set d = CreateObject("Scripting.Dictionary")
For s = 1 To Sheets.Count - 1
For Each c In Range(Sheets(s).[a2], Sheets(s).[a65000].End(xlUp))
clé = c.Text
tmp = c & "|" & c.Offset(, 1) & "|" & c.Offset(, 2) & "|" & c.Offset(, 3) & "|" & c.Offset(, 4) & "|" & c.Offset(, 5) & "|" & c.Offset(, 6) & "|" & c.Offset(, 7)
d(clé) = tmp
Next c
Next s
I = 2
For Each c In d.keys
tmp = d(c)
a = Split(tmp, "|")
Sheets("Ancien").Cells(I, 1) = "'" & a(0)
Sheets("Ancien").Cells(I, 2) = "'" & (a(1))
Sheets("Ancien").Cells(I, 3) = "'" & (a(2))
Sheets("Ancien").Cells(I, 4) = "'" & (a(3))
Sheets("Ancien").Cells(I, 5) = "'" & (a(4))
Sheets("Ancien").Cells(I, 6) = "'" & (a(5))
Sheets("Ancien").Cells(I, 7) = (a(6))
I = I + 1
Next c
End SubPatrick