Discussion :

[Bolderic]

Bonjour,

j'utilise excel 2000.

je souhaiterais créer un compteur horaire qui décompte à partir de l'heure actuelle du pc, le temps restant jusqu'à atteindre l'heure inscrire dans un label (LabelFdj) sous la forme XX:XX. Dès qu'il a atteint l'heure inscrite dans le label, le compteur doit incrémenter pour connaitre de combien la valeur dans le label a été dépassée.
J'ai trouvé le code pour avoir un compteur (code ci-dessous) mais je ne sais pas comment le faire décompter au lieu de compter et je ne sais pas non plus comment le faire démarrer à une certaine heure.

Merci de votre aide.
Bolderic.

code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
 
Public Declare Function SetTimer _
    Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerfunc As Long) _
As Long
 
Public Declare Function KillTimer _
    Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal nIDEvent As Long) _
As Long
 
Public CelluleCourante As Range
 
 
'========== Déclarations Public ========================
Public TimerID As Long            'Activer avec cet ID
Public TimerActive As Boolean     'Est le minuteur actif
'=======================================================
 
Public Sub ActiverTimer(ByVal sec As Long)
sec = sec * 1000
If TimerActive Then Call DesactiverTimer
On Error Resume Next
TimerID = SetTimer(0, 0, sec, AddressOf Timer_CallBackFunction)
TimerActive = True
End Sub
 
Public Sub DesactiverTimer()
    KillTimer 0, TimerID
End Sub
 
Public Sub Timer_CallBackFunction(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, _
    ByVal Systime As Long)
 
    Dim vel
'Affichage sur le Userform
Pageaccueil.Labeldate.Caption = Format(Now, "dddd dd mmmm yyyy") 'ou "Long Date"
Pageaccueil.LabelFdj.Caption = Format(Now, "hh:mm") 'ou "Long Time"
 
End Sub

[ucfoutu]

Bonjour,

si heurefin est ton heure de fin :
Au lieu d'afficher Now, affiche donc la différence entre heurefin et Now
(datediff à voir dans ton aide en ligne)

[decondelite]

Je précise que datediff ne fournira pas un résultat tout cru, et donc qu'il faudra lui demander de donner un résultat en secondes (positives ou négatives), résultat que tu devras retravailler pour l'afficher au format hh:mm:ss.

[Bolderic]

Merci pour votre aide, je vais essayer d'approfondir cette piste.

[ucfoutu]

Ne te casse pas trop la tête avec des calculs arithmétiques pour convertir un nombre de secondes en heures, minutes et secondes ...

Regarde :

Code :

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

1
2
duree = 3663 'ta duree en secondes
 MsgBox TimeSerial(0, 0, 0 + duree)

[decondelite]

J'ai évité de lui dire d'utiliser timeserial pour voir ce qu'il aurait fait. ^^

[patbou]

bonjour,

Dans la rubrique recherche du forum il ya un chronomètre
ou alors tu peux t inspirer de ceci

http://www.developpez.net/forums/d45...ickage-bouton/

Nota : si le tps à décompter ne necessite pas une grande précision
la fonction datediff sera adaptée