Suppression auto de lignes

Bonjour à tous.

Je travaille actuellement sur une feuille de calcul où je souhaite désormais effectuer le traitement suivant:

  • Dans la colonne E je n'ai que des données numériques. Certaines de ces valeurs sont 0 (zéro).
  • > Je souhaiterai mettre en œuvre une macro qui me supprime automatique les lignes où un 0 est présent dans la colonne E

J'espère que j'ai été assez compréhensible..

Merci à vous.

Bonjour,

Pour être efficace, il faudrait voir la structure réelle du fichier,

quelques lignes suffiront.

Amicalement

Claude

Voici le fichier

19supp-de-ligne.zip (14.82 Ko)

re,

J'ai ajouté une ligne d'en-tête,

si tu supprime des lignes, les formules sont dans les choux !!

ici, je les convertis en valeurs, résultats à voir ??

Sub SupprZéro()
Dim Lg&
    Lg = Range("e" & Rows.Count).End(xlUp).Row
    Range("b2:e" & Lg) = Range("b2:e" & Lg).Value   'en valeur
    Range("k2") = "=e2=0"                           'critère
    Range("b1:e" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("k1:k2"), Unique:=False
    Range("k2").ClearContents

    Range("b2:e" & Lg).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error Resume Next
    ActiveSheet.ShowAllData
    Application.Goto Range("a1"), Scroll:=True
End Sub

Claude

Ok, grand merci car ça a l'air de correspondre à mon besoin sur lequel je me cassais la tête.

Je vais continuer à mettre en forme cette feuille.

Silvanoss

Bonsoir le forum

Une proposition autre

Sub pXII1129OOI()
Dim DerLigne As Long, a
DerLigne = 666: On Error Resume Next
With Range("iv1:iv" & DerLigne)
    .Value2 = ["=IF(AND(RC[-251]<>"""",RC[-251]=0),""KILL_ME_SOFTLY"","""")"]
    .Value = .Value: .SpecialCells(2, 2).EntireRow.Delete
End With
End Sub
Rechercher des sujets similaires à "suppression auto lignes"