pepsi
XLDnaute Occasionnel
Bonjour
Voici mon code pour supprimer des lignes
Mais il ne marche pas ("erreur d’exécution") . quelqu'un peut m'aider ?
Merci d'avance
Voici mon code pour supprimer des lignes
VB:
Sub supprimer_lignes()
Dim i As Integer
i = 1
While i < 2000
If Worksheets("feuil1").Range("D" + CStr(i)).Value = False Then _
Worksheets("feuil1").Row((i)).Delete
End If
i = i + 1
Wend
ActiveCell.Select
End Sub
Mais il ne marche pas ("erreur d’exécution") . quelqu'un peut m'aider ?
Merci d'avance