Bonjour,

Dans la portion de code suivante, qui parcourt une feuille, le "On Error GoTo nexterr:" fonctionne correctement lors du premier cas d'erreur, mais pas au second ou il y a une sortie "brutale" et la fonction rend "#VALEUR!", je ne vois pas bien pourquoi.

  • Le problème persiste même si je réinitialise le gestionnaire d'erreur (err.clear).
  • L'erreur intervient lorsque Worksheets(onglet).Cells(i, col3) fait référence à une cellule dans laquelle une fonction Excel renvoie un cas d'erreur.

Merci par avance pour toute aide.
Claude Barbier

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    On Error GoTo nexterr
    i = 2
    tot = 0
    Do While i < 60000
        ' On sort dés que col 1 vide
        If Worksheets(onglet).Cells(i, 1) = "" Then
           Exit Do
        Else
            If Compare(val1, Worksheets(onglet).Cells(i, col1)) = True Then
                If Compare(val2, Worksheets(onglet).Cells(i, col2)) = True Then
                    If Compare(val3, Worksheets(onglet).Cells(i, col3)) = True Then
                                tot = tot + 1
                    End If
                End If
            End If
        End If
nexterr:
        i = i + 1
    Loop