Pause avec affichage du temps

Bonjour, je cherche à faire une pause dans une macro et à afficher le temps de cette pose de façon dynamique.

Les codes que j'utilise ne fonctionnent pas car mon code pause arrête aussi mon compte à rebours.
Comment résoudre celà?
(Et s'il y a un moyen pour afficher ce compte à rebours dans une msgbox plutôt que dans une cellule alors là BINGO)


Mes codes:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Wait() ' Attendre 1.15 secondes LanceCompteur Application.Wait Time + TimeSerial(0, 1, 15)       ' Continuer après la pause End Sub

---

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

Dim mDate As Date ' Memo date de fin compte à rebour Sub LanceCompteur() Application.ScreenUpdating = True Range("BP1").Select Selection.NumberFormat = "h:mm:ss" mDate = Now + TimeSerial(0, 1, 15)   MajCompteur   End Sub   Sub MajCompteur() ' Procedure mise à jout compteur Dim dRestant As Date Application.ScreenUpdating = True   If mDate > 0 Then dRestant = mDate - Now If dRestant > 0 Then Application.OnTime Now + TimeValue("00:00:01"), "MajCompteur" ' Auto-Rappel dans 1s pour Mise à jour Range("BP1").Value = dRestant   Else MsgBox "Fin Compte à rebours" mDate = 0 Range("A1").Select Exit Sub End If End If     End Sub

---

Merci beaucoup d'avance à toute aide

Bonjour Kestion100,

Je ne suis pas hyper à l'aise avec ce qu'on appeler les "thread" en VBA.
Certains disent qu'on ne peut pas, d'autre qu'on peut difficilement, d'autres, encore, diront que ce n'est pas un thread.

Quoi qu'il en soit, il faut user d'astuce pour pouvoir faire ça.

En l’occurrence, ton problème peut être résolu.

Je me suis largement inspirer d'un compteur que j'avais trouvé sur le net :
1) Dans ton code, à l'endroit de la pose, tu ouvres ton UserForm. Celui-ci n'a besoin de contenir qu'un seul label que j'ai laissé à "Label1" :

Code:

---

1 2 3

Sub compteur() UserForm1.Show End Sub

---

2) Dans la macro d'ouverture de ton UserForm, tu appelles la fonction "boucle" avec, en paramètre, le nombre de seconde que tu veux :

Code:

---

1 2 3

Private Sub UserForm_Activate() Call boucle(5) End Sub

---

3) La fonction "boucle" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Function boucle(nb As Integer)   varChronoEnCours = 0 varStart = Timer varStartBoucle = varStart Do While varChronoEnCours < nb + 1 UserForm1.Label1.Caption = Int(Timer - varStart)   Do While Timer < varStartBoucle + 1 DoEvents Loop   varStartBoucle = Timer varChronoEnCours = varChronoEnCours + 1 Loop   Unload UserForm1   End Function

---

A adapter. Je te laisse revenir vers moi si tu as des questions.

Il y a probablement plus simple ! :ccool:

Cordialement,
Kimy

Je testé des demain.
Est ce que j'appelle

Code:

---

compteur

---

dans la macro que je souhaite mettre en pause et je fais 2 modules avec tes autres codes ? Ai je bien compris ?

Kestion100,

Ce que je ferais, c'est que j'appellerais "UserForm1.Show" à l'endroit où tu souhaites faire une pause.

Puis dans ton "Private Sub UserForm_Activate()" de ton UserForm1, je passerais en paramètre une variable globale, dans la fonction "boucle" pour pouvoir définir le temps d'arrêt, du style :

Code:

---

Call boucle(var_glob)

---

avec var_glob étant un Integer.

Pour "boucle", il n'y a pas grand chose à faire. A part que tu veux un compteur décroissant, je crois.

Donc peut-être écrire ceci :

Code:

---

UserForm1.Label1.Caption = nb - Int(Timer - varStart) & "/" & nb

---

Voila, je reste à ta disposition. :ccool:

Cordialement,
Kimy

ok je comprends mieux