Discussion :

[chefsun]

* Bonjour, *

je souhaite que dans ma cellule D2, un chronomètre s'affiche
j'ai déjà une variable public qui est
Public Runwhen As Date et qui fonctione
et je voudrais que dans ma cellule le chrono soit
range("D2")=time-runwhen en aillant heure, minute et seconde qui défile

* Merci *

[Theze]

Bonjour,

Voici une piste à adapter. Teste en lançant la proc "StopperLancerChrono" :

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
 
Public Runwhen As Date
Dim Arreter As Boolean
 
Sub StopperLancerChrono()
 
    'permet l'arrêt ou le démarrage
    Arreter = Not Arreter
 
    'ajoute 20 secondes pour tester le décompte
    Runwhen = Time + TimeValue("00:00:20")
 
    'affiche la valeur
    'si Vrai, lancer une seconde fois "StopperLancerChrono" pour mettre à False
    MsgBox Arreter
 
    'lance si Arreter est false
    If Arreter = False Then Chrono
 
End Sub
 
Private Sub Chrono()
 
    If Arreter = True Then Exit Sub
 
    'récursive
    Application.OnTime Now + TimeValue("00:00:01"), "Chrono"
 
    [D2] = Format(Runwhen - Time, "h:mm:ss")
 
    If Runwhen - Time = 0 Then
 
        MsgBox "C'est fini !"
        Arreter = True
 
    End If
 
End Sub

Hervé.

[chefsun]

trés bien
désolé de ne pas t'avoir repondu plus tot
merci