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

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:

---

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

---

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. :ccool:

Cordialement,
Kimy

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

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

Kimy,

oui, c'est exactement cela.

jeremy

Bonjour, bonjour,

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

Mais bon, tenter DoEvents en ligne n°24.

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.

Merci messieurs,

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

Jeremy

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:

---

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

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:

---

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …