[FAQ] Comment programmer une pause dans le code autrement ?

Question : Comment programmer une pause dans le code autrement (sans conversion de "ms" en "s") ?
Réponse : En utilisant la fonction

Code:

---

DateAdd(interval,number,date)

---

Code:

---

1 2 3 4 5 6 7 8 9 10

MsgBox "Appuyer sur OK pour lancer la pause" Sleep(2) ' durée en seconde 2 => 2 s MsgBox "2 secondes Plus tard"     Sub sleep(strSecondes) Dim secondes : secondes = DateAdd("s", strSecondes, Now()) Do Until (Now() > secondes) Loop End Sub

---