Discussion :

[PeaceMaker]

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

[mercatog]

Bonjour

Évite les Select

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[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 ). 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.