Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
809 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Chronomètre VBA Excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Chronomètre VBA Excel

n°2194478
killerbot
Posté le 15-06-2013 à 13:58:15  profilanswer
 

Bonjour,
J'ai un projet de groupe à faire,mais il manque le chronomètre dans notre programme. Vous savez comment ?
Merci de votre aide

mood
Publicité
Posté le 15-06-2013 à 13:58:15  profilanswer
 

n°2194484
Marc L
Posté le 15-06-2013 à 15:02:21  profilanswer
 

 
           Bonjour,
 
           vu le cruel manque de précision, voir l'aide intégrée de VBA concernant les fonctions  Time  &  Timer  …
 

n°2194494
killerbot
Posté le 15-06-2013 à 20:08:15  profilanswer
 

J'ai trouvé ça sur Internet mais j'arrive pas à le faire fonctionner :
dans un userform1 :  
 
Option Explicit
 
Private Sub BtnReprise_Click()
    Call ExecutionTimer
End Sub
 
Sub UserForm_Initialize()
Dheure = Now() + TimeSerial(0, 0, 15)   'Pour ajuster le temps TimeSerial(hh, mm, ss)
Call ExecutionTimer
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call ArretTimer
End Sub
 
 
 
 
Puis dans un "Module"
 
Option Explicit
Public Lheure As Date
Public Dheure As Date
 
Sub ArretTimer()
On Error Resume Next
Application.OnTime Lheure, "ExecutionTimer", , False
End Sub
 
Sub ExecutionTimer()
UserForm1.LabelChrono.Caption = Format(Dheure - Now(), "hh:mm:ss" )
If Dheure - Now() > 0 Then
Lheure = Now() + TimeSerial(0, 0, 1)
Application.OnTime Lheure, "ExecutionTimer"
Else
ArretTimer
UserForm1.LabelChronos.Caption = "Terminé !"
End If
End Sub
 
 
 
 
Par la même occasion, quelqu'un sait comment on lie 2 UserForms ? (genre ce qui est initialisé dans le UserForm1, reste dans le UserForm2 par exemple)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Chronomètre VBA Excel

 

Sujets relatifs
[VBA] Enregistrement feuille excel dans un répertoireExcel en xml
importer des adresses de factures sous excelAjout de ligne automatique sur excel 2010 - VBA
Envoie automatique de mails via outlook en VBA[VBA] DATES
[VBA Excel 2003] - Problème pour récupérer la 65537° ligne d'un CVS 
Plus de sujets relatifs à : Chronomètre VBA Excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR