Bonjour, au forum.
En glanant sur le Web, j'ai trouvé ce code pour éliminer les doublons à parti de A2
J'ai essayer de la modifier pour que le trie ce face sur la colonne B
et à partir de la ligne 9 (B9) et et les doublons sont toujours présents (et je m’arrache les cheveux).
Quelqu'un a-t'il une solution.
Code:
Sub supDoublonsTradi()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[A1].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
For i = [A65000].End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
Merci d'avance.
Broch002
En glanant sur le Web, j'ai trouvé ce code pour éliminer les doublons à parti de A2
J'ai essayer de la modifier pour que le trie ce face sur la colonne B
et à partir de la ligne 9 (B9) et et les doublons sont toujours présents (et je m’arrache les cheveux).
Quelqu'un a-t'il une solution.
Code:
Sub supDoublonsTradi()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[A1].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
For i = [A65000].End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
Merci d'avance.
Broch002