Sub timer()
For heur = 0 To 23
Application.OnTime TimeValue(heur & ":00:00"), "heures"
Application.OnTime TimeValue(heur & ":30:00"), "demi"
Application.OnTime TimeValue(heur & ":15:00"), "quart"
Application.OnTime TimeValue(heur & ":45:00"), "quart"
Next heur
End Sub
Sub heures()
For i = 1 To Hour(Now) Mod 12
Application.Wait Now + 1 / 150000
Beep
Next
End Sub
Sub demi()
Beep
Application.Wait Now + 1 / 150000
Beep
End Sub
Sub quart()
Beep
End Sub
La ligne Application.OnTime TimeValue(heur & ":00:00"), "heures" lance la macro "heures" à chaque fois que l'heure s'écrit sous la forme "..:00:00" (c'est assez agaçant !)