recherche de doublons

Un code, que j'ai retrouvé dans mes affaires. Peut-être pourra-t-il t'aider ?




Sub DoublonMultiPage()
Dim WS As Worksheet
Dim i As Integer

If Home.Range("A2") <> "" Then Home.Range("A2😀" & Range("D65536").End(xlUp).Row).Clear

For Each WS In Worksheets
If WS.Name <> "Home" Then
WS.Range("A2:C" & WS.Range("A65536").End(xlUp).Row).Copy _
Destination:=Worksheets("Home").Range("A" & _
Range("A65536").End(xlUp).Row + 1)
End If
Next WS


For i = 2 To Home.Range("A65536").End(xlUp).Row
With Home
.Range("D" & i) = .Range("A" & i) & .Range("B" & i) & .Range("C" & i)
End With
Next i


Home.Range("A1").Sort Key1:=Home.Columns("D"), Order1:=xlAscending, Header:=xlYes
For i = Home.Range("D65536").End(xlUp).Row + 1 To 2 Step -1
If Home.Range("D" & i) = Range("D" & i - 1) Then
Range("D" & i).ClearContents
End If
Next i
On Error Resume Next
Home.Columns("D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


Alexandre

Bonjour PAT60, Alexandre,

voici une soluce sans macros, directement inspirée des formules de notre
amie Monique.
Je pense même qu'elle pourrait faire encore mieux en mettant les non-
doublons les uns en-dessous des autres.

C@thy

Bonjour,

Une tit' collec'

Hi hi!!! Trop géniale, comme d'habitude.

C@thy

Encore une fois merci à tous pour votre aide.

Pat60