Supprimer ligne en dessous de cellule Fermé

Question

Bonjour Bonjour, 

Je demande petite aide contre un souci que je rencontre pour supprimer des lignes.
J'ai trouvé ces deux lignes sur un forum qui réponde à un un souci qui est de supprimer toutes les lignes dans la colonne A égale à 0.

Et ce que j'aimerais maintenant c'est de pouvoir supprimer toutes les lignes après celle-ci peut importe la valeur.
Voici mon code :

Sub delete()

For Lig = [A65536].End(xlUp).Row To 1 Step -1
If Range("A" & Lig).Value = 0 Then Rows(Lig).Delete
Next

End Sub

Merci à vous 




Configuration: Windows / Chrome 80.0.3987.132

f894009 · Answer

Bonjour,

supprimer toutes les lignes après celle-ci
Oui, et quelle est celle-ci?

cs_Le Pivert · Answer

Bonjour,

Si j'ai bien compris, c'est supprimer les lignes après la ligne contenant 0

 Option Explicit
Sub delete()
Dim Lig As Long
For Lig = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & Lig).Value = 0 Then
Lig = Lig + 1
Exit For
End If
Next
Range("A" & Lig & ":A" & Range("A" & Rows.Count).End(xlUp).Row).delete
End Sub

Supprimer ligne en dessous de cellule

2 réponses

Discussions similaires