Supprimer ligne d untableu si...

nicroq

XLDnaute Occasionnel
bonsoir a tous,

voici mon problème, je souhaiterai par VBA supprimer une ligne d un tableau si et seulement si toutes les valeurs de la ligne sont égale à 0.

merci pour votre aide

bonne soirée
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir nicroq,

Difficile de proposer quelque chose qui soit adapté à ton cas précis puisqu'aucun fichier n'est fourni.
Une piste :
  • parcourir le tableau de la dernière ligne à la première
  • pour chaque ligne, faire la somme des valeurs absolues des cellules de la ligne
  • si cette somme est nulle, on efface la ligne
  • on passe à la ligne suivante
Voir un exemple dans le fichier joint.

edit : bonsoir arthour973 :).

rem : la méthode charge le tableau en mémoire ; elle est donc relativement rapide. Si le tableau est très grand, le chargement du tableau en mémoire peut être limité par la quantité de RAM disponible. Dans ce cas, utiliser la méthode du post #5 est possible.
 

Pièces jointes

  • nicroq- suppr lignes à zéros- v1.xlsm
    304.5 KB · Affichages: 30
Dernière édition:

zebanx

XLDnaute Accro
Bonsoir,

Une autre méthode qui éviterait de passer par un total d'absolus :
- remplacement des 0 par ""
- suppression des lignes vides
- remise des 0 sur les cellules "" restantes du tableau
Cdlt
 

Pièces jointes

  • ligne 0.xls
    44.5 KB · Affichages: 26

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,

Une autre méthode avec colonnes auxiliaires temporaires.

edit : une version V2a corrigeant un bug quand il n'y a qu'une seule ligne de données.
 

Pièces jointes

  • nicroq- suppr lignes à zéros- v2.xlsm
    295.3 KB · Affichages: 32
  • nicroq- suppr lignes à zéros- v2a.xlsm
    295.4 KB · Affichages: 17
Dernière édition:

nicroq

XLDnaute Occasionnel
Cependant je n'arrive pas a adapter le code lorsque mon tableau se trouve en mileu de tableur avec la methode de barbatruc..
POurriez vous m'aider avec l exemple de tableau du fichier joint?

merci d avance !!!!
 

Pièces jointes

  • nicroq- suppr lignes à zéros- v1 avec tab milieu.xlsm
    241.2 KB · Affichages: 16

Discussions similaires

  • Question
Microsoft 365 vba
Réponses
9
Affichages
800

Statistiques des forums

Discussions
312 500
Messages
2 089 003
Membres
104 003
dernier inscrit
adyady__