Boucle arrêter si touche échap

Bonjour à tous,

J'ai un soucis pour un programme, en effet je souhaite exécuter une procédure jusqu'à ce qu'on appuie sur la touche "ECHAP".

Pour ce faire, j'utilise :

Private Sub CommandButton1_Click()

While vbKeyEscape <> True

Call codification_piece

Wend

End Sub

Mon problème est simple, lorsque j’appuie sur la touche "ECHAP", la procédure s'arrête mais nous l'avons déjà lancer, ce qui me provoque une erreur.

Je souhaite tout simplement ne pas exécuter la procédure, du moins revenir en arrière puisque lorsque je fais "ECHAP" on souhaite arrêter la procédure..

Je pense que j'ai un problème de "logique" dans le sens, ou il ne faudrait pas exécuter la procédure !

Cordialement

Bonsoir,

Essayer un "DoEvents" pour qu'il ait le temps de tenir compte de l'appui sur la touche "ECHAP"

Private Sub CommandButton1_Click()

    While vbKeyEscape <> True

        Call codification_piece
        DoEvents

    Wend

End Sub

Bonjour, alors j'ai testé votre proposition, mais malheureusement celle-ci ne fonctionne pas.

Le soucis est que la procédure ne va plus a son termes, depuis le rajout du code "DoEvents".

Pour faire simple, je souhaite exécuter une procédure jusqu'à ce que j'appuie sur échap pour en sortir.

Du coup j'étais partie sur ce code, mais peut-être que c'est moi qui est mal démarré ?