Comment créer un compte à rebours sous excel

gcd47 Messages postés 75 Statut Membre -  
tompols Messages postés 1325 Statut Contributeur -
Bonjour,

Je voudrais faire un compté à rebours sous excel. Qui pourrait m'aider pour faire ce programme?
A voir également:

1 réponse

tompols Messages postés 1325 Statut Contributeur 435
 
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