Supprimer d'une liste des enregistrements présent dans une autre liste.

[ipotez]

Salut

Je viens vous demander de l'aide pour automatiser un nettoyage de liste que je dois faire quotidiennement.

J'ai donc une liste d'abonnés newsletter en colonne A qui contient les emails, elle s'allonge quotidiennement.

En colonne F j'ai la liste des emails des clients qui souhaitent se désinscrire.

J'aimerai via une macro qu'excel me vire de la colonne A tous les emails présents dans la colonne F.

Je vous met un petit fichier si je ne suis pas clair.

Merci pour votre aide.
Damien

 

[ERIC S]

Re : Supprimer d'une liste des enregistrements présent dans une autre liste.

Bonjour

une piste peut-être

Sub e()
débutliste = WorksheetFunction.Match("LISTE 1", Range("A:A"), 0) + 1
débutexclusion = WorksheetFunction.Match("EXCLUSION", Range("F:F"), 0) + 1
For i = débutexclusion To Range("F" & Rows.Count).Row
    doublon = WorksheetFunction.Match(Cells(i, 6), Range("A" & débutliste & ":A" & Rows.Count), 0)
    If Not IsError(doublon) Then
            Range("A" & doublon + débutliste - 1).Delete Shift:=xlUp
            Cells(i, 5).Value = "sup"
    Else
        MsgBox Cells(i, 6).Value & "n'est pas abonné"
    End If
Next
End Sub

 

[phlaurent55]

Re : Supprimer d'une liste des enregistrements présent dans une autre liste.

Bonjour à tous,

avec ce code:

Sub effacer()
Application.ScreenUpdating = False
Dim cellule As Range
For i = 6 To Range("A65535").End(xlUp).Row
For Each cellule In Range("F6:F" & Range("F65535").End(xlUp).Row)
If cellule = Cells(i, 1) Then Cells(i, 1).Delete Shift:=xlUp
Next cellule
Next i
Range("F6:F" & Range("F65535").End(xlUp).Row + 1).Delete
Application.ScreenUpdating = True
End Sub

à+
Philippe

 

[ipotez]

Re : Supprimer d'une liste des enregistrements présent dans une autre liste.

Jai essayé la tienne phlaurent55, génial ça passe, par contre serait il possible de conserver la liste des exclusions ?
Merci d'avance

 

[phlaurent55]

Re : Supprimer d'une liste des enregistrements présent dans une autre liste.

Re,

il suffit de supprimer cette ligne dans le code

Range("F6:F" & Range("F65535").End(xlUp).Row + 1).Delete

à+
Philippe

 

[ipotez]

Re : Supprimer d'une liste des enregistrements présent dans une autre liste.

Génial ! Merci a toi et à toi aussi Eric !
Bonne journée