Bonjour,

j'ai voulu programmer un timer pour qu'il me dise toutes les secondes quel est la valeur contenue par un compteur s'incrémentant de 1.

A ma grande surprise, je n'obtiens pas de valeurs intermédiaires toutes les secondes mais seulement à la fin de la boucle d'incrémentation du compteur. Comment puis-je faire ? merci

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
Public ProchainChrono, Départ, k
Sub Demarre()
 Départ = Timer()
 majChrono
End Sub
Sub majChrono()
 
Call compteur
 Range("a1") = ProchainChrono
 Range("a2") = k
 ProchainChrono = Now + TimeValue("00:00:01")
 Application.OnTime ProchainChrono, "majChrono"
End Sub
 
Sub arret()
Application.OnTime ProchainChrono, Procedure:="majChrono", Schedule:=False
End Sub
 
Sub compteur()
 
For i = 1 To 100000000
 
k = k + 1
 
Next
 
End Sub