Discussion :

[babybell]

Bonjour
J’ai un code concernant un time-out.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Explicit
Public start As String
Sub timer_off()
Dim start, PauseTime
PauseTime = 100   ' Définit la durée.
start = Timer    ' Définit l'heure de début.
Do While Timer < start + PauseTime
DoEvents    ' Donne le contrôle à d'autres processus.
Loop
Application .quit
End Sub

Celui-ci me va bien, mais j’aimerai faire apparaître un chronomètre du temps restant.
Mon problème est que je n'arrive pas à intégrer une quelconque horloge ou chrono à l'intérieur du code sans que cela ne gène l'exécution de ce code. Celui-ci n'est plus actif.
Merci de votre aide concernant ce problème

[ucfoutu]

Bonjour,

Qu'est ton "temps restant" ? Rien d'"autre que la valeur de ta variable Start + la durée définie - la valeur de timer ... (rien de plus simple !)

dans ta boucle, juste avant le DoEvents, donc :

Code :

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

Label1.Caption = start + PauseTime - Timer

affichera le "temps restant" dans un Label nommé Label1

Mais si tu ne veux pas donner le vertige à l'utilisateur, préfère ceci, qui n'affichera que des entiers de secondes :

Code :

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

Label1.Caption = Int(start + PauseTime - Timer)

Ceci étant dit :

Pourquoi définir start deux fois (une fois en public et l'autre dans ta procédure ?) . Il suffit de le faire dans ta procédure. (et défini tes types !)

Code :

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

Dim start As Long, PauseTime As Integer

[babybell]

Merci de ta réponse, mais j'ai un problème. J'ai bien créé un userform avec un Label1 dans lequel j'ai mis

Code :

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

Label1.Caption = Int(start + PauseTime - Timer)

mais rien ne se passe

et de plus, la feuille dans laquelle je traveille n'est plus accessible à sause du userform

[DeaD78]

Bonjour,

Pour ce qui est de ton Userform, il ne se met pas à jour si j'ai bien compris.

Premièrement, vérifie si tu n'aurais pas un ScreenUpdate qui traînerait à False.
Ensuite, pour réafficher ton Userform actualisé, tu peux utiliser

Code :

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

UserForm1.Repaint

Par contre, je ne suis pas bien sûr d'avoir compris ce qui se passait réellement. N'as-tu aucune mise à jour de ce Userform ou rien ne se passe-t-il tout court ?

EDIT : En ce qui concerne ton Userform qui bloque l'accès à tes feuilles, le problème c'est que tu utilises un Userform modal. Il te faut basculer sur un affichage non modal pour résoudre ton problème. Donc, au lieu d'avoir

Code :

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

UserForm1.Show

il faut que tu remplaces par

Code :

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

UserForm1.Show 0

et hop le tour est joué !

[babybell]

Je n'au aucun screenupdate qui traine car, pour l'instant il n'y a que ce bout de code dans mon programme.

Code :

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

1
2
3
4
5
6
7
8
9
Sub timer_off()
Dim start As Long, PauseTime As Integer
PauseTime = 50   ' Définit la durée.
start = Timer    ' Définit l'heure de début.
Do While Timer < start + PauseTime
UserForm1.Show 0
DoEvents    ' Donne le contrôle à d'autres processus.
Loop
End Sub

Le userform ne se met à jour que lorsque je clique dessus, à l'emplacement du Label1.

Code :

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

1
2
3
Private Sub Label1_Click()
Label1.Caption = Int(start + PauseTime - Timer)
End Sub

Par contre, avec

Code :

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

UserForm1.Show 0

, j'ai bien accès à ma feuille, mais sans pouvoir écrire dedans, et cela bloque tout, je suis obligé de faire 'Ctrl-Alt-Suppr'

[LeForestier]

Merci de ta réponse, mais j'ai un problème. J'ai bien créé un userform avec un Label1 dans lequel j'ai mis

Code :

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

Label1.Caption = Int(start + PauseTime - Timer)

mais rien ne se passe

Tu doit mettre cela dans ton Timer...

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
Sub timer_off()
Dim start, PauseTime
Dim S As Byte
    PauseTime = 100   ' Définit la durée.
    start = Timer    ' Définit l'heure de début.
    Do While Timer < start + PauseTime
        If S <> Second(Time) Then
            'pour que l'affichage ne se passe que toute les secondes
            'sinon ça va être infernal
            UserForm1.Label1.Caption = Int(start + PauseTime - Timer)
            S = Second(Time)
        End If
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
    Application .Quit
End Sub

Eventuellement adapter le nom de ton UserForm
A+

[babybell]

merci, cela fonctionne mieux, mais j'ai toujours le problème de ne pas pouvoir écrire sur ma feuille pendant que le chrono défile malgré le petit conseil d'ucfoutu, que je remercie autant que toi de votre aide.

[babybell]

Ca y est, ça marche. Je ne mettais pas

Code :

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

UserForm1.Show 0

au bon endroit. Voici le code final:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub timer_off()
Dim start, PauseTime
Dim S As Byte
    PauseTime = 600   ' Définit la durée.
    start = Timer    ' Définit l'heure de début.
    UserForm1.Show ([0])
    Do While Timer < start + PauseTime
        If S <> Second(Time) Then
            UserForm1.Label1.Caption = Int(start + PauseTime - Timer)
            S = Second(Time)
        End If
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
End Sub

Encore merci à vous