Comment créer un compte à rebours sous excel

gcd47 Messages postés 67 Date d'inscription   Statut Membre Dernière intervention   -  
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?
A voir également:

1 réponse

tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   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