recherche de doublons

[PAT60]

Bonjour à tous,

Je souhaite avoir dans une liste d'article avec differents etablissements

la possiblité d'extraire uniquement les articles sans doublons.

existe -t-il une formule ou dois passer par une macro???

D'avance merci.

PAT60

 

[Alexandre]

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

 

[C@thy]

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

 

[Monique]

Bonjour,

Une tit' collec'

 

[C@thy]

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

C@thy

 

[PAT60]

Encore une fois merci à tous pour votre aide.

Pat60