Compte à rebours VBA

Bonjour;

je voudrais créer un compte à rebours de 5 secondes en VBA. Je me suis servis de l'aide mais je n'ai pas trop compris. En fait je sais faire un compte à rebours mais je ne sais pas faire un compte à rebours avec des actions que l'on peut exécuter pendant ce compte à rebours. Est ce-que quelqu'un pourrais m'expliquer ?

Merci d'avance

Bonjour

Explique le pourquoi, il faudrait savoir :

• Tu veux mettre les secondes dans une cellule
• les secondes de 0 à 5 ou de 5 à 0
• quelle action après les 5 secondes

Amicalement

Merci de ta réponse, je voudrais que tout les secondes défilant de 5 à 0 soient visible dans une cellule.

Je n'ai pas trouvé dans l'aide car sur VBA pour excel 2013, l'aide n'est qu'en ligne et en anglais.

Re,

Dans VBA crée un nouveau module et place les 2 codes ci-dessous :

Dim ok As Boolean
Sub Demarrechrono()
'Macro Dan pour stephane Guidon
ok = True
Range("A1") = TimeSerial(0, 0, 5)
Call decompte
End Sub

Sub decompte()
'Macro Dan pour stephane Guidon
If ok Then
    If Range("a1") = 0 Then
        ok = False
        Range("A1") = TimeSerial(0, 0, 5): End
    End If
    Range("A1") = Range("A1") - TimeSerial(0, 0, 1)
    Range("A1").NumberFormat = "mm:ss"
    Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub

Exécute la macro DEMARRECHRONO pour démarrer le décompte

Si ok, lors de ta réponse, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

Re, merci de ton code mais il ne marche pas; en fait il reste bloqué à 5 secondes et ne bouge pas.

Cordialement

Re,

Si, cela fonctionne. Avant de poste je teste toujours

Le tout est de voir ton fichier et si tu as bien fait ce que je te disais

A te relire

oui c'est bon là ça à marcher. En fait j'avais mis le code dans un module où j'avais déjà inscrit moi-même inscrit du code. Ce qui fait que

Dim ok As Boolean

était inscrit dans la macro précédente.

Merci de ton aide.

Cordialement.