Discussion :

[bizjet]

Salut à toutes et à tous

Encore besoin de vos connaissances :
Une macro pour supprimer les doublons dans un listing d'adresses email ?
Elles sont déjà classées par ordre alphabétique, donc elles se suivent en cas de doublon. (J'en ai 230 000 à vérifier sur 5 fichiers excel...)
Merci d'avance

Bizjet

[laetitia]

bonjour bizjet le forum une macro suppose tes données en colonne a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub es()
 Dim c As Variant, m As Object
   Application.ScreenUpdating = False
     Set m = CreateObject("Scripting.Dictionary")
       With Sheets(1)
        For Each c In Range("a1", Cells(Rows.Count, "a").End(xlUp))
       m(c.Value) = IIf(m.Exists(c.Value), m(c.Value) + 1, 1)
     Next c
   Range("a1:a" & Cells.Find("*", , , , , xlPrevious).Row).ClearContents
 [a1].Resize(m.Count, 1) = Application.Transpose(m.keys)
End With
End Sub

tu fais une boucle sur tes 5 fichiers en selectionnant la sheet puis le code ci dessus je suppose que tu utilise pas excel 2007 !!!!!!!