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
A voir également:
- Supprimer ligne en dessous de cellule
- Supprimer rond bleu whatsapp - Guide
- Partage de photos en ligne - Guide
- Mètre en ligne - Guide
- Impossible de supprimer une page word - Guide
- Formulaire en ligne de meta - Guide
2 réponses
Bonjour,
Si j'ai bien compris, c'est supprimer les lignes après la ligne contenant 0
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
