supression automatique de lignes ?

[jopont]

Bonjour,

dans le tableau ci-joint, j'aimerais supprimer toutes les lignes ou il n'y a pas "somme", Je souhaiterais que les lignes restantes soient ensuite les unes au dessous des autres.

est-ce possible de faire ça automatiquement ?

merci

 

[BOISGONTIER]

Re : supression automatique de lignes ?

Bonjour,

Sub supression_ligne()
For I = [E65000].End(xlUp).Row To 1 Step -1
    If Cells(I, 5) = 0 Then Rows(I).Delete
Next I
End Sub

JB

 

[papapaul]

Re : supression automatique de lignes ?

🙄 Salut jopont, karl et Boisgontier.
On s'est téléscopé hier boisgontier 🙂o)
Pour la question de Karl,
je précise une petite chose, il veut surement garder
la ligne d'en tête et une ligne vide en dessous,
question de présentation, alors voici le code
à insérer dans un module.

Sub Macro1()
For i = [E65000].End(xlUp).Row To 3 Step -1
If Cells(i, 5) = 0 Then Rows(i).Delete
Next i
End Sub

J'espère que ca pourra aider.

Amitiés à tous.🙂

 

[www.KarlMarx.com]

Re : supression automatique de lignes ?

Merci bien,

KM

 

[papapaul]

Re : supression automatique de lignes ?

😉Salut Forum
En regardant bien les questions de jopont et Karl,
J'ai l'impression que leur but ne doit pas être loin d'une de mes
Vieilles archives. Mon bidule permet, avant d'imprimer ou enregistrer les feuilles,
de les modifier en supprimant des lignes selon la condition d'un bouton
(supprimer : code facilement adaptable)

C'est peut être pas ça mais je la joins quand même
Pour ceux que ça pourrait intéresser ou aider

J'ai l'ai bricolée en y intégrant la formule
De recherchev qui mets les 0. Dans cet exemple j'ai aussi
Protégé les colonnes F et G pour éviter l'effacement des formules

Je dois préciser que tout (ou presque) a été fait à l'aide de mes recherches
Sur le Forum et grâce aux précieux conseils des pros.

Bon courage à tous, surtout aux nouveaux.🙂
VBA, c'est magique.

Lien supprimé