Petite macro pour supprimer des lignes

[bobafric]

Bonjour tout le monde

Dans une feuille excel j'ai des lignes de 1 à 6
je voudrai supprimer les lignes dans lesquelles les cellules des colonnes A B et C sont de même valeurs exemple tableau :


A B C D E
Ligne 1 AA 1 a 50
Ligne 2 AA 1 a 50
Ligne 3 FF 4 f 150
Ligne 4 GG 3 r 70
Ligne 5 CC 2 c 200
Ligne 6 CC 2 c 200

Donc il faut supprimer les lignes 1 ; 2 ;5 ; 6

Merci d'avance Bob

 

[papapaul]

Re : Petite macro pour supprimer des lignes

🙂 Bonjour, bob
Voici un truc qui n'est pas de moi,mais ...je sais plus qui,
Si tu as des lignes en doublons, (toutes les cellules identiques)
à force de faire des copier coller par exemple 😀
ça les suppriment
et ne conserve que 1 seule ligne, celle d'origine.
A voir si c'est bien ce que tu cherches.
Amitiés

 

[Gorfael]

Re : Petite macro pour supprimer des lignes

Salut bobafric et le forum

Sub test()
Dim X As Long
Dim Y As Long
For X = 1 To Range("A" & Rows.Count).End(xlUp).Row - 1
    For Y = X + 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Not IsEmpty(Range("A" & X)) And IsEmpty(Range("F" & X)) Then
            If Range("A" & X) & Range("B" & X) & Range("C" & X) = _
               Range("A" & Y) & Range("B" & Y) & Range("C" & Y) Then
                Range("F" & X) = "X"
                Range("F" & Y) = "X"
            End If
        End If
    Next Y
Next X
For X = Range("F" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("F" & X) = "X" Then Rows(X).Delete
Next X
End Sub

A+

 

[bobafric]

Re : Petite macro pour supprimer des lignes

Salut les gars
La macro de Gorfael est impeccable
Merci à tous
Bob