Boucles for imbriquées + conditions IF

Bonjour,

Quelqu'un peut-il m’expliquer l'erreur dans ce petit programme SVP ?

Sub deleter()

Dim j As Long
Dim i As Long
Dim k As Long

Dim X As Long

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 10
If Cells(i, j).Value Like "*C10*" Then X = Cells(i, 1).Value
For k = i - 30 To i + 30
If Cells(k, 1).Value = X Then Rows(k).Delete ///lerreur est détécté sur cette ligne
Next k

Next j
Next i

End Sub

Merci d'avance pour l'aide

Salut,

Essaie ça :

Sub deleter()

Dim j As Long
Dim i As Long
Dim k As Long
Dim X As Long

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 1 To 10

    If Cells(i, j).Value Like "*C10*" Then
    X = Cells(i, 1).Value
    End if

        For k = i - 30 To i + 30

        If Cells(k, 1).Value = X Then
        Rows(k).Delete
        End If

        Next k
    Next j
Next i

End Sub

Bonjour Girodo,

Merci pour ton retour,

j'ai essayer ton prgramme, ça donne toujours Erreur sur la même ligne (If Cells(k, 1).Value = X Then)

Bonjour,

Tu mets k = 1 - 30. Ça correspond à quoi ?

Parce que du coup, la ligne -29, il ne connait pas.

Bonjour,

Merci pour ton retour,

Bravo pour l'observation ! donc mon programme ne peu pas fonctionner pour les 30 premières lignes. j'ai essayer en partant de i=31 et ça marche.

Merci beaucoup.

Bon weekend !

Rechercher des sujets similaires à "boucles for imbriquees conditions"