COMPTE A REBOURS

- - Dernière réponse : cs_Liro
Messages postés
159
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
30 septembre 2011
- 1 mars 2008 à 23:54
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1477-compte-a-rebours

Afficher la suite 
chez le coiffeur
Alors pour le coiffeur
cs_Liro
Messages postés
159
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
30 septembre 2011
-
Tout simple mais sympa!

Je met 7/10 car il y a quelques corrections à apporter:
- A 0 il se passe encore 1s avant le msgbox
- Application.Wait Reprise et non par rep ;)

Voici donc la version corrigée:

Sub compt_a_rebours()
Dim x As Integer, nh, nm, ns, rep
For x = 10 To 1 Step -1
Range("b3").Formula = x
nh = Hour(Now())
nm = Minute(Now())
ns = Second(Now()) + 1
Reprise = TimeSerial(nh, nm, ns)
Application.Wait Reprise
Next
If Range("b3").Value = 1 Then
Range("b3").Value = 0
MsgBox "GOOOOOOOOOOOO !!!!!!!!!!!"