Discussion :

[Pierre845]

Bonjour,

J'ai un code qui a la structure suivante:

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
 
sub ma_macro()
 
'initialisation
 
i = 1
Do While IsEmpty(Cells(i,1)) = False
 
    Application.OnTime t(i), "ma_sub"
    'Gestion évènement ?
    i = i + 1
 
Loop
 
End Sub

Avec en colonne 1 les heures t(i).

Je souhaite donc exécuter "ma_sub" aux heures t(i).

Mais en fait, quand je lance la macro, elle s'exécute jusqu'à la fin et il n'y a pas d'arrêt dans la boucle while, pour attendre que ma_sub se soit exécutée (avant de passer à la suivante).

Il faudrait que je mette un sleep juste après le application.Ontime mais alors à ce moment là, je n'ai plus d'intérêt à garder le Application.Ontime.

J'avais donc pensé à un wait.nextevents (complètement inventé), c'est-à-dire une fonction qui gère les évènements, afin de na pas utiliser de sleep ..

Existe-t-il cela en VBA, ou une manière de s'en approcher ?

Merci

[Pierre845]

bon visiblement ça a l'air compliqué puisque y'a pas eu de réponses.

j'ai cru comprendre qu'il faut inclure du code dans ThisWorkbook et pas seulement dans un module, en mettant l'option schedule de application.Ontime sur False

mais c'est pas clair du tout cette histoire, surtout à cause de la boucle que je veux faire et l'intervalle d'exécution variable

[fring]

Bonjour,

t(i) ne renvoit rien comme valeur, essaye ceci

Code :

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

1
2
3
4
5
6
7
8
9
sub ma_macro()
'initialisation
i = 1
Do While IsEmpty(Cells(i,1)) = False
    Application.OnTime Cells(i, 1).Value, "ma_sub"
    'Gestion évènement ?
    i = i + 1
Loop
End Sub

Code testé

[Pierre845]

arf désolé, t(i) était une vulgarisation de mon code; c'était bien cells(i,1) que je mettais ; c'était pour la compréhension, car le problème ne vient pas de là mais de l'utilisation incrémentale de Application.Ontime

je crois bien que l'utilisation du while n'est pas possible dans ce cas là;

il faut "boucler" sur soi-même, c'est à dire que la structure serait:

Code :

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

1
2
3
4
5
sub ma_macro()
(...)
application.ontime t, "ma_macro"
(...)
end sub

[fring]

perso j'ai testé le code et il fontionne

[Pierre845]

perso j'ai testé le code et il fontionne

bon je savais depuis ce matin que j'étais pas dans un bon jour mais là ...

bon aller, je verrai ça après une bonne nuit de sommeil.