Supprimer une ligne excel VBA

Résolu/Fermé
Fitz_Chev - 11 sept. 2015 à 15:37
 Fitz_chev - 11 sept. 2015 à 16:07
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.Delete
Next c

End Sub

Merci d'avance pour vos réponses


1 réponse

via55
Messages postés
13715
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
2 juillet 2022
2 442
11 sept. 2015 à 15:58
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
2
Merci beaucoup c'est parfait.
Merci pour votre reponse rapide
0