test liste si doublon

[ngexcel]

BONJOUR

je voudrais modifier cette macro pour trier une liste en colonne A puis D et H
je voudrais supprimer les lignes doublons
Merci

Option Explicit

Sub oterdoublons()
Dim N&, plage As Range
Application.ScreenUpdating = False
N = Cells(Rows.Count, "a").End(xlUp).Row
Columns("a:a").Insert
Set plage = Range("a1:i" & N)
plage.Columns(1).FormulaR1C1 = "=IF(RC[1]<>R[1]C[1],"""",NA())"
plage.Sort key1:=Range("b1"), order1:=xlAscending, key2:=Range("i1"), order2:=xlAscending, Header:=xlYes
plage.Columns(1).Value = plage.Columns(1).Value
plage.Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes
N = Cells(Rows.Count, "a").End(xlUp).Row
If N >= 2 Then Range(Cells(2, "a"), Cells(N, "i")).Delete xlShiftUp
Columns("a:a").Delete
Application.ScreenUpdating = True
Dim i&, Rep$
Rep = ThisWorkbook.Path
For i = [A65536].End(3).Row To 1 Step -1
If Dir(Rep & "\" & Cells(i, 1) & "*") = "" Then
Rows(i).EntireRow.Delete
End If
Next
End Sub

 

[job75]

Re : test liste si doublon

Re,

Vous ne trouvez pas que vous poussez le bouchon un peu trop loin ?

Vous posez de nouvelles questions qui n'ont rien à voir avec le sujet de ce fil.

Sans même daigner tester et comparer les solutions qu'on s'est donné la peine de vous proposer

A+

 

[ngexcel]

Re : test liste si doublon

Bonsoir
Je l ai testé elle fonction mais j ai ce problème qui me vient maintenant c est pour cela que je suis revenu à l ancienne version pour comprendre
Je suis desolė de prendre de votre temps
Je vous remercie

 

[ngexcel]

Re : test liste si doublon

Bonsoir

et encore pardon d être aussi maladroit je suis vraimment touche du temp et du boulot que vous m'avez fait gagner mais il faut comprendre les personnes novices comme moi des lors que quelque chose bug c est la panique
je suis arrivé au bout de mon projet grâce a vous