Recherche de doublons en VBA par var tableau sur fichier de grande taille

Bonjour à tous,

Je cherche à repérer des doublons sur des fichiers comportant parfois plusieurs milliers de lignes. Pour cette raison, je souhaiterais passer par une variable tableau qui multiplie la vitesse de traitement. J'ai un début de procédure qui recherche la colonne à traiter et défini le tableau à traiter.

Il manque la partie qui recherche les doublons et qui afficherait en col A une couleur intérieure rouge pour permettre de filtrer dessus.
La colonne A est la colonne qui ne comporte aucune données et qui n'est pas concernée par une mise couleur une ligne sur 2.

Fichier exemple joint.

Merci d'avance pour votre aide et conseils.

Option Explicit

Sub doublons_identifiant()
    Dim WsDS As Worksheet
    Dim celDep As String
    Dim celArv As String

Option Explicit

Sub doublons_identifiant()
    Dim WsDS As Worksheet
    Dim celDep As String
    Dim celArv As String
    Dim der_ligne As Long
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String, AdresseTrouvee As String, rep As String
    Dim TrouveAdresse As String
    Dim colMarquage As String
    Const decaLigne = 12

    Application.ScreenUpdating = False

    Set WsDS = Worksheets("Donnees")
    WsDS.Activate
    Valeur_Cherchee = "identifiant"
    Set PlageDeRecherche = WsDS.Rows(decaLigne)

    Set Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee, LookAt:=xlWhole)

    TrouveAdresse = Trouve.Address
    colDest = Split(TrouveAdresse, "$")(1)
    colMarquage = "A"

    celDep = Range(TrouveAdresse).Offset(1, 0).Address

    der_ligne = Range(colDest & Rows.Count).End(xlUp).Row

    celArv = Range(colDest & Rows.Count).End(xlUp).Address

    If der_ligne < 13 Then
        Exit Sub
    End If

    Dim tab_cells()
    Dim j As Long
    Dim cpt As Long

tab_cells = Range(celDep & ":" & celArv)

'À partir d'ici ???
For j = LBound(tab_cells, 1) To UBound(tab_cells, 1)

Next j

End Sub

Bonjour,

Une référence incontournable ... http://boisgontierj.free.fr/

Liste sans doublon ...

http://boisgontierj.free.fr/pages_site/Doublons.htm#ListeSansDoub

Liste des doublons ...

http://boisgontierj.free.fr/pages_site/Doublons.htm#ListeDoublons

ric

Bonjour,

Merci beaucoup pour ces liens qui devraient me permettre de faire ce que je veux faire.

Je connais le site de Jacques Boisgontier qui est vraiment une référence, mais j'ai souvent peur de l'exploiter, car je ne suis pas assez calé pour tout comprendre.

Merci encore,

Dan