XL 2013 Supprimer des lignes sous une seul condition "VBA"

[Anr1]

Bonjour Forum 🙂 ,

j'ai besoin d'un programme VBA afin de supprimer les lignes de Feuil1 si le numéro de client (colonne D) de Feuille2 ne figure pas sur le numéro de client de colonne" L" de Feuille1.

ci-joint un exemple de mon fichier avec:

-Les cellules en orange existe dans la colonne D de feuille2
-Les cellules en rouge n'existe pas

Sur ce , j'ai besoin d'un programme qui supprime les lignes ou la valeur de colonne D ( feuil2) ne figure pas sur la valeur de colonne L ( feuil1)

Pour facilité la taches j'ai mis en rouge ( colonne L Feuil1) les valeurs qui n'existe pas en colonne D (Feuil2)



Merci d'avance 🙂

 

[pierrejean]

Bonjour anouarlachiri

vois si cela te convient

 

[Anr1]

Bonjour @pierrejean,
Merci pour ta réactivité..
ça fonctionne sur le fichier joint mais sur mon fichier d'origine ça fonctionne pas !! je sait pas pourquoi..

explique moi votre programme svp

Sub supp_lignes()
Application.ScreenUpdating = False
For n = 2 To Range("BP" & Rows.Count).End(xlUp).Row
Set c = Sheets("Feuil2").Columns("D").Find(Range("L" & n), LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then Rows(n).Delete
Next
Application.ScreenUpdating = True
End Sub

 

[Anr1]

Sur ma base de données original mon tableau de feuil1 ne se termine pas par la colonne L , se termine par colonne BP mais le numéro client est toujours en L

 

[pierrejean]

Re
Alors pourquoi mettre For n = 2 To Range("BP" & Rows.Count).End(xlUp).Row
On parcourt la colonne L et si la recherche (Find) ne trouve pas on supprime la ligne

 

[Anr1]

@pierrejean,

voilà merci bcp @pierrejean ça fonctionne parfaitement ( c'est juste il faut que je clic pas mal des fois sur le bouton ) parce que ma base de données est lourde

Merci bcp 😉

Bonne journée