Discussion :

[manouk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[decondelite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End

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

[manouk]

merci beaucoup de ton aide

[ucfoutu]

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 ...

[decondelite]

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.