Résultats de la recherche

Au fait il s'agit d'une simulation de flux de véhicules et de piétons dans un carrefour de feux tricolores à deux temps.

La fonction Application.OnTime a pourtant bien fonctionner puisque les phases sont antagonistes. Si l'action a ne débute qu'au bout 20s et b qu'au bout de 40s donc l'action a aura durée 20s. Et ça fonctionne parfaitement. Le seul soucis c'est d'arrêter l'application au bout de 2 minutes. Quand...

Merci de votre aide. Je l'ai finalement fait avec le code suivant: Sub Start() Dim a, b, c, d As Date a = Now b = Now + TimeValue("00:00:20") c = Now + TimeValue("00:00:25") d = Now + TimeValue("00:00:45") Phase0 Application.OnTime a...

Bonjour tout le monde. J'ai 4 macros : Phase0, Phase1, Phase3 et Phase4. J'aimerais les exécuter de la manière suivante : Etape 1 : Exécuter "Phase0" Etape 2 : Exécuter "Phase1" pendant 20s Etape 3 : Exécuter "Phase2" pendant 5s Etape 4 : Exécuter "Phase3" pendant 20s Et je veux relancer cette...