Supprimer ligne en dessous de cellule
VBA
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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 :
Merci à vous
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
2 réponses
-
Bonjour,
supprimer toutes les lignes après celle-ci
Oui, et quelle est celle-ci? -
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
