Discussion :

[Kestion100]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kimy_Ire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Activate()
Call boucle(5)
End Sub

3) La fonction "boucle" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

Cordialement,
Kimy

[Kestion100]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

compteur

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

[Kimy_Ire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Voila, je reste à ta disposition.

Cordialement,
Kimy

[Kestion100]

ok je comprends mieux