Sélection du chiffre "0" ..puis supprimer la ligne

[pancaspremium]

bonjour
j'ai un souci avec une macro qui doit sélectionner dans la colonne 4, toutes les cellules contenant le chiffre 0, pour ensuite supprimer ces lignes.
Mon souci est que les lignes contenant 0 restent après que la macro aie tournée.
voici la macro
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="0,00"
Rows("2:24").Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("A1").Select
Selection.AutoFilter
Quelqu'un peux m'aider......MERCI d'avance à toute idée
bàv

 

[JCGL]

Re : Sélection du chiffre "0" ..puis supprimer la ligne

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Elimine_0()
Dim Lig%
Application.ScreenUpdating = 0

Sheets("Data").Activate ' A adapter
For Lig = [C65536].End(xlUp).Row To 1 Step -1
If Range("C" & Lig).Value = 0 Then Rows(Lig).Delete
Next
End Sub

A+ à tous

 

[pancaspremium]

Re : Sélection du chiffre "0" ..puis supprimer la ligne

Hello
merci pour ton aide... impossible de l'implémenter dans mon fichier
désolé mais je ne trouve pas l'erreur
j'ai annexé le fichier concerné...la colonne concernée est la D
dans laquelle je veux que les lignes à 0 soient supprimées.

 

[JCGL]

Re : Sélection du chiffre "0" ..puis supprimer la ligne

Bonjour à tous,

Peux-tu essayer le fichier joint en cliquant sur le GO ?

A+ à tous

 

[pancaspremium]

Re : Sélection du chiffre "0" ..puis supprimer la ligne

ça marche...GRAND MERCI !
bon w-e