Doublon d'une ligne

[cloclo57]

Bonjour le forum et merci d'avance aux personnes qui voudront bien me repondre

J'ai un probleme de doublon dans un tableau
Je désire supprimer la ligne contenant le doublon uniquement si toute les cellules de la ligne sont identique à une autre ligne.

 

[mumu]

Re : Doublon d'une ligne

Salut,

Je me souviens d'avoir posée une question de ce genre dans le forum et voici ce qu'on m'avait donné :

Sub suppression_ligne()

'permet de garder en visu ce que fait Excel
   Application.ScreenUpdating = True
   
'mise en forme des lignes  : tri par date
   Application.Calculation = xlCalculationManual
' ATTENTION le [A1] correspond à la première cellule qu'il va prendre pour le tri elle doit être renseignée, le tableau ne doit pas commencer en A6 par exemple, sinon tu adaptes
   [A1].Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2"), Order2:=xlDescending, Header:=xlGuess

'suppression des lignes en double ou +
   For I = [B65000].End(xlUp).Row To 2 Step -1
     If Cells(I, 2) = Cells(I - 1, 2) And Cells(I, 3) = Cells(I - 1, 3) Then Rows(I).Delete
   Next I   
   Application.Calculation = xlCalculationAutomatic
   
End Sub

@ +

Mumu