Insérer compte à rebour dans un fichier

Bonsoir

Je voudrai changer mes formules excel dans un fichier, et les convertir en vba ,comme je suis nul en programmation je me tourne vers vous pour de l'aide.

je joint un fichier pour plus de compréhension.

D'avance un grand merci

Cordialement

Salut Oscar,

Salut Zebulon,

Plusieurs macros sont nécessaires pour faire fonctionner ONTIME.

Dans 'ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "Rebours", , False
On Error GoTo 0
'
End Sub

Private Sub Workbook_Open()
'
Call Rebours
'
End Sub

Dans la feuille 'Rebours' ;

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, Range("E2")) Is Nothing Then Call Rebours
'
End Sub

Dans le Module1 :

Public Sub Rebours()
'
On Error Resume Next
With Worksheets("Rebours")
    If .[E2] <> "" And .[E2] > .[E3] Then
        .[E3] = Format(Now, "hh:mm:ss")
        Application.OnTime Now + TimeValue("00:00:01"), "Rebours"
    Else
        Application.OnTime Now + TimeValue("00:00:01"), "Rebours", , False
    End If
End With
On Error GoTo 0
'
End Sub

Tu arriveras à remettre tout en place ?

A+

Bonjour

Juste une petite question . comment faire pour insérer la feuille"Rebours" Merci

Un grand merci pour la résolution de mon problème.