Bonjour à tous  
 
Mon problème est que j'ai fais un bloc d'erreur.
On error goto Err_Strategis
...
 
Err_Strategis :
    msgBox "BLA"
 
Si il y a une erreur, il saute comme il se doit a Err_Strategis. S'il n'y en a pas il continue de lire mon code ligne par ligne et lorsqu'il arrive à Err_Strategis il lit aussi et affiche le message Box ce que je ne veux pas bien entendu?  
 
Maryse

Les étiquettes de gestion d'erreurs sont habituellement placées à la fin de la sub|function et dans ce cas il faut ajouter avant  l'étiquette
 
Exit Sub|Function
Err_Strategis :  
    msgBox "BLA"
End Sub|Function
 
ou alors mettre une instruction GoTo pour ne pas lire le code d'erreur
 
Goto Suite
Err_Strategis :  
    msgBox "BLA"
Suite:
 
Epéna

 
Pour éviter cela, on met habituellement la gestion d'erreur en fin de procédure, on sort avant si tout va bien et on utilise aussi Resume quelque chose pour annuler le On Error. Donc cela donne quelque chose du genre :
 

Edit : L'excellent Epena a répondu plus rapidement que moi, et dit à peu près la même chose. C'est parfait.

Finalement je n'ai qu'a mettre Exit sub au dessus!  
 
Merci

A condition que l'étiquette (suivie de ce qu'il y a à faire en cas d'erreur)  soit à la fin de la procédure (Sub ou Function), je suppose.