Calc - modifier une macro Countdown Timer

[JaMo]

Sur le site forum.openoffice.org Villeroy propose une Sub très simple pour un Countdown Timer.
Voir le lien : [Calc] Coundown Timer (View topic) • Apache OpenOffice Community Forum
En cliquant le bouton Start la procédure affiche le temps restant décroissant en sec, même passé 0 sec.
Il faut nécessairement cliquer le bouton Stop pour l’arrêter.
Je voudrais que la sub arrête automatiquement lorsque 0 sec est atteint (ou à un autre moment précis qui varierait à chaque occasion) et qu’elle appelle automatiquement une autre sub pour la suite du traitement.
Je n’ai pas trouvé la façon d’ajouter cette logique à la sub de Villeroy.
Est-ce que quelqu’un pourrait m’aider? Merci.

[PYS]

Bonjour @JaMo

Par exemple :

Sub startCountdown()
rg = ThisComponent.NamedRanges.getByName("cStart").getReferredCells()
rg.setValue(Now)
span = ThisComponent.NamedRanges.getByName("span").getReferredCells()

while span.value > 0
	wait 1000
	ThisComponent.calculate()
wend

print "chrono fini, suite du traitement..."

End Sub

Sub stopCountdown()
	End
End Sub

Pour garder la logique employée j’ai créé le nom span sur B4

countdown.ods

Cordialement

[JaMo]

C’est bien ce que je voulais. Je viens de l’intégrer à mon projet.
Merci de votre aide.
Cordialement

[philippe.s.levi]

bonsoir,
excusez-moi, je regardais votre solution, pouvez-vous me passer les références de ce “end” dans stopCountDown() ? (je n’ai pas trouvé par recherche!)

merci
Philippe