Macro dans un timer, le timer passe après ?

**jerem7w** · 07/04/2014, 13h18

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

**Kimy_Ire** · 07/04/2014, 14h22

Bonjour jerem7w,

Je n'ai pas bien compris ta demande. Ce que tu souhaites faire c'est d'avoir un timer en cellule A1 et un compteur et cellule A2, c'est ça ?
Que veux-tu afficher exactement dans les deux cellules ?

Ta Macro à l'heure actuelle dit ceci :
-> Incrémente de 1 par 1 k jusqu'à 100000000
-> Affiche moi en A1 Now + 1 seconde
-> Affiche en A2 k
-> etc...

La macro exécute donc dans l'ordre ce que tu lui demandes.

J'attends ton retour.

Cordialement,
Kimy

**jerem7w** · 07/04/2014, 15h45

Salut Kimy,

cette macro doit effectivement afficher :
le timer en a1
k en a2

et ce toutes les secondes, sans attendre que k ait atteint 100000000.

Pourquoi fais-je fais cela ? Pour tester le fonctionnement du timer, car dans un programme plus sophistiqué j'ai mis une barre de progression qui doit afficher le nombre de lignes traitées.
Ce nombre de ligne est compté dans une sous macro. Donc je voulais me servir du timer pour récupérer l'info à intervalles fixes : -> donne mois chaque secondes le nombre de lignes que tu as déjà traité.

Voilà tout.

Merci

**Kimy_Ire** · 07/04/2014, 16h21

En bref, tu veux faire tourner deux macros en même temps :
- une qui compte le nombre de lignes traitées,
- une qui toutes les secondes affiche ce nombre de lignes.

J'ai pigé ?