Chronometre dans USF

[jpmasclet]

Bonjour,

J'ai besoin besoin de recencer les temps de traitement d'une opération par activté.

Afin de faire cela, j'ai l'idée de créer un USF dans lequel je vais avoir une liste déroulante et un bouton depart et un autre fin.

Il me faudrai également une textbox bloqué ou defile le temps.

Et je ne vois pas comment faire ce code , avez vous une idée pour me depanner ?

Merci

 

[PascalXLD]

Re : Chronometre dans USF

Bonjour

regarde ce fil d'il y a quelques jours

https://www.excel-downloads.com/threads/pb-pour-creer-un-2eme-chrono.102196/

 

[jpmasclet]

Re : Chronometre dans USF

Merci pascal , je viens d'aller voir, je venais juste de créer un USF qui y ressemble car à une source trouvé sur le net.

Maintenant en faite j'aimerai rajouté un bouton pause, et la ça me pose aussi de sérieux souci ...

Voici le code pour demarrer le chrono

Depart = [now()]
Do While fin_chrono = 0
    Temps = [now()] - Depart
        If CheckBox1 = True Then
        Label1.Caption = WorksheetFunction.Text(Temps, "hh:mm:ss:00")
        Else
        Label1.Caption = WorksheetFunction.Text(Temps, "hh:mm:ss.00")
    End If
DoEvents
Loop
0

 

[jpmasclet]

Re : Chronometre dans USF

Rebonjour à tous,

J'ai tenté de faire ce code mais il manque quelque chose, ma fonction pause fonctionne mais lorsque je reclique pour la reprise mon compteur repart de 0, je n'arrive pas à ajouter le temps de lorsque j'ai rajouter la 1ere fois sur pause en faite.

If fin_chrono = 0 Then

fin_chrono = 1
Checkbox1 = 1

ElseIf fin_chrono = 1 Then
Checkbox1 = 0
fin_chrono = 0
DepartPause = [now()]
Do While fin_chrono = 0
    Temps = [now()] - DepartPause
        If Checkbox1 = True Then
        Label1.Caption = WorksheetFunction.Text(Temps, "hh:mm:ss:00")
        Else
        Label1.Caption = WorksheetFunction.Text(Temps, "hh:mm:ss.00")
    End If
DoEvents
Loop
0

End If

Une idée ?

Merci

 

[PascalXLD]

Re : Chronometre dans USF

Re

un essai en pièce jointe

 

[Roland_M]

Re : Chronometre dans USF

bonsoir

si ça t'interresse un exemple !

Roland

 

[jpmasclet]

Re : Chronometre dans USF

Merci pascal pour ton fichier, j'ai pu adapter mon fichier avec ton code et ça marche nickel nickel !!!!Encore merc i

 

[yb1971]

Re : Chronometre dans USF

Bonjour,
je suis à la recherche d'un genre de chrono tout simple comme ça pour chronométrer des enfants sur un jeux chacun à leurs tour.
Donc l'idée est de rentrer ton nom et prénom, tu clic ou appuis sur espace, ça lance le chrono, tu ré appuis ça stop et enregistre le temps, ensuite on voit le classement au fur et à mesure.

bonsoir

si ça t'interresse un exemple !

Roland