Création d'un compte à rebours de 20 secondes

Bonjour à tous,

Je cherche comment créer dans la cellule (AD4) de ma feuille Excel un compte à rebours de 20 secondes.

Merci pour votre aide.

Philippe

Bonjour,

Ce code devrait marcher :

Private Sub worksheet_change(byval target as range)
if not intersect(target, range("??")) is nothing then
    for i = 20 to 0 step -1
        if i = 20 then application.wait now + timevalue("00:00:01")
        range("AD4").value = i
        application.wait now + timevalue("00:00:01")
    next i
end if
end sub

Il se déclenche à la modification d'une cellule ou d'un ensemble de cellules (adapter range("??") avec la bonne référence).

Il faut mettre ce code dans le module de la feuille sur laquelle doit apparaitre le compte à rebours.

Cordialement,

MERCI 3GB

Je t'en prie ! Alors, je l'ai testé entre-temps et je pense que ce sera mieux comme ça :

Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("??")) Is Nothing Then
    With Range("AD4")
        '.Interior.Color = RGB(255, 0, 0) 'pour avoir un changement de couleur lors du décompte
        For i = 20 To 0 Step -1
            .Value = i
            If i > 0 Then Application.Wait Now + TimeValue("00:00:01")
        Next i
        '.Interior.Color = RGB(0, 255, 0)
    End With
End If
End Sub

Ça s'arrête à 0.

Cdlt,