Supprimer une ligne excel VBA

Résolu
Fitz_Chev -  
 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


A voir également:

1 réponse

Réponse 1 / 1
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
Fitz_chev
 
Merci beaucoup c'est parfait.
Merci pour votre reponse rapide
0

Discussions similaires

Calcul nombre de ligne vba
Fitz_chev -
Fitz_Chev -

6 réponses
Erreur Automation
a51432 -
a51432 -

8 réponses
insérer du texte dans une cellule vba
jucva -
jucva -

2 réponses
Récuperation de la valeur de CheckBox
Dudugris -
Dudugris -

2 réponses
Convertir en nombre
a51432 -
a51432 -

2 réponses
Copie de feuilles sur autre classeur que celui lançant la macro
HUGO BASS -
HUGO BASS -

8 réponses