XL 2016 Supprimer les lignes suivant sélection d'une listbox

PETIT YANNICK

XLDnaute Occasionnel
Bonjour à tous,



Le fichier joint me permet de supprimer des données Provenant d'une base de données, en supprimant des lignes suivant 3 listes
2 listes sont constantes et une change suivant le choix de la listebox1 dans modules Traitement_Demande_Validation_Plan
L'étape 3 pose problème

Le fichier mouline et ne s'arrête jamais, je pense que cela vient de l'affectation des valeurs a contrôler T3 = Array(Sheets("Feuil1").Range("B500").Value)

1) Je supprime toutes les lignes contenant "SOLIDWORKS Part Document", "SOLIDWORKS Assembly Document", "STEP File", "Foxit PhantomPDF PDF Document", "Adobe Acrobat Document", "PDF", "xls", "xlsm", "xlsx" dans la colonne D

2) Je supprime ensuite toutes les lignes contenant VALIDE", "PROTO", "ETUDE", "BIBLIO", "OK", "VALIDE BIBLIO", "NOK", "NON DIFFUSE", "PILOT LOT", "ETUDE BIBLIO", "VALIDE (à déplacer en BIBLIO)" dans la colonne V

3) et enfin je souhaite supprimer les lignes ne contenant pas le résultat de la listbox1 dans la colonne W


Auriez vous une idée pour résoudre mon problème?

Merci d'avance de vos retours
 

Pièces jointes

  • essai.xlsm
    52.4 KB · Affichages: 17
Dernière édition:

Discussions similaires

Réponses
26
Affichages
856

Statistiques des forums

Discussions
312 169
Messages
2 085 909
Membres
103 032
dernier inscrit
etima