Discussion :

[Prekestolen]

Bonjour à tous

J'ai un problème qui semble est assez commun. Je veux supprimer des lignes dans mon classeur excel. Je veux supprimer la ligne si la cellule dans la colonne C est égale à zéro. Cela doit faire tout le fichier car parfois le classeur a 200 lignes, parfois 2000 lignes.
J'ai un bout de code, mais c'est pour supprimer la ligne si elle est vide. 'mais là , je veux supprimer seulement si la cellule dans la colonne C est égale à zéro.

Voici mon code de départ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim R As Long
Application.ScreenUpdating = False
 
For R = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If Application.WorksheetFunction.CountA(Rows(R)) = 0 Then Rows(R).Delete
Next R
 
Application.ScreenUpdating = True

merci

[aalex_38]

Peut être peux-tu tester si ta zone est numérique

[Krovax]

Bonjour, une toute petite modif et cela fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim R As Long
Application.ScreenUpdating = False
 
For R =Cells(Columns(1).Cells.Count, 1).End(xlUp).Row To 1 Step -1
    If range("C" & R) = 0 Then Rows(R).Delete
Next R
 
Application.ScreenUpdating = True

Perso je n'aime pas le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.UsedRange.Rows.Count

il ne tien pas compte des ligne vide (si 3 ligne remplie 3 vide 3 remplie il donne 6)
Et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Columns(1).Cells.Count, 1).End(xlUp).Row

fonctionne aussi bien sur 2003 que sur 2007

[Prekestolen]

Merci Krovak t'es un king