XL 2016 Quitter la procédure à partir d'une fonction

[Remteyss]

Bonjour le forum,

Travaillant depuis 3 mois sur une même code, je l'améliore de jour en jour pour gagner en lisibilité si des collègues chercheraient à le retravailler.
J'ai donc implémenté pas mal de fonctions.
Je souhaiterais maintenant implémentés des messages d'erreur (qui apparaissent lors du remplissage d'un formulaire) à l'aide de fonctions.
Seulement, si l'erreur était repérée, la procédure s'arrêtait à l'aide d'un "Exit Sub" et l'utilisateur avait alors la possibilité de continuer le remplissage du formulaire.
Mais en utilisant des fonctions, la seule alternative que j'ai trouvée est de placer un "End" dans la fonction. Le soucis est que cela ferme tous les formulaires et l'utilisateur doit alors tout re remplir...

Auriez-vous une idée pour fermer une procédure à partir d'une fonction ??

 

[_Thierry]

Bonsoir

As tu essayé tout simplement Exit Function ?
@+Thierry

 

[Remteyss]

Bonjour @_Thierry

Oui j'ai testé le Exit function, il permet juste de sortir de la fonction mais la procédure continue
Pour mon cas, il y a donc un message d'erreur qui s'affiche demandant à l'utilisateur de modifier sa sélection puis la procédure continue sans laisser la main à l'utilisateur

 

[mapomme]

Bonjour @Remteyss ,

Une piste :

Sub test()
Dim a
   MsgBox "Avant"
   a = toto()
   MsgBox "Après"
End Sub

Function toto()

On Error GoTo FIN
   toto = 1 / 0
   Exit Function

FIN:
   MsgBox "erreur dans toto"
End Function

 

[Remteyss]

Bonjour @mapomme,
Merci pour ton idée, je vais essayé d'adapter cela