Supprimer 3 lignes après un résultat

Question

Bonjour, 

j'ai commencé à écrire un bout de macro, mais je bute sur un point. Lorsque le résultat est atteint je voudrais que la macro me supprime la ligne en question et les 3 lignes qui suivent, comment pourrais-je faire ?

Ci-joint mon code :

Sub Essai()
Dim i As Integer
    With ThisWorkbook.Sheets("Feuil1")
        For i = .Range("c" & .Rows.Count).End(xlUp).Row To 2 Step -1
            If .Range("c" & i).Value = "Patate" Then
             .Rows(i).Delete
            End If
        Next i
    End With
End Sub

Merci

Configuration: Mac OS X Snow Leopard (10.6) / Firefox 22.0

f894009 · Answer

Bonjour,

Sub Essai()
    Dim i As Integer
    With ThisWorkbook.Sheets("Feuil1")
        For i = .Range("c" & .Rows.Count).End(xlUp).Row To 2 Step -1
            If .Range("c" & i).Value = "Patate" Then
                .Rows(i & ":" & i + 3).Delete
            End If
        Next i
    End With
End Sub

Bonne suite

Mika25 · Answer

Merci.

Supprimer 3 lignes après un résultat

2 réponses

Discussions similaires

Newsletters