Bonjour à tous,

Voici mon petit souci.
Je souhaite faire une macro qui parcourt la feuille Excel, s'arrête sur une ligne précise (si 2 conditions sont respectées) et me supprime des lignes situées en-dessous de cette ligne sélectionnée.

La structure de la macro est la suivante :

- La macro parcours la feuille en remontant (de la dernière ligne à la ligne 2)
- La macro teste les 2 conditions sur chaque ligne :
1/ si la colonne B contient une expression de mots spécifiée
2/ si la colonne L contient 0
- si ces 2 conditions sont respectées alors il me supprime les x lignes situées en-dessous (x étant spécifiées)

Voici le code VBA actuel (basé sur un exemple) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub FinalDelete()
 
Dim derniereligne As Long, i As Long
 
derniereligne = Sheets("SAISIE").Range("B" & Rows.Count).End(xlUp).Row
 
Sheets("SAISIE").Select
 
For i = derniereligne To 2 Step -1
    If ActiveSheet.Range("B" & i) = "ASPIRATION CENTRALISEE" And ActiveSheet.Range("L" & i).Value = "0" Then
        ActiveSheet.Rows(i).EntireRow.Delete
    End If
Next i
 
End Sub
je bloque uniquement sur la réalisation du THEN.
J'ai mis le code de suppression de la ligne i dans la macro
mais je ne sais pas comment faire en sorte qu'il me sélectionne une plage de lignes spécifiée (qui irait par exemple de la ligne i à la ligne i+6)


Merci d'avance pour votre aide!!