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

Anr1

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

Pièces jointes

  • TEST.xlsx
    14.3 KB · Affichages: 6

Anr1

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

Discussions similaires

Réponses
22
Affichages
690

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390