Salut Thomas,
Pour mettre l'heure sur une feuille, j'utilise une macro de J.Walk
çà donne çà :
Option Explicit
Dim NextTick
'---------------------------
Sub StartClock()
UpdateClock
End Sub
'---------------------------
Sub StopClock()
' Cancels the OnTime event (stops the clock)
On Error Resume Next
Application.OnTime NextTick, "UpdateClock", , False
End Sub
'---------------------------
Sub UpdateClock()
' Updates the clock that's visible
ThisWorkbook.Sheets("Interface").Range("DigitalClock").Value = CDbl(Time)
' Set up the next event one second from now
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub
En fait je pense qu'on doit pouvoir retourner la même chose dans un control de UserForm, à essayer...
@+Thierry