Code VBA pour supprimer des lignes sous condition - problème

Version imprimable

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:

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!!

Bonjour

Évite les Select

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub FinalDelete()
Dim DerniereLigne As Long, i As Long
 
Application.ScreenUpdating = False
With Sheets("SAISIE")
    DerniereLigne = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = DerniereLigne To 2 Step -1
        If .Range("B" & i) = "ASPIRATION CENTRALISEE" And .Range("L" & i).Value <> "" Then .Rows(i & ":" & i + 6).Delete
    Next i
End With
End Sub

07/06/2011, 17h15
PeaceMaker

Merci beaucoup pour ta réponse rapide et complète Mercatog!

J'ai testé le code et cela marche nickel.

Un seul point noir : même s'il m'exécute le code parfaitement et supprime bien tout ce qui faut, il m'ouvre une box erreur d'exécution '13' Incompatibilité de type et me souligne en jaune la ligne où les conditions sont spécifiées.

Comment puis-je corriger cet erreur ou virer cette box à la noix?

Merci d'avance!
08/06/2011, 09h09
Godzestla

Bonjour,

1) le code est juste et fonctionne

2) Le principe de fonctionnement me paraît risqué au niveau conception car si l'intégrité de tes données ne respecte pas le fait que sous ta ligne "ASPIRATION CENTRALISEE" il y a toujours 6 lignes au moins, tu risques un problème au delete (effet de bord)

3) Les codes de mercatog marchent TOUJOURS (sauf grande fatigue :mouarf:). Chez moi, c'est nickel.

4) Un code ne peut s'exécuter parfaitement et donner une erreur d'exécution. C'est mutuellement exclusif.