bonjour alex, le forum tu peut essaye un truc dans ce style dans usf textbox code = TextBox1.Value = Format(TextBox20.Value, 'h:mm:ss') dans Private Sub UserForm_Initialize()TextBox1.Value = Sheets('FEUIL1').Range('i13').Value dans un module Option Explicit
Dim Lheure As Double
Sub LancerTimer()
If recup.Visible = False Then Exit Sub
Application.OnTime Now + TimeSerial(0, 0, 1), 'ExecutionTimer'
End Sub
Sub ArretTimer()
If recup.Visible = False Then Exit Sub
On Error Resume Next
Application.OnTime Lheure, 'ExecutionTimer', , False
End Sub
Sub ExecutionTimer()
If recup.Visible = False Then Exit Sub
Dim i As Byte
Sheets(1).Range('i13').Value = Now()
Lheure = Now + TimeSerial(0, 0, 15) ' c est ici que tu modifie dans le cas present 15 secondes
Application.OnTime Lheure, 'ExecutionTimer'
End Sub ' ce code trouve sur se site pas sur !!!! salutations