Suppression de plusieurs lignes
Bonjour,
J'ai essayé d'adapter un code que j'ai trouvé sur ce forum mais je bute sur une erreur !
En effet, dans mon tableau/Onglet 'En cours (2)' je cherche à supprimer les lignes qui comporte un 'x' dans la colonne M
Lorsque j'appuie sur le bouton supprimer, le filtre s'applique bien et sélectionne correctement les lignes comportant un 'x' mais au moment de les supprimer, j'ai une erreur qui apparait.
Option Explicit
Sub SuppressionLigne()
Dim DerLig As Long
Application.ScreenUpdating = False
DerLig = Range("M" & Rows.Count).End(xlUp).Row
Range("M9:M" & DerLig).AutoFilter field:=13, Criteria1:="x"
If Application.Subtotal(103, Columns("M")) > 1 Then
Range("M10:M" & DerLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If
Rows(1).Delete
End Sub
Je préviens tout de suite, je débute dans le VBA mais je trouve ça passionnant
Si quelqu'un pouvait me donner un petit coup de main, en attendant, je continue à chercher ....
EDIT
J'ai trouvé un autre code qui fonctionne parfaitement
Sub SupprLigne()
Dim i As Integer
Dim DerLigne As Integer
DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
For i = DerLigne To 1 Step -1
If Cells(i, 13).Value = "x" Then
Cells(i, 13).EntireRow.Delete
End If
Next i
End Sub
Bonjour Nouch, le forum,
A tester :
Sub SupprimerLignesX()
Dim I As Integer
With Sheets("Rangement")
Application.ScreenUpdating = False
For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("M" & I).Value Like "*x*" Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End With
End SubCordialement,
Merci Xorsankukai
Ton code fonctionne aussi parfaitement