Suppression doublons

F

Fred

Guest
Bonjour,

J'ai 2 feuilles de données dans mon classeur excel.
Les 2 feuilles contiennent des adresses mail. Cependant, les adresses mail contenues dans la feuille 2 ne doivent pas se trouver dans la feuille 1. Etant donné le nombre important de données, comment puis-je faire une vérification automatique et m'assurer que les enregistrements de la feuille 2 ne se retrouvent pas dans la feuille 1.
Merci
 
C

Creepy

Guest
Salut,

Voila un code qui comparait 2 colonnes de codes barres pour t rouver les doublons et les surligner.

Je pense que tu y trouveras ce dont tu as besoin !

Désolé mais je n'ai pas me temps de l'adapter à ta demande je parts en clientèle

++

Creepy

------- CODE -----------------

Dim EAN12 As Range
Dim EAN13 As Range
Dim Cell As Range
Dim i As Integer, x As Integer

Set EAN12 = Sheets(1).Range("A2:A" & Range("A65536").End(xlUp).Row)
Set EAN13 = Sheets(1).Range("B2:A" & Range("B65536").End(xlUp).Row)
x = 2

For Each Cell In EAN12
For i = 1 To EAN13.Count
If CStr(Cell) = CStr(Left(Cells(i, 2), 12)) Then
Cells(x, 4) = Cell: Cells(x, 5) = Cells(i, 2)
Cell.Interior.ColorIndex = 6: Cells(i, 2).Interior.ColorIndex = 6
x = x + 1
End If
Next i
Next Cell

End Sub
 

Discussions similaires

Réponses
5
Affichages
209
Réponses
2
Affichages
161
Réponses
1
Affichages
179
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 845
Messages
2 092 764
Membres
105 529
dernier inscrit
StarExcel