Boucle minuteur en VBA . . . comment en sortir ?

Bonjour,

j'ai écrit une procédure de minuteur (ça j'y arrive sans problème) lancée par une image bouton que je souhaite pouvoir arrêter avant la fin (3 minutes comme la cuisson des œufs à la coque) Mais c'est là que survient mon problème. Durant toute la durée de la procédure (soit 3 minutes) elle bloque tout processus et donc toute possibilité à mon bouton "image d'arrêt chrono" d'être fonctionnel.

Comment puis-je m'en sortir ?

Merci à tous

Bonjour, essayez le code ci-dessous, à insérer après la ligne démarrant le minuteur, mais je ne suis pas sur du résultat?

Code:

---

Application.EnableEvents = True

---

Cordialement 8-)

Bonjour,

insére un doEvents et teste une cellule où tu mets un x pour arrêter par exemple (ou un autre bouton).
Mais tu devrais faire ton timer avec OnTime qui ne monopolise pas les ressources.
Il y a un exemple complet dans l'aide, avec comment l'annuler.
eric

il y a le Multithreads aussi:
https://plasserre.developpez.com/cou...ws-forms5#LX-R
C'est un peu barbare mais bien pratique, tu mets ta minuterie en arrière plan, cela te permet de continuer sur autre chose et de l’arrêter quand tu veux avec un bouton ou un événement.

bonjour,

j’espère que tu ne veux pas faire un réchaud de camping avec minuteur de ta tablette PC ?


que veux tu faire exactement,

Pièce jointe 398631

Il est impossible de répondre utilement sans connaître :
1) le code (la procédure complète) du "minuteur" et l'instruction qui la déclenche
2) le conteneur du "minuteur"
3) le conteneur du "bouton d'arrêt"

Merci de vos réponses . . . j'essaie de comprendre tout ça et je reviens vers vous.

Cordialement

Bonjour,

Va voir

https://www.developpez.net/forums/d1...on-simultanee/

cela ressemble à ton minuteur ...

tu dis

A+

je reviens vers vous pour vous remercier de vos suggestions et vous joindre, avec humilité,ce que j'ai réussi à faire.
Ca n'est surement pas au top en ce qui concerne le code, mais ça marche.
Merci de vos commentaires et nouvelles suggestions.
Pelerin98
(un vieux de la vieille . . . j'ai commencé ma vie professionnelle comme programmeur en 1962 sur IBM 1410 ! et l'ai terminée en 2000 quand on m'a viré, trop vieux, trop cher, et plus assez inventif ! )
Très cordiales salutations

NB j'espère avoir correctement inséré le fichier

bonjour pelerin
j'aurais fait beaucoup plus simple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Option Explicit Dim ok As Boolean Dim i& Private Declare Function Beep& Lib "Kernel32" (ByVal Fq&, ByVal Tm&) Sub ESSAI_SON_30() ' ' Beep tonalité, durée ' ------------------------- Beep 500, 200 Beep 700, 300 Beep 600, 500 ' End Sub Sub ESSAI_SON_FIN() ' ' Beep tonalité, durée ' ------------------------- Beep 850, 100 Beep 750, 200 Beep 650, 200 Beep 550, 200 Beep 450, 700 ' End Sub Sub Image4_Clic() i = 60 [g5] = 3: [h5] = 0 If ok = False Then ok = True Application.OnTime Now + TimeValue("00:00:01"), "chrono" Else ok = False End If End Sub Sub chrono() i = i - 1 [h5] = Format(i, "#0") If [h5] = 0 Then [g5] = Format([g5] - 1, "#0"): i = 60 If [g5] = 0 And [h5] = 0 Then ESSAI_SON_FIN If [g5] = 0 And [h5] = 30 Then ESSAI_SON_30 DoEvents If ok = True Then Application.OnTime Now + TimeValue("00:00:01"), "chrono" Else ESSAI_SON_FIN [g5] = 0: [h5] = 0 End If End Sub

---

Bonsoir patricktoulon ,

c'est effectivement beaucoup plus simple, mais je n'arrive pas à lancer la procédure . . ;

Cordialement

mon model j'ai fait tres vite tu peux ameliorer

j'ai fit un oubli en le récrivant
change la ligne qui lui ressemble pour celle ci

Code:

---

If [g5] = 0 And [h5] = 0 Then ESSAI_SON_FIN: Exit Sub

---