Comment créer un compte à rebours sous excel

gcd47 Messages postés 75 Statut Membre -  
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je voudrais faire un compté à rebours sous excel. Qui pourrait m'aider pour faire ce programme?
Configuration: Windows XP
Firefox 3.5.7

1 réponse

  1. tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    Salut,
    tu peux utiliser la méthode Wait(), ex :
    Sub decompte()
    For i = 10 To 0 Step -1
        If Application.Wait(Now + TimeValue("0:00:01")) Then
            Range("A1").Value = i
        End If
        If i = 0 Then MsgBox "Feu !"
    Next i
    End Sub
    5