Gestion Erreur VBA On error Goto marche pas

Question

Bonjour,
Ci-dessous une séquence de gestion d'erreur qui plante dans le sens que malgré l'erreur, la séquence réalise les actions entre else et and if alors qu'elle devrait aller directement à la dernière ligne, non ?. Je n'y comprend rien !!!! Help

Sheets("Tapis 1").Select
    Columns("C:C").EntireColumn.Select
    On Error GoTo Getapis1

    Selection.Find(What:=Sheets("Synthèse").Range("I13"), After:=ActiveCell, LookIn:=xlValues, LookAt _
    :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False).Activate

    Getapis1:
        If Err.Number = 91 Then
    Resume Next
        
        Else
    ActiveCell.Offset(0, -2).Range("A1:K1").Select
    Selection.Copy
    Sheets("Synthèse").Select
    Range("i16").Select
    ActiveSheet.Paste
    End If

Sheets("Tapis 1").Select

De l'intérêt de s'exprimer en français · Answer

Salut,

Pour ma part je n'ai pas réussi à faire fonctionner d'une manière satisfaisante le on error goto Label.
J'ai donc deson error resume next
une instruction sensible
if err.number <> 0 then
  prise en compte de l'erreur
  err.clear
end if
on error goto 0
C'est un peu lourd... mais sans surprise

le père · Answer

Bonjour

Les On Error Goto Label marchent très bien
Mais tu n'as pas mis d'Exit sub avant ton label !
Donc quand ton programme se déroule de façon normale,il finit par arriver sur ce label et il continue. Il fait le test sur le numéro d'erreur et comme ce n'est pas 91, il saute au else

Gestion Erreur VBA On error Goto marche pas

2 réponses

Discussions similaires

Newsletters