Supprimer ligne sur Feuille 1 à partir d’une feuille 2
N
Bonjour à tous !
premier post pour moi !
Je viens ici pour vous faire part d’une demande :
Je vais recevoir demain une liste (A) de prospec, environ 100
J’ai déjà une liste (B) de prospec de 500 élément
Ma question :
Je me demandais si il existait un moyen de prendre ma liste A afin de pouvoir supprimer ces éléments sur la liste B, car jusqu’à maintenant je l’ai toujours fais manuellement (je vous dis pas le temps que j’y passe à chaque fois)
Merci d’avance pour votre aide !
Cordialement,
Bonjour Naxor, Bienvenu sur le forum !
Supposons que la liste A soit sur la feuil1 colonne A et la liste B sur la feuil2 colonne A.
Ce code pourrait répondre à la demande:
Sub test()
Application.ScreenUpdating = False
For Each cel1 In Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").Cells(Sheets("Feuil1").Rows.Count, 1).End(xlUp).Row)
For Each cel2 In Sheets("Feuil2").Range("A1:A" & Sheets("Feuil2").Cells(Sheets("Feuil2").Rows.Count, 1).End(xlUp).Row)
If cel1 = cel2 Then Sheets("Feuil2").Rows(cel2.Row).Delete
Next cel2
Next cel1
Application.ScreenUpdating = True
End SubA+