Dans ta boucle, tu peux faire un test sue une variable qui est à 0 qand tu entres dans ta boucle et passe à 1 quand tu cliques sur ton bouton.
Exemple :
MaVariable = False
For TaBoubleTresLongue If MaVariable = True then End 'Tu sors de ton programme do events 'Permets à Windows de prendre la main, comme cliquer sur 1 bouton ... Next
Si tu ne veux pas sortir de ton programme tu peux utiliser une étiquette Goto. De facon plus propre, travaille avec un do/while/loop plutot qu'un for et mets ta nouvelle condition :
do while do events ... loop MaVariable = False And AutresConsitions
OK ?
|