C
Christian
Guest
Bonjour au forum,
J`essaie de rafraichir un textbox dans mon USF toutes les 10 sec, mais mon code ne marche pas. Il n`y a pas de rafraichissement....
Si quelqu`un a une idee, merci d`avance..
J`essaie de rafraichir un textbox dans mon USF toutes les 10 sec, mais mon code ne marche pas. Il n`y a pas de rafraichissement....
Code:
Option Explicit
Dim HeureProchainAppel1 As Double
Private Sub UserForm_Initialize()
HorlogeEnA11
End Sub
Public Sub HorlogeEnA11()
TextBox1.Value = Format(Now, 'HH:MM:SS')
'Nouveau paramétrage de OnTime
HeureProchainAppel1 = Now + TimeValue('00:00:10')
Application.OnTime HeureProchainAppel1, 'HorlogeEnA11'
End Sub
Si quelqu`un a une idee, merci d`avance..