Supprimer 3 lignes après un résultat

Fermé
Mika25 - 27 juil. 2013 à 18:28
 Mika25 - 28 juil. 2013 à 11:10
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

A voir également:

2 réponses

f894009 Messages postés 17239 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 février 2025 1 713
28 juil. 2013 à 09:31
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
0
Merci.
0