Death Angel
-
18 juil. 2001 à 12:42
cs_Liro
Messages postés159Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention30 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.
cs_Liro
Messages postés159Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention30 septembre 2011 1 mars 2008 à 23:54
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 !!!!!!!!!!!"
1 mars 2008 à 23:54
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 !!!!!!!!!!!"
5 août 2001 à 23:33
18 juil. 2001 à 12:42