Suppression lignes successives
Bonjour
Je travaille sur un fichier qui contient un nombre incalculable d'enregistrements, je voudrais supprimer des lignes contenant le mot "impayé" et la ligne suivante (en dessous) car l'enregistrement est sur 02 lignes.
j'ai trouvé sur le site ce code de Boris2802 qui marche très bien pour supprimer les lignes contenant le mot recherché
Sub SuppBIO()
Dim I As Integer
For I = [A65000].End(xlUp).Row To 1 Step -1
If Not Cells(I, 1).Find("bio") Is Nothing Then Rows(I).Delete
Next I
End Sub
mais je n'arrive pas a le modifier pour supprimer la ligne suivante aussi.
Merci pour votre aide.
Bonjour, ajoutez +1 à votre variable i pour la ligne du dessous.
Then Rows(I & ":" & I + 1).DeleteGrand merci pour l'astuce !!
Ça fonctionne très bien et vous venez de me faire économiser des heures de clics . Super !!