Bonjour,
Dans le cadre de la réalisation d'un outil de zoom customisé, j'ai réalisé un Keyevent qui permet à l'utilisateur de créer une shape qui servira plus tard.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
nb_shape = Sheets("Feuil1").Shapes.Count
Application.CommandBars("Drawing").Controls("Rectangle").Execute
Do While Sheets("Feuil1").Shapes.Count <= nb_shape
DoEvents
Loop
j'aimerai que l'utilisateur puisse indiquer à la macro de sortir de ma boucle par l'utilisation de la touche "esc", tant que la macro n'a pas finit de s'exécuter, la fonction définie par le Application.Onkey ne peut pas être lue.
Ma macro se trouve donc dans une boucle infinie, ne permettant pas à l'utilisateur de continuer.

Si vous avez des idées pour palier à ce souci (check de keyevent à l'interieur de la boucle peut-être?) merci.

EB