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

A voir également:

1 réponse

Réponse 1 / 1

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
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

Fitz_chev
11 sept. 2015 à 16:07

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

Discussions similaires

supprimer ligne

VBA (Excel) - Supprimer une ligne

Calcul nombre de ligne vba

Masquer une ligne sous conditions

Masquer des lignes en fonction de la valeur d'une cellule

Compter dans VBA le nombre de cellule non vide dans une colonne

Discussions similaires

Newsletters