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 ?
Bonjour
Deux constatations
1) - pour concaténer utiliser opérateur "&" plutôt que "+"
2) - dans une boucle qui supprime des ligne on a meilleur temps de partir de la fin pour ne pas louper de lignes, c'est plus simple que ce que vous n'avez pas fait non plus, à savoir ne pas incrémenter le numéro de la ligne qu'on vient de supprimer pour traiter la suivante !
À+