éliminer lignes en doublon

[romika]

Bonjour,

j'ai deux colonnes dans excel et plusieures lignes. par exemple en A1=ABC, B1=DEF. En A2=DEF et B2=ABC. je voudrais éliminer donc la deuxième ligne car elle est égale à la première à l'envers.

je joins un exemple si ca peut être utile.
j'ai pas besoin de macro forcément, j'essaye avec des formules et filtres, mais j'y arrive pas...

merci pour votre aide.

 

[JCGL]

Re : éliminer lignes en doublon

Bonjour à tous,

En C1 et vers le bas :

=NB.SI($A$1:A1;$B$1:B1)

te donnera les lignes à supprimer (supérieur à 0 par Filtre)

A+ à tous

 

[romika]

Re : éliminer lignes en doublon

Merci pour la formule, je l'ai essayée et effectivement ça marche, même si je comprends pas trop son sens , mais en rajoutant quelques lignes supplémentaire, elle marche plus.
je joins le nouveau fichier.
une idée? merci

 

[JCGL]

Re : éliminer lignes en doublon

Bonjour à tous,

Peux-tu essayer en C1 :

=SI(B1="";"";SOMMEPROD(($B$1:$B$99=$B1)*($A$1:$A$99=$A1))>1)

A+ à tous

 

[romika]

Re : éliminer lignes en doublon

malheureusement marche pas du tout...

 

[romika]

Re : éliminer lignes en doublon

pas de nouvelles pistes?

 

[laetitia90]

Re : éliminer lignes en doublon

bonjour romika JCGL
par macro
une qui tiens compte des majuscules l'autre non
par contre ABC aet considere comme doublon vu que present en ligne 10 & 12

Sub es()
 Dim m As Object, i As Long, z As Variant
    Application.ScreenUpdating = False
    Set m = CreateObject("Scripting.Dictionary")
       For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
      z = UCase(Cells(i, 1)) & UCase(Cells(i, 2))
            If Not m.Exists(z) Then
            m.Add z, z
            Cells(i, 3) = "ok"
       Else
          Cells(i, 3) = "doublons"
      End If
      z = UCase(Cells(i, 2)) & UCase(Cells(i, 1))
            If Not m.Exists(z) Then
            m.Add z, z
            Cells(i, 3) = "ok"
       Else
          Cells(i, 3) = "doublons"
      End If
      Next i
End Sub

Sub est()
 Dim m As Object, i As Long, z As Variant
    Application.ScreenUpdating = False
    Set m = CreateObject("Scripting.Dictionary")
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
      z = Cells(i, 1) & Cells(i, 2)
            If Not m.Exists(z) Then
            m.Add z, z
            Cells(i, 4) = "ok"
       Else
          Cells(i, 4) = "doublons"
      End If
      z = Cells(i, 2) & Cells(i, 1)
            If Not m.Exists(z) Then
            m.Add z, z
            Cells(i, 4) = "ok"
       Else
          Cells(i, 4) = "doublons"
      End If
      Next i
End Sub

 

[laetitia90]

Re : éliminer lignes en doublon

rebonjour
en partant de ton premier exemple toujours par macro

Sub aa()
Dim i As Long, j As Long, x, z As Variant
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
x = Cells(i, 1) & Cells(i, 2)
For j = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
z = Cells(j, 2) & Cells(j, 1)
If x = z Then Range(Cells(i, 1), Cells(i, 2)).Delete Shift:=xlUp
Next j: Next i
End Sub

'EntireRow.Delete pour suppression ligne complete
eventuellement on peut conbiner code pour supprimer egalement comme ton exemple 2 pour supprimer les identiques ligne 10 & 12
par formule je suis trop mauvaise pour trouver solution desole