Discussion :

[jerem7w]

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]

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]

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]

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é ?

[jerem7w]

Kimy,

oui, c'est exactement cela.

jeremy

[Marc-L]

Bonjour, bonjour,

VBA n'étant pas multi-tâches …

Mais bon, tenter DoEvents en ligne n°24.

[Kimy_Ire]

jerem7w,

Le VBA ne peut pas utiliser de thread... J'ai tenté d'utiliser le DoEvents permettant de redonner la main au processeur (dans la limite de ma compréhension VBA) à plusieurs endroits sans succès.

Je pense donc que la solution de contournement de ton problème serait de sortir de ta boucle de traitement tous les X lignes et de l'afficher à l'utilisateur. Je ne vois pas d'autres solutions.

Cordialement,
Kimy

EDIT : j'ai également essayé à la ligne 24 comme la stipulé Marc-L.

[jerem7w]

Merci messieurs,

Faute de thread, je sortirai de mes boucles selon une intervalle prédéfinie.

Jeremy

[Theze]

Bonjour,

Regarde du coté de "GetTickCount". Lance la proc "Test" pour l'arrêt, pose un point d'arrêt dans la proc. A toi de voir comment tu veux stopper ! K s'incrémente toutes les secondes en A1 :

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
 
Declare Function GetTickCount Lib "Kernel32" () As Long
 
Sub Minuterie(Milliseconde As Long)
 
    Dim arret As Long
 
    arret = GetTickCount() + Milliseconde
 
    Do While GetTickCount() < arret
 
        DoEvents
 
    Loop
 
End Sub
 
Sub Test()
 
    Dim I As Long
    Dim K As Long
 
    For I = 1 To 100000000
 
        Minuterie 1000 '<-- 1 seconde
 
        K = K + 1
        Range("A1").Value = K
 
    Next
 
End Sub

Hervé.

[Marc-L]

En fait, on peut faire du "multi-tâche" avec Excel en utilisant un API Windows pour lancer une procédure en parallèle
(sujet déjà traité sur ce forum) ou encore utiliser Excel comme donneur d'ordre à Windows pour lancer des procédures
indépendantes en .vbs comme dans ma méthode Let It Bee de la discussion
Accélérer une requête sur des multiples pages Web située dans le forum Contribuez …

Mais ici je n'en vois pas l'intérêt car il suffit de tester le temps au sein de la boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Demo()
        T! = Timer
    For L& = 1 To 100000000
        C& = C& + 1
        If Timer >= T + 1 Then T = Timer:  [A1:B1].Value = Array(Fix(T), C)
    Next
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …