Discussion :

[awa123]

Bonjour

je cherche une macro simple qui me permettrait de supprimer les doublons sur les ligne

par exemple si dans une ligne j'ai CH1 - CH2 - 2 et dans une autre j'ai CH2 - CH1 - 2

je voudrai qu'il en garde qu'une seule

si quelqu'un aurait une piste à me donner

Merci

[kiki29]

Salut, à lire et assimiler : La gestion des doublons dans Excel

[joe.levrai]

Bonjour,

énoncé différent de la pj !
tu ne parlais pas de colonne ... ce qui revenait à dire que tu parlais de comparaisons de chaines qu'on pouvait découper en 3 parties (via les "-")

bref, je te renvoie sur le message de kiki, tu trouveras ton bonheur

et puisque je venais proposer une solution pour comparer des "chaines agencées différemment" ... autant la poster

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub doublon()
    With ThisWorkbook.Worksheets("Feuil1")
        For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
            Tab1 = Split(Replace(.Cells(i, 1).Value, " ", ""), "-")
            For j = i - 1 To 1 Step -1
                Tab2 = Split(Replace(.Cells(j, 1).Value, " ", ""), "-")
                If Identique(Tab1, Tab2) Then
                    .Rows(i).Delete
                    Exit For
                End If
            Next j
        Next i
    End With
End Sub
 
Function Identique(Tab1, Tab2) As Boolean
    For i = LBound(Tab1) To UBound(Tab1)
        For j = LBound(Tab2) To UBound(Tab2)
            If Tab1(i) <> Tab2(j) Then
                trouve = False
            Else
                trouve = True
                Exit For
            End If
        Next j
        If trouve = False Then Identique = trouve: Exit Function
    Next i
Identique = trouve
End Function

Du coup, j'ai concaténé tes trois colonnes avec "-" en séparateur pour tester mon code, qui fonctionne à merveille

EDIT : j'aurai très bien pu spliter et renvoyer dans des colonnes pour ensuite traiter le cas avec les outils excel... mais ça m'amusait de comparer des arrays!