Macro Excel pour supprimer des lignes

Salut, Xibalba

Essaie ceci:

Sub SupprimerLignes()

Const LigneDebut = 1 ' entre 1 et 65536 pour Excel 2003

Const LigneFin = 20 ' entre 1 et 65536 pour Excel 2003

Const ColonneClient = 1 ' entre 1 et 255 pour Excel 2003

Const ColonneNbColis = 3 ' entre 1 et 255 pour Excel 2003

    For i = LigneFin To LigneDebut Step -1

        If Cells(i, ColonneClient) = "Client 3" And Cells(i, ColonneNbColis) = "" Then

            Rows(i & ":" & i).Delete Shift:=xlUp

        End If

    Next i

End Sub

A toi d'adapter les constantes en début de code avec ton fichier.

Bonne continuation

Maintenant j'aimerais supprimer 3 lignes au dessus et 3 lignes en dessous d'une certaine ligne ainsi que la ligne concernée. par exemple si ma ligne 4 répond à mon critère, Excel supprime la ligne 1 2 3 4 5 6 7

J'ai donc écris ceci mais ça ne fonctionne pas :

For i = LigneFin To LigneDebut Step -1
If Cells(i, ColonneSsTotal) = "SOUS TOTAL" And Cells(i, ColonneValSsTotal) = "0" Then
Rows(i + 3 & ":" & i + 3).Delete Shift:=xlUp
Rows(i + 2 & ":" & i + 2).Delete Shift:=xlUp
Rows(i + 1 & ":" & i + 1).Delete Shift:=xlUp
Rows(i - 3 & ":" & i - 3).Delete Shift:=xlUp
Rows(i - 2 & ":" & i - 2).Delete Shift:=xlUp
Rows(i - 1 & ":" & i - 1).Delete Shift:=xlUp
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next i


J'avoue que je ne connais pas le sens de (i - 1 & ":" & i - 1).
Je suppose que le shift n'est qu'un décalage de la ligne vers le haut (pour le "Up").
Comment faire s'il vous plait ?

Merci d'avance !

Up

Salut, Xibalba

Désolé pour le retard, j'étais en congés.
Quand tu supprimes une ligne dans Excel, il ne faut pas oublier que cela décale les lignes qui sont en dessous. Il faut donc commencer par supprimer la ligne la plus "basse" et continuer en remontant jusqu'à la dernière ligne que l'on veut supprimer.
Par ailleurs, en supprimant des lignes, ta boucle va faire des tests inutiles.
Voici ce que je te propose:

i = LigneFin

While i <= LigneDebut

        If Cells(i, ColonneSsTotal) = "SOUS TOTAL" And Cells(i, ColonneValSsTotal) = "0" Then 

            For j = 1 To 7

                Rows(i - 3 & ":" & i - 3).Delete Shift:=xlUp 

            Next j

            i = i - 7

        End If 

        i = i - 1

Wend

C'est mieux ?