Suppression des lignes selons conditions

[oli294]

Bonjour à tous,

Voilà mon problème:

J'ai un fichier Excel avec en colonne "C" (de C1 à C900) des "1" et des "0". Mon problèmes est simple, j'aimerais simplement supprimer toutes les lignes qui ont des "0" comme valeur dans la colonnes C. Voici mon codes (très simple):

Sub supplines()
Dim C As Long
C = 3
For i = 1 To 900
If Cells(i, C) = "0" Then
Rows(i).Delete

End If
Next i
End Sub

J'ai rapidement pu constater que cela ne fonctionnait pas car lorsque la ligne était supprimer, la boucle oubliait la nouvelles lignes et je doit recommencer plusieurs fois la macro.

Quelqu’un peut m'aider?

Merci!

 

[Staple1600]

Re : Suppression des lignes selons conditions

Bonjour et bienvenie sur le forum


Tu peux utiliser le filtre automatique pour supprimer les lignes avec 0 (avec ou sans macros )
Ici avec macro

Sub Macro1()
Range("C1:C900").AutoFilter Field:=1, Criteria1:="0"
[C1:C900].Offset(1).SpecialCells(12).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

 

[oli294]

Re : Suppression des lignes selons conditions

Super merci! Je m’entêtais à ne pas utiliser de fonction "filtre" dans ma macro mais je vois que c'est la meilleure solution!!!

Merci encore