Supprimer ligne
Résolu
pamelalyon
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
pamelalyon -
pamelalyon -
Bonjour,
j'ai 8 onglets excel et sur les 7 derniers, je veux supprimer toutes les lignes pour lesquels on a rien dans la colonne D ou un 0.
J'ai déja une macro qui marche mais elle est beucoup trop longue, car j'ai beaucoup de données, ca fait 40 min qu'elle tourne et elle est pas terminé.
Derlig = Range("A65536" ).End(xlUp).Row
For Line = Derlig To 20 Step -1
If Cells(i, 4) = "" Or Cells(i, 4) = "0" Then Rows(i).Delete
Next Line
y'aurait la méthode des tableaux qui marcherait plus rapidement mais que je ne connais pas, j'ai 10000 lignes de données sur chacune des feuilles et 7 colonnes
Merci.
j'ai 8 onglets excel et sur les 7 derniers, je veux supprimer toutes les lignes pour lesquels on a rien dans la colonne D ou un 0.
J'ai déja une macro qui marche mais elle est beucoup trop longue, car j'ai beaucoup de données, ca fait 40 min qu'elle tourne et elle est pas terminé.
Derlig = Range("A65536" ).End(xlUp).Row
For Line = Derlig To 20 Step -1
If Cells(i, 4) = "" Or Cells(i, 4) = "0" Then Rows(i).Delete
Next Line
y'aurait la méthode des tableaux qui marcherait plus rapidement mais que je ne connais pas, j'ai 10000 lignes de données sur chacune des feuilles et 7 colonnes
Merci.
A voir également:
- Supprimer ligne
- Supprimer rond bleu whatsapp - Guide
- Partager photos en ligne - Guide
- Supprimer une page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Mètre en ligne - Guide
4 réponses
Bonjour
il y aurait "peut-être" bien une manière qui supprimerait sans boucle les Dx=0 et vide
Il faudrait pour cela que tu mettes en pièce jointe une des feuilles à nettoyer sans données confidentielles sur 200 ou 300 lignes
En attendant, une astuce pour supprimer les lignes x avec Dx vide
Michel
il y aurait "peut-être" bien une manière qui supprimerait sans boucle les Dx=0 et vide
Il faudrait pour cela que tu mettes en pièce jointe une des feuilles à nettoyer sans données confidentielles sur 200 ou 300 lignes
En attendant, une astuce pour supprimer les lignes x avec Dx vide
derlig = Range("D65536").End(xlUp).Row
Range("D1:D" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
mais voir si cela marche sur une grande surface (nb lignes * nb_col)
Michel
Bonsoir,
Si on peut chambouler les lignes, j'essaierais en triant tes données par la colonne D (à la main, en enregistrant les clics de souris).
puis en remontant à partir de derlig jusqu'à ce que la valeur soit différente de "" et de 0.
Si on peut chambouler les lignes, j'essaierais en triant tes données par la colonne D (à la main, en enregistrant les clics de souris).
puis en remontant à partir de derlig jusqu'à ce que la valeur soit différente de "" et de 0.