heure mise a jour dans USF

[alex]

Bonjour au forum,

j`affiche l`heure dans un textbox par

UserForm.TextBox12 = Format(Now, 'hh:mm:ss')

Mais comment faire pour qu`elle s`actualise toutes les minutes ??

Si quelqu`un a une idee, merci d`avance !!

 

[excalibur]

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

 

[excalibur]

rebonjour j ai oublie pour lancer la macro & l arreter Private Sub CommandButton1_Click()
Call ArretTimer
Unload Me' fermer usf
End Sub Private Sub UserForm_Activate()
Call LancerTimer
End Sub ' salutations

 

[alex]

Merci excalibur, et rebonjour au forum

Cependant, le code bug a recup.
Qu`est-ce que la variable recup ?

Merci d`avance

 

[excalibur]

bonjour alex , le forum tout a fait raison avec toi recup c est le nom de mon usf modifie !!!! je fais demarrer le timer seulement si usf visible & arret quand je le ferme gere la la croix de fermeture de usf autrement pas arret timer le mieux et de deactiver la fermeture par la croix dans la mesure ou tu as prevu un bouton de fermeture Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode = vbFormControlMenu
End Sub ' salutations