Gestion Erreur VBA On error Goto marche pas

Lorenzozo -
le père - 1 déc. 2009 à 15:36

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

Afficher la suite

A voir également:

On error goto vba
Incompatibilité de type vba ✓ - Forum Programmation
Fan error lenovo - Forum Refroidissement
Cmos checksum error ✓ - Forum Carte-mère/mémoire
Playback error reconnect in 3s (1/5) francais - Forum Box et Streaming vidéo
Whea error occt - Forum Processeur

2 réponses

Réponse 1 / 2

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

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 des

on 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

Lorenzozo

Merci à De l'intérêt de s'exprimer en français, j'ai pris ta solution après m'être acharné encore ce matin à trouver une solution même si dans une autre macro on error goto marchait.

Encore merci.

Lorenzozo

Réponse 2 / 2

le père

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

Discussions similaires

Iptv smarters pro Network error occured! Please try again

Ordi lenovo fan error

message d'erreur network error

Problème de pointage antenne satellite

"L'indice n'appartient à la sélection" + VBA

Votre réponse

Discussions similaires