suppression de lignes

[a10]

bonjour

je voudrai supprimer les lignes ou effacer les données en jaune si dans la colonne B il y a des 0
j'ai une macro qui tri tous les 0 toujours à la fin du tableau


Je souhaiterai le faire par une macro simple

a+

 

[JCGL]

Re : suppression de lignes

Bonjour à tous,

Tu n'as, toujours, pas compris que sans fichier il est très difficile de tenter de t'aider...

En jaune : pourquoi ou comment ?
Des 0 en colonne B : ça c'est possible.

423 messages....

A+ à tous

 

[a10]

Re : suppression de lignes

le fichier est joint: me dire si il n'est pas visible?

 

[JCGL]

Re : suppression de lignes

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
Sub Del_Lig_0()
Dim DerL&, Lig&
DerL = Range("B" & Rows.Count).End(3).Row
For Lig = DerL To 2 Step -1
If Cells(Lig, 2) = 0 Then Rows(Lig).Delete
Next
End Sub

A+ à tous

 

[a10]

Re : suppression de lignes

bonsoir

cela semble fonctionner

ok merci et bonne soirée