Suprimer des lignes selon leur N° dossier mais accondition

j'ai fichier Xls qui contient plus de 500.000 Lignes

et 15 colonnes

et je voudrais effacer les lignes qui ont le même numéro du dossier et font un total

égale à 0 Zéro

merci d'avance

ci-joint le fichier

s’attend toujours votre soutien

j'ai une idée si on utilise cette fonction

=SOMME.SI.ENS(N2:N500000;K2:K500000;1107)

1107 LE NUMÉRO DU DOSSIER

dans le programme VB

Bonsoir,

Les solutions prennent du temps à être développées, pour ma part j'ai eu quelques accros avec les objets Dictionnary mais je suis parvenu à trouver une solution que je joins, il faut appeler la macro supr.

Merci Mr Ausecour

c'est la solution que je cherche

merci 1000 fois

rebonjour Mr Ausecour

lorsque j'ai appliqué le VB sur mon fichier

j'ai le message suivant !

********************************************

Erreur de compilation
Type défini par l’utilisateur non défini

*********************************************

par contre sur le fichier que vous m'avez envoyé ça marche bien

Bonjour,

C'est à cause de la bibliothèque "Microsoft Scripting Runtime" qu'il faut cocher dans "outils" et "références" dans la fenêtre VBA, certains utilisent create object pour ne pas avoir à passer par ça mais je trouve ça beaucoup plus pratique pour coder.

merci Mr Ausecour

pour votre aide

salut Ausecour

actuellement je suis entrein d'etuliser votre solution

reste un petit problème que j'ai constaté

que le vb ne supprime pas tout les dossier égale à zéro

reste presque 800 dossier = 0

n'ont pas été supprimer

merci de m'aider à trouver un solution a ce problème

Bonjour,

Je viens de vérifier deux trois choses, avec un TCD j'obtiens:

on aurait uniquement le numéro de dossier 1062 qui serait vraiment égal à 0, pour les autres la valeur est très légèrement supérieure à 0, dans le code j'obtiens:

Donc dans le code le dossier 1062 n'est pas vraiment égal à 0 non plus, d'où sa non suppression, je peux proposer de supprimer les lignes si la valeur absolue de la somme est inférieure à 0,01 ce qui supprimera ces dossiers.

Le résultat devient:

Je joins le fichier modifié.

salut mr Ausecour

je suis entrain de vérifier votre vb sur un fichier

qui contient presque 65000 lignes

s'apprend un peut du temps

je vous tiendrais au courant des résultats

mes grand respect à toi

Bonjour,

Le fait qu'Excel ne réponde pas n'est pas une erreur, c'est juste que la macro est trop gourmande pour ton pc, il faudrait me dire en mettant un point d'arrêt avec la boucle pour la suppression des lignes, si c'est la suppression des lignes qui prend du temps, ou bien le traitement avec les dictionnaires?

En fonction de la réponse la solution sera différente.