Recherche de Doublon sur 2 Fichiers différent

Bonjour,

Je suis à la recherche d'une formule permettant de pointer des doublons dans 2 fichiers différents (voir fichier en PJ).

Merci

Cordialement

Bonjour et bienvenue sur le forum

Un double essai. Te convient-il ?

Bonjour gmb,

Déjà merci pour cette macro, très intéressante.

Le but recherché est de pointer tous les jours le fichier "ZZZZ- STOCK CA" par rapport à l'autre fichier

je vais essayé de me servir de ta macro pour trouvé encore plus de doublon (car tous n'ont pas été pointer) et mettre dans une colonne une annotation ou barré la ligne dans le fichier "ZZZZ....." lorsque celle-ci aura été trouvé.

si tu as d'autres solutions, je suis preneur.

Merci encore et à bientôt

Bonjour,

Une macro assez semblable à celle de gmb et qui devrait être plus rapide (absence de redim) optimisée pour de très grands fichiers. (+ de 50 000 lignes)

Les doublons sont affichés en colonne G

Sub galopin()
Dim iLRS%, iLRC%, i%, j%
Dim TabloS(), TabloC()
Dim WbS As Workbook, WbC As Workbook
Dim WsS As Worksheet, WsC As Worksheet
'Détermination du nombre de ligne de Classeur "Source" et "Cible"
Set WbS = Workbooks("ZZZZ- STOCK CA.xls")
Set WbC = Workbooks("COMPTAGE CRCA DU JOUR.xls")
Set WsS = WbS.Worksheets(1)
Set WsC = WbC.Worksheets(1)
iLRS = WsS.Cells(Rows.Count, 1).End(xlUp).Row
iLRC = WsC.Cells(Rows.Count, 1).End(xlUp).Row
TabloS() = WsS.Range("A1:A" & iLRS)
TabloC() = WsC.Range("D1:D" & iLRC)
WsS.Columns(7).Clear
WsC.Columns(7).Clear
'On passe en revue tout le monde
For i = 1 To UBound(TabloS)
  For j = 1 To UBound(TabloC)
    'Si égalité...
    If TabloC(j, 1) = TabloS(i, 1) Then
         WsC.Range("G" & j).Value = i
         WsC.Range("G" & j).Interior.ColorIndex = 3
         WsS.Range("G" & i).Value = j
         WsS.Range("G" & i).Interior.ColorIndex = 3
    End If
  Next
Next
Set WbS = Nothing
Set WbC = Nothing
Set WsS = Nothing
Set WsC = Nothing
End Sub

A+

Bonjour,

La macro modifiée pour comparer 2 colonnes supplémentaires et une police barrée :

Sub galopin()
Dim iLRS%, iLRC%, i%, j%
Dim TabloS(), TabloC(), TabloS1(), TabloC1()                                  '*********************
Dim WbS As Workbook, WbC As Workbook
Dim WsS As Worksheet, WsC As Worksheet
'Détermination du nombre de ligne de Classeur "Source" et "Cible"
Set WbS = Workbooks("ZZZZ- STOCK CA.xls")
Set WbC = Workbooks("COMPTAGE CRCA DU JOUR.xls")
Set WsS = WbS.Worksheets(1)
Set WsC = WbC.Worksheets(1)
iLRS = WsS.Cells(Rows.Count, 1).End(xlUp).Row
iLRC = WsC.Cells(Rows.Count, 1).End(xlUp).Row
TabloS() = WsS.Range("A1:A" & iLRS)
TabloC() = WsC.Range("D1:D" & iLRC)
TabloS1() = WsS.Range("H1:H" & iLRS)                                          '*********************
TabloC1() = WsC.Range("M1:M" & iLRC)                                          '*********************
WsS.Columns(7).Clear
WsC.Columns(7).Clear
'On passe en revue tout le monde
For i = 1 To UBound(TabloS)
  For j = 1 To UBound(TabloC)
    'Si égalité...
    If TabloC(j, 1) = TabloS(i, 1) Or TabloC1(j, 1) = TabloS1(i, 1) Then      '*********************
         WsC.Rows(j).Font.Strikethrough = True                                '*********************
         WsS.Rows(i).Font.Strikethrough = True                                '*********************
    End If
  Next
Next
Set WbS = Nothing
Set WbC = Nothing
Set WsS = Nothing
Set WsC = Nothing
End Sub

A+