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

anouarlachiri

XLDnaute Occasionnel
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 :)
 

Fichiers joints

anouarlachiri

XLDnaute Occasionnel
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
 

anouarlachiri

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas