VBA : on error goto label

[Amauty]

Bonjour à Tous,

Je suis en train de tenter de gérer une erreur sur ma routine. J'ai un message d'erreur qui apparaît régulièrement. Je la contourne avec un on error goto label.
Le souci c'est que je souhaite effectuer des actions en cas d'erreur, à savoir, stopper la macro (jusqu'ici tout va bien) et renvoyer l'utilisateur vers une feuille du classeur.
Voici la fin du code :

Exit Sub
pasdemarché:
If Err.Number = 91 Then
MsgBox "pas de bodegas exportatrices sur ce marché"
Sheets("filtre").Range("B6").Select
Else
Sheets("filtre").Range("B6").Select
End If

End Sub

Le souci, c'est que VBA refuse toute sélection de range dans mon label.
Quelle solution existe-t-il pour effectuer des instructions dans un label ?

merci à tous

Amaury

 

[MJ13]

Re : VBA : on error goto label

Bonjour Armauty

C'est un jeu de piste .

 

[Pierrot93]

Re : VBA : on error goto label

Bonjour, slt Michel

Exit Sub
peut être come ceci :
pasdemarché:
If Err.Number = 91 Then MsgBox "pas de bodegas exportatrices sur ce marché"
Application.Goto Sheets("filtre").Range("B6")
End Sub

bon après midi
@+

 

[Amauty]

Re : VBA : on error goto label

Non, je reçoit le même message d'erreur :
"impossible de lire la propriété select de la classe Range"...

 

[JNP]

Re : VBA : on error goto label

Bonsoir le fil ,
Un petit

Err.Clear

avant le Select, peut-être ...
Bonne soirée