Supprimer une ligne excel VBA [Résolu/Fermé]

Signaler
-
 Fitz_chev -
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

Messages postés
12757
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
12 octobre 2020
2 041
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

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Merci beaucoup c'est parfait.
Merci pour votre reponse rapide