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.
Tu peux utiliser le filtre automatique pour supprimer les lignes avec 0 (avec ou sans macros )
Ici avec macro
Code:
Sub Macro1()
Range("C1:C900").AutoFilter Field:=1, Criteria1:="0"
[C1:C900].Offset(1).SpecialCells(12).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub