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
Partager