[VBA-E] dormir, mais que d'un oeil

mes données boursières arrivent en flux continu par un lien DDE.
je déclenche des clignotements toutes les deux secondes et je fais un recalcul toutes les 15 secondes.. je voudrais que mon programme attende mes déclenchements à l'heure voulue tout en continuant de recevoir les données de la DDE.
si je mets "rien", la sub continue à se dérouler en attendant l'appel et fausse la progression, avec SLEEP, WAIT, les données ne sont pas reçues, avec STOP la sub ne redémarre pas...
y a t il une possibilité?
merci
Jean Pierre

Tu peux utiliser un "minuteur" ;)

Code:

---

1 2 3 4 5 6 7

Sub CalculerOnTime() 'Le calcul s'effectuera dans... 15s Application.OnTime Now + TimeValue("00:00:15"), "ÇaVaJeCalcule" End Sub   Sub ÇaVaJeCalcule() 'TesCalculs End sub

---

Ton calcul s'effectuera toutes les 15 secondes ;)

Merci bbil :D

Ajoute une condition, sans quoi ta macro persistera à s'exécuter même si tu arrêtes la macro principale.

ça, je l'ai déja fait, c'est comme ça que je déclenche mes calculs à l'heure voulue.
mais la macro se déroule pendant ce temps et d'une sub, je retourne à la sub dont elle était partie...pour revenir ensuite...
bref, tout s'emmèle!

Citation:

---

bref, tout s'emmèle!

---

Mets ton code con démèle ça ;)
Comme je t'ai dit, les conditions, ça existe.
Tu reçois des données. Bon !
Selon la condition qui te convient ou un délai, tu lances la macro ÇaVaJeCalcule. Si tu veux que son exécution ne commence la première fois 2 heures plus tard, paramètre l'appel à CalculerOnTime

Code:

---

Call CalculerOnTime("02:00:00)

---

Code:

---

1 2 3

Sub CalculerOnTime() 'Le calcul s'effectuera dans... 15s Application.OnTime Now + TimeValue(Temps), "ÇaVaJeCalcule" End Sub

---

Sinon, je te propose autre chose, regarde là si le principe d'une mesure du temps qui passe t'inspire quelque chose. Au cas où... on pourra toujours l'adapter
Sinon... Je ne comprends pas du tout ton problème et là, te reste plus qu'à mettre ton code qu'on soit plusieurs à réfléchir dessus ;)

merci pour ta réponse, je vais essayer d'être plus clair
si je fais ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton5_Click() 'initialisation des tracés 'mise en place des bougies à modifier en fonction des données arrivantes par la DDE Call miseajour End Sub Sub miseajour() 'à lancer toutes les 10'' 'lecture des données arrivantes 'mise à jour des graphiques heureactu = Format(Now, "h:N:S") heureclignot = TimeValue(heureactu) + TimeValue(PERIODEMISEAJOUR) Application.OnTime TimeValue(heureclignot), "module1.miseajour" End Sub

---

ça fonctionne, les données arrivent et le recalcul se fait toutes les x secondes
Maintenant, en plus de ceci, je dois gérer une autre sub avec recalcul toutes les 100 secondes, par ex.
donc qque chose comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton5_Click() 'initialisation des tracés 'mise en place des bougies à modifier en fonction des données arrivantes par la DDE Call miseajour End Sub Sub miseajour() 'à lancer toutes les 10'' 'lecture des données arrivantes 'mise à jour des graphiques heureactu = Format(Now, "h:N:S") heureclignot = TimeValue(heureactu) + TimeValue(PERIODEMISEAJOUR) Application.OnTime TimeValue(heureclignot), "module1.miseajour" 'toutes les 100'' appeler sub export' 'puis relancer sub miseajour 'etc... End Sub   Sub export() 'àfaire toutes les 100" End Sub

---

avec un compteur, ça ne fonctionne pas
c'est là que tout se mélange
Jean Pierre

(PS j'en profite pour demander comment on fait pour mettre le Tag VBA-E???)

Pour la syntaxe, tu n'étais pas tout à fait dans le vrai :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub VérifTps() 'PERIODEMISEAJOUR = "00:00:10" 'pour 10 secondes PERIODEMISEAJOUR = "00:01:40" 'pour 100 secondes Heureactu = TimeValue(Now) Cells(1, 1).Value = Heureactu heureclignot = TimeValue(Heureactu) + TimeValue(PERIODEMISEAJOUR) Application.OnTime TimeValue(heureclignot), "miseajour"   End Sub   Sub miseajour() Cells(2, 1).Value = TimeValue(Now) End Sub

---

Avant d'adapter, teste ça et dis-nous
A+

Pour compléter la réponse, tu dois relancer la macro VérifTps dans miseajour si tu veux réitérer le délai.
Ensuite, tu ne peux utiliser la même macro pour les deux temps, sauf à compliquer les choses.
Et donc, tu devras relancer VérifTps1 si 10s et VérifTps2 si 100s, si tu n'as qu'une seule procédure de mise à jour.
Juste une réflexion tardive ;)
Je sais, je ne suis pas très clair mais tu comprendras dès que tu voudras adapter les procédures. :mouarf:

ma syntaxe était effectivement mauvaise (tout en fonctionnant!)
finalement en suivant ton idée, j'arrive à faire fonctionner un timer mais pas deux (je n'ai peut être pas saisi correctement ta méthode).
j'ai eu l'idée d'utiliser un "aiguillage" qui fonctionne pour deux timer, avec l'exemple de l'un à 5 s et l'autre trois fois plus long, on obtient schématiquement qque comme ceci et ça fonctionne.
Merci pour tes conseils
Jean Pierre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub aiguillage() multiperiode = multiperiode + 1 heureclignot = TimeValue(heureActu) + "00:00:15" If (multiperiode Mod 3 = 0) Then Application.OnTime TimeValue(heureclignot), "actiontimer1" Else: Application.OnTime TimeValue(heureclignot), "actiontimer2" End If End Sub Sub actiontimer1() 'travail 1 Call aiguillage End Sub Sub actiontimer2() 'travail 2 Call aiguillage End Sub

---

J'aurais plutôt vu un truc comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub CalculerOnTime(Temps1, Temps2, dep) 'Le calcul s'effectuera dans... temps If Temps1 <> "" Then Application.OnTime Now + TimeValue(Temps1), "ÇaVaJeCalcule" If Temps2 <> "" Then Application.OnTime dep + TimeValue(Temps2), "UnAutreCalcul" End Sub   Sub ÇaVaJeCalcule() Dim dep Call CalculerOnTime("00:00:10", "", dep) Zero = Un + Un MsgBox "Donc, Un + Un = " & Zero End Sub   Sub UnAutreCalcul() Dim Dep dep = Now Call CalculerOnTime("", "00:02:40", dep) Zero = deux + deux MsgBox "Donc, deux + deux = " & Zero & " aussi." End Sub

---

Mais ta solution est aussi bonne ;)