Discussion :

[moi244]

Bonjour à tous,
Est-il possible de supprimer par exemple la ligne 15 et 16 car les information contenues sur toute la ligne 15 (de A à P) sont les mêmes que la ligne 16 (de A à P). donc A15=A16, B15=B16.... P15=P16



j'ai fait des recherches sur le net mais le code fait des comparaisons et recherche sur seulement la colonne A par exemple.. (A15=A16)

Merci.

[Philippe Tulliez]

Bonjour,
Onglet [Données], groupe Outils de données, commande Supprimer les doublons

[Invité]

Bonjour,
Tu veux supprimer les deux lignes ou seulement la ligne en doublon ?

[moi244]

seulement le doublon!

[Philippe Tulliez]

Bonjour,
Et bien alors c'est bien la commande Supprimer les doublons.
Onglet [Données], groupe Outils de données, commande Supprimer les doublons

[Invité]

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Dim Doublon As Collection
Sub Scan()
Dim RowsSup() As Integer
Dim L As Long
Dim Linge As Long
Dim MyRange As Range
Const L_Start = 1 'L_Start=1 Si pas de titre de colonne L_Start=2 si titre de colone.
Set Doublon = New Collection
Set MyRange = ActiveSheet.Range("A1").CurrentRegion
 ReDim RowsSup(0)
For L = L_Start To MyRange.Rows.Count
    Linge = MethodeHighlander(L, MyRange)
    If Linge <> 0 Then
        ReDim Preserve RowsSup(1 + UBound(RowsSup))
        RowsSup(UBound(RowsSup)) = Linge
    End If
Next
For L = UBound(RowsSup) To 1 Step -1
   DeleteRow ActiveSheet.Range(MyRange(RowsSup(L), 1).Address)
Next
End Sub
Function MethodeHighlander(L As Long, MyRange As Range) As Long
'La Méthode Highlander il ne peut en rester qu'un.
Dim col As Integer
Dim Text As String
Text = ""
MethodeHighlander = 0
For col = 1 To 16
    Text = Text & "_" & MyRange(L, col)
Next
On Error Resume Next
'On peut ajouter dans une collection un enregistrement en lui donnant un nom.
'Le problème est qu'elle ne supporte pas les doublons.
'On utilise les messages d'erreur pour définir les doublons.
Doublon.Add Text, "Name_" & Text
If Err <> 0 Then
    MethodeHighlander = L
    Err.Clear
End If
On Error GoTo 0
End Function
Sub DeleteRow(MyRange As Range)
Dim DelRow As String
DelRow = CStr(MyRange.Row) & ":" & CStr(MyRange.Row)
Debug.Print DelRow
    ActiveSheet.Rows(DelRow).Delete Shift:=xlUp
 
 
End Sub

[Excel_man]

Bonjour,
J'ai eu besoin de traiter les doublons par macro et ma solution a été de concaténer les differentes cellules a prendre en compte dans une nouvelle colonne et de traiter les doublons par le code suivant:

Code :

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

ThisWorkbook.Sheets("Feuil1").Range("a1").CurrentRegion.RemoveDuplicates Columns:=13, Header:=xlGuess

La colonne 13 dans l'exemple est celle ou j'ai concaténer mes infos et le Header:=xlGuess détermine automatiquement si le tableau a une en-tête.
a+

[Invité]

Je te proposai juste une macro qui fait tout le bouleau sans te poser de questins.
A+