Supprimer une ligne excel VBA Résolu/Fermé

Question

Bonjour, 

Je suis débutant sur le VBA excel, avant de dire quoique ce soit, je tiens à signaler que j'ai cherché la réponse sur différent forum sans trouver la réponse.

Je cherche à supprimer une ligne complète sur excel si dans ma colonne B, à partir de B5, le contenu est différent de ok.

J'ai trouvé ça qui marche bien, seulement la macro me les supprime ligne par ligne, c'est a dire que je suis obligé de relancer la macro pour chaque ligne.

Voici mon code:
Sub effacer()For Each c In Sheets("Tabelle1").Range("B5:B" & Range("B65356").End(xlUp).Row)If c <> "ok" Then c.EntireRow.DeleteNext cEnd Sub
Merci d'avance pour vos réponses


Configuration: Windows 7 / Chrome 45.0.2454.85

via55 · Accepted Answer

Bonjour

Pour effacer toutes les lignes voulues il faut partir de la fin puis remonter

Sub effacer()
dl = Range("B65356").End(xlUp).Row
For n = dl To 1 Step -1
If Range("B" & n) <> "ok" Then Range("B" & n).EntireRow.Delete
Next n
End Sub

Cdlmnt
Via

Supprimer une ligne excel VBA

1 réponse

Discussions similaires