Terminer la boucle meme si erreur

Bonjour,

Je cherche une solution pour faire terminer une boucle même si la formule est erreur dans quelques lignes.

Merci

Bonjour,

Essayez ceci:

    For i = 2 To dl
        On Error Resume Next
        Cells(i, 3).Value = WorksheetFunction.ChiSq_Inv(Range("f2"), Cells(i, 1))
        On Error GoTo 0
    Next i

Cdlt

Merci Arturo83 pour ton aide, c'est possible de mettre le mot "erreur" au lieux de 0 ?

on error goto 0 à pour but de réinitialiser la gestion d'erreur, ce qui permet de passer à la ligne suivante, cela n'affiche pas la valeur 0, Lorsqu'une erreur est trouvée, on l'ignore tout simplement.

La modification demandée:

    For i = 2 To dl
        On Error Resume Next
        Cells(i, 3).Value = WorksheetFunction.ChiSq_Inv(Range("f2"), Cells(i, 1))
        If Err.Number <> 0 Then GoTo GestionErreur
Suite:
    Next i
    Exit Sub

GestionErreur:
    Cells(i, 3).Value = "Erreur"
    On Error GoTo 0
    GoTo Suite