Supprimer ligne en dessous de cellule

Fermé

VBA - 6 août 2020 à 13:26
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 6 août 2020 à 16:31

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:

Supprimer ligne en dessous de cellule
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Aller à la ligne dans une cellule excel - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
6 août 2020 à 15:57

Bonjour,

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

Réponse 2 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
6 août 2020 à 16:31

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

Discussions similaires

Statut « en ligne » alors que non

Que veut dire "correspondant occupé" lors d'un appel ?

On me voit connecté sur facebook alors que je n'y suis pas

Connaissez-vous un simulateur de coiffure en ligne gratuit ?

Discussions similaires

Newsletters