croix UserForm : arreter l'execution au lieu de fermer l'UserForm

bonjour
Je voulais améliorer mon programme pour plus de commodité. En effet si l'utilisateur se trompe et donc décide de fermer l'UserForm il clique sur la croix. Mais le problème c'est que le programme s'execute encore et donc une UserForm differente apparait il rappui donc sur la croix. De même jusqu'à ce qu'il y est plus d'UserForm et que le programme s'arrete.
Se que je voudrai faire c modifier le code de la croix de l'UserForm pour cela j'ai rentrer ce code:

Code:

---

1 2 3 4

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Exit Sub End Sub

---

Le problème c'est que ça ferme juste l'UserForm
Comment puis-je faire pour arreter l'execution lorsqu'on clique sur la croix? Ceci permettrai de ne pas avoir à cliquer sur une vingtaine de croix si on s'apperçoit d'une erreur.
Merci d'avance

Code:

---

End

---

Fais toutefois attention à tes variables publiques car elles seront effacées. ;)

merci beaucoup de ton aide ;)

Bonjour,

je n'aime pas trop cette solution de End (hussarde et peu recommandée pour plusieurs raisons).
Il vaut mieux :
- remettre à Nothing tout les objets que l'on aurait pu créer
- arrêter tout timer éventiellement lancé
- décharger tout de qu'il y a à décharger (méthodiquement)

Mais bon ...

C'est lourd à mettre en place ça. ;)

Une alternative: tu renvoies une valeur à ton programme principal où tu mettras un exit sub ça marche aussi et en plus tes variables publiques resteront intactes.