Supprimer ligne en dessous de cellule

VBA -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

supprimer toutes les lignes après celle-ci
Oui, et quelle est celle-ci?
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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

0