[resolu] Suppression ligne en VBA

[cissou69]

Bonsoir,

Je cherche à supprimer des lignes en fonction de la valeur de certaines cellules.
J'utilise pour cela un Select Case mais je suis obligé de le relancer plusieurs fois pour que toutes les lignes désirées soient supprimées.

Sub Tri_Data()
Application.ScreenUpdating = False
Sheets("Data").Select
fin = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To fin
    Select Case Left(Sheets("Data").Cells(i, 2).Value, 2)
        Case "S1"
            Rows(i).Delete
        Case "S2"
            Rows(i).Delete
        Case "S3"
            Rows(i).Delete
        Case "N1"
            Rows(i).Delete
        Case "N2"
            Rows(i).Delete
        Case "N3"
            Rows(i).Delete
        Case "Fl"
            Rows(i).Delete
    End Select
Next i
Application.ScreenUpdating = True
End Sub

Merci de votre aide,

 

[JCGL]

Re : Suppression ligne en VBA

Bonjour à tous,

Peux-tu essayer en partant du bas :

Sub Tri_Data()
Application.ScreenUpdating = False
Sheets("Data").Select
fin = Cells(Rows.Count, 1).End(xlUp).Row
For i = fin To 3 Step -1
    Select Case Left(Sheets("Data").Cells(i, 2).Value, 2)
        Case "S1"
            Rows(i).Delete
        Case "S2"
            Rows(i).Delete
        Case "S3"
            Rows(i).Delete
        Case "N1"
            Rows(i).Delete
        Case "N2"
            Rows(i).Delete
        Case "N3"
            Rows(i).Delete
        Case "Fl"
            Rows(i).Delete
    End Select
Next i
Application.ScreenUpdating = True
End Sub

A+ à tous

 

[cissou69]

Re : Suppression ligne en VBA

ça fonctionne ...

Merci!!

edit : merci à tous les 2