Décompteur secondes

[messteck]

bonjour à tous
j'ai besoin d'un décompteur de 120 secondes uniquement sur excel.
Par exemple, on clique sur un bouton, le décompte commence à 120 et décrémente d'une seconde jusqu'à 0.
Arrivé à 0, un message affiche "temps écoulé"
Il faut uniquement afficher les secondes, c'est tout simplement un décompteur.
J'en avait trouvé un il y a quelque temps sur le net, mais impossible de le retrouver.
Merci pour votre aide

 

[Pierrot93]

Re : Décompteur secondes

Bonjour,

regarde peut être ceci :

Option Explicit
Sub test()
Dim i As Single
Range("A1").Value = 120
i = Timer
Do While Timer < i + 120 And Range("A1").Value > 0
    Application.Wait (Now + TimeValue("0:00:01"))
    Range("A1").Value = Range("A1").Value - 1
Loop
End Sub

bonne journée
@+

 

[Guest]

Re : Décompteur secondes

Bonjour,
Hello Pierrot

Un autre:

Sub Decompte()
    Dim i As Integer
    Dim t
    For i = 120 To 0 Step -1
        Range("A1") = i
        t = Timer() + 1
        Do: DoEvents: Loop While Timer() < t
    Next i
End Sub

A+

 

[Pierrot93]

Re : Décompteur secondes

Re,

une autre solution, sans le "wait" et avec utilisation "DoEvents" qui permet de redonner la main au système d'exploitation...

Sub test2()
Dim d As Single, i As Integer
Range("A1").Value = 120
d = Timer
For i = 120 To 1 Step -1
    Do While Timer < d + 1
        DoEvents
    Loop
    Range("A1").Value = Range("A1").Value - 1
    d = Timer
Next i
End Sub

Edition : bonjour Hasco Aarf posté celui ci un peu tardivement moi...

 

[messteck]

Re : Décompteur secondes

rebonjour
merci à tous pour vos réponses rapides,
ça marche parfaitement, génial!!!

 

[excfl]

Re : Décompteur secondes

Bonjour à tous,

Ci-joint une application shockwave insérée dans un classeur excel.
Il s'agit d'un countdown avec alarme visuelle et alarme sonore lorsque le temps
de décompte est écoulé.

excfl