heure mise a jour dans USF

  • Initiateur de la discussion alex
  • Date de début
A

alex

Guest
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

XLDnaute Impliqué
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

XLDnaute Impliqué
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 885
Messages
2 093 259
Membres
105 660
dernier inscrit
moi46