Discussion :

[nsqualli]

Bonjour,

j'ai une macro qui fait un certain traitement, et qui me donne en output une liste (feuille jointe), sauf que dans cette liste y'a des lignes identiques.

est ce que vous pouvez me dire comment je peux faire pour supprimer les doublons, en laissant qu'une seule ligne biensur?

Merci

[drakkar_agfa]

Bonjour,

voici un sujet qui parle justement des doublons :
http://www.developpez.net/forums/d46...tri-prealable/

Bonne chance

[nsqualli]

Merci Drakkar

[nsqualli]

Bon j'ai travaillé avec cette macro qui repond a tous ce que je veux, je vais la mettre ici, si ça peut aider quelqu'un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub supdoublonsOrdre()
Dim champ As Range
Dim champ1 As Range
Dim i As Long
 
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Set champ = Range("A2:A" & [A65000].End(xlUp).Row)
  Set champ1 = Range("B2:B" & [A65000].End(xlUp).Row)
  For i = [A65000].End(xlUp).Row To 1 Step -1
    If Application.CountIf(champ, Cells(i, 1)) > 1 And Application.CountIf(champ1, Cells(i, 2)) > 1 Then Rows(i).Delete
  Next i
  Application.Calculation = xlAutomatic
End Sub

Bon courage, et Merci a tout le monde.