Bonsoir,

Débutant en VBA, j'ai trouvé la macro de mes rêves, me permettant de chronométrer simplement une réunion ( bouton start & stop )

seul problème : le chrono s’arrête quand on rempli une case.

J'aimerais savoir si il existe un moyen pour que le chronométre continue d'incrémenter en tache de fond.

Merci d'avance pour votre aide

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
'Pour démarrer le compteur il faut lancer la macro
'DemarreCalculTps
'Pour l 'arrêter il faut exécuter
'ArretCalculTps
'Code à placer dans un module
 
Dim ok As Boolean
Sub DemarreCalculTps()
ok = True
Range("A1").Value = TimeValue("00:00:00")
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
End Sub
 
Sub mettre_a_jour()
If ok Then
Range("A1").Value = [A1] + TimeSerial(0, 0, 1)
Range("A1").NumberFormat = "hh:mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
End If
End Sub
 
Sub ArretCalculTps()
ok = False
End Sub
 
 
    'Range("A1").Select
    'ActiveCell.FormulaR1C1 = Timer