Effacer plusieurs lignes selon condition Résolu/Fermé

Question

Bonjour à tous

Merci à l'avance du temps que vous prendrez pour lire mon post. Je sais qu'il y en a beaucoup qui traite le sujet mais je n'y arrive pas.

Mon but est de supprimer les lignes qui contiennent une valeur(peu importe)dans la colonne L  ET dans la colonne R la valeur "2015"

J'ai un code. Il fonctionne mais seulement une ligne à la fois, il faut que je le relance pour la ligne suivante..

Sub effacer() Dim i As LongFor i = 2 To 10000If Sheets("all").Cells(i, 12) <> "" And Sheets("all").Cells(i, 18) = "2015" ThenRows(i).EntireRow.DeleteEnd IfNext iEnd Sub

Quelqu'un a t'il une idée de ce qui manque à mon code? Présentement ça efface la ligne 20 mais pas la 21 qui aurait dû l'être aussi.. Je dois relancer pour que ça fasse la ligne suivante..

merci à l'avance

Kuartz · Answer

Bonjour,

Parce que quand tu supprime des lignes, la valeur de i change (et oui, je me suis fait avoir plusieurs fois).

Du coup :

Sub effacer()

Dim i As Long

For i = 10000 To 2 Step -1
If Sheets("all").Cells(i, 12) <> "" And Sheets("all").Cells(i, 18) = "2015" Then
Rows(i).EntireRow.Delete

End If
Next i

End Sub

Cordialement.

Effacer plusieurs lignes selon condition

1 réponse

Discussions similaires