Changer une valeur de cellule toute les x secondes

Bonjour,

Je cherche une fonction vba qui changerai la valeur d'une cellule toute les X secondes.

Par exemple :

for i = 1 to 40

cells(1,1)=i

-->""3 secondes""

Next i

Merci!

Bonjour,

juste consulter l'aide VBA de la méthode Wait …

Bonjour,

Un début de réponse.

Public Sub Demo()
Dim i As Byte
    For i = 1 To 40
        ActiveSheet.Cells(1) = i
        Application.Wait (Now + TimeValue("00:00:03"))
    Next i
End Sub

Merci beaucoup, c'est pile ce qu'il me fallait!