interruption de macro VBA Résolu/Fermé

Question

Bonjour,
je cherche un moyen de faire une interruption de macro sur une pression de touche de clavier.
je m'explique, j'ai une macro qui s'exécute sur un changement de textbox1 :

Private Sub TextBox1_Change()
Macro1
End Sub

cette macro1 est relativement longue à s'exécuter et lorsque je tape un mot dans ma TextBox1, la macro s'exécute à chaque lettre frappée ce qui ne gène pas le fonctionnement mais rend très lent l'affichage de la saisie du mot (puisque ma macro s'exécute X fois pour un mot de X lettres)

J'imagine 2 solutions à mon problème/
- faire une iterruption de la macro sur l'événement KeyPress ou
- que l'exécution de la macro ne ce fasse qu'après une tempo déclenchée par une frappe de lettre et que toute nouvelle frappe réinitialise cette tempo.

si quelqu'un à compris mon message et connait une solution, je le remercie d'avance.

Configuration: Windows 2003 / Safari 531.21.10

commentcamarcheeay · Answer

Bonjour,

On peut essayer la fonction "Now"
Le fait d'appuyer sur une touche met une variable globale "decalage" à Now + 3s

decalage = Now + 0.00003

Et quand puis il faut ajouter une boucle à ta méthode

Do while Now < decalage
Loop

Cela permettra d'exécuter une boucle vide jusqu'à l'épuisement de 3 secondes. Le code s'exécutera dès que le décalage est atteint.

eriiic · Answer

Bonjour,

teste ça :
Private Sub TextBox1_Change()
    Application.OnTime Now + TimeValue("00:00:02"), "Macro1"
End Sub

Je pense qu'un nouvel évènement écrasera la précédente tempo, si ce n'est pas le cas il faudra auparavant supprimer la précédente (dont on aura mémorisé l'heure de déclenchement) avec Schedule:=False (voir aide vba de ontime)

eric

commentcamarcheeay · Answer

Bonjour,

Pour compléter la solution d'eriiic, voici un exemple d'utilisation de Application.OnTime, cela t'évitera, si tu n'as pas l'habitude de l'utiliser, de multiplier les tests.

Dim t As Date

Private Sub TextBox1_Change()
    On Error Resume Next
    Application.OnTime t, "test", , False
    t = Now + TimeValue("00:00:03")
    Application.OnTime t, "test"
End Sub

La procédure 'test' est à mettre dans un module simple.
A chaque itération, on efface l'événement précédent avec "Schedule := False" et on relance un autre à partir de ce moment.

Je rappelle juste que cette application a fait le sujet de remarque d'eriiic quand il a proposé cette solution.

kurth · Answer

Merci à vous pour vos idées.
j'ai fais le test de la dernière proposition qui à l'air de porter quelques fruits mais il reste encore des petits soucis.
le fais de mettre le shedule à False n'a pas l'air d'annuler les procédures "Test"  lancées avant la fin de la tempo mais juste de les inhiber et donc elles se lancent toutes à la fin de la tempo.

Si l'un de vous à une solution pour annuler, la solution sera trouvé.

kurth · Answer

l'autre soucis c'est que la 1ère tempo lancé au premier changement n'est pas annulée donc quoi qu'il arrive, la procédure "test" ce lance à la fin de la tempo même si des changements sont fait dans la textbox.

commentcamarcheeay · Answer

Bonjour,

J'espère que tu as bien définit la variable t comme variable globale. Il faut qu'elle soit déclarée dans le champs des déclarations, tout en haut du texte du code, en dehors de la procédure TextBox1_Change(). Sinon, à chaque fois elle va être initialisée à TimeValue("00:00:00").
En fait, si on porte la valeur Schedule de OnTime à False, il faut qu'elle soit précédée par un événement qui se déroule dans le même temps annulé. Quand cependant t est réinitialisée, on risque de demander l'annulation d'un événement qui n'a pas été déclaré au préalable.
Si tu remarque, à la première exécution du code dans le permalink #7, t n'est pas encore initialisée. Si on n'avait pas mis l'instruction "On Error Resume Next", cela engendrerait un arrêt de programme. Ce n'est qu'à la seconde frappe de clavier que cette ligne a un effet. Et pour que d'une frappe à une autre t garde la valeur précédente, il faut qu'elle soit globale par rapport à la procédure.

J'ai tester de nouveau ce bout de code, la procédure ne s'exécute que si j'arrête d'écrire pendant la durée prescrite.

kurth · Answer

Nickel!
Je n'avais pas déclaré "t" en global mais une fois fait, ça fonctionne.
Un grand merci à toi.
 PS: y a t'il moyen de mettre un temps de 0.1s? ("00:00:00:1")??????

kurth · Answer

ça marche pas avec ("00:00:00.1")
Pas grave, merci quand même

Interruption de macro VBA

8 réponses

Discussions similaires