Pause et reprise dans chrono

Le
Laurent brizais
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton pause/reprise. Mais
je n'arrive pas à refaire partir le chrono la ou il s'était arrété il
repart à zéro. Exemple je lance mon chrono je met en Pause 00:00:02 54,
j'appui de nouveau sur reprise il devrait repartir de cette valeur.

ci joint le chrono http://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
francois.forcet
Le #5293101
On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton pause/reprise. Mais
je n'arrive pas à refaire partir le chrono  la ou il s'était arrét é il
repart à zéro. Exemple je lance mon chrono je met en Pause 00:00:02 54 ,
j'appui de nouveau sur reprise il devrait repartir de cette valeur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dans une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compteur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!

Laurent brizais
Le #5291821
Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je n'arrive pas à
resoudre, entre un format standard type 0 et format type heure 00:00:00,0
cela ce passe je crois dans le module macro au niveau du rajout de la
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")

il y a je pense une discordance dans les formats lors de l'addition.

Mais le principe reste excellent.

A+ Laurent









Merci

On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton pause/reprise.
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était arrété il
repart à zéro. Exemple je lance mon chrono je met en Pause 00:00:02 54,
j'appui de nouveau sur reprise il devrait repartir de cette valeur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dans une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compteur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!

francois.forcet
Le #5290381
On 19 jan, 14:16, "Laurent brizais"
Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je n'arrive pas à
resoudre, entre  un format standard type 0 et format type heure 00:00:00 ,0
cela ce passe je crois dans le module macro au niveau du rajout de la
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
  Range("A2") = MsCount
  Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")

il y a je pense une discordance dans les formats lors de l'addition.

Mais le principe reste excellent.

A+ Laurent

Merci

On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton pause/reprise .
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était arrét é il
repart à zéro. Exemple je lance mon chrono je met en Pause 00:00:02 54,
j'appui de nouveau sur reprise il devrait repartir de cette valeur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dans une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
  DoEvents
  MsCount = GetTickCount - MsStart + Range("A2")
  Range("A2") = MsCount
  Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
  Cent = MsCount Mod 100
  UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
    Range("A2") = 0
    EnMarche = False
    TimerOff
    If CheckBox1 Then
    Range("A1").NumberFormat = "hh:mm:ss.00"
    Range("A1").Value = Label1
    End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
    Range("A2") = 0
    If EnMarche = False Then
        TimerOn 10
        EnMarche = True
    End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compteur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!


Rebonjour à toi

Effectivement aprés avoir comparé le fonctionnement avec et sans ma
modification les chronos ne tournent pas au même rythme

Je te propose ce code modifié pour la macro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Je pense que celà doit être nettement mieux

Dis moi !!!!


francois.forcet
Le #5290361
On 22 jan, 08:34, wrote:
On 19 jan, 14:16, "Laurent brizais"




Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je n'arrive pas à
resoudre, entre  un format standard type 0 et format type heure 00:00: 00,0
cela ce passe je crois dans le module macro au niveau du rajout de la
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
  Range("A2") = MsCount
  Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss" )

il y a je pense une discordance dans les formats lors de l'addition.

Mais le principe reste excellent.

A+ Laurent

Merci

On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton pause/repri se.
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était arré té il
repart à zéro. Exemple je lance mon chrono je met en Pause 00:00:0 2 54,
j'appui de nouveau sur reprise il devrait repartir de cette valeur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dans un e
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
  DoEvents
  MsCount = GetTickCount - MsStart + Range("A2")
  Range("A2") = MsCount
  Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss" )
  Cent = MsCount Mod 100
  UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
    Range("A2") = 0
    EnMarche = False
    TimerOff
    If CheckBox1 Then
    Range("A1").NumberFormat = "hh:mm:ss.00"
    Range("A1").Value = Label1
    End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
    Range("A2") = 0
    If EnMarche = False Then
        TimerOn 10
        EnMarche = True
    End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compteur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!


Rebonjour à toi

Effectivement aprés avoir comparé le fonctionnement avec et sans ma
modification les chronos ne tournent pas au même rythme

Je te propose ce code modifié pour la macro Chrono :

Dim MsCount, Tps, Cent
  DoEvents
  MsCount = GetTickCount - MsStart + Range("A2")
  Range("A2") = MsCount
  If MsCount = 0 Then
  Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
  Else
  Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
  End If
  Cent = MsCount Mod 100
  UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Je pense que celà doit être nettement mieux

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Il subsiste un petit dysfonctionnement qui me pousse à te proposer de
rajouter la ligne :

Me.CommandButton3.Caption = "Pause"

dans la macro Start ainsi :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

et Stop :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If

End Sub

Si tu mets en pause et que tu actives le bouton stop ou start sans
passer par Reprise l'ensemble dysfonctionne au point même de fermer
sauvagement le classeur

Ainsi tu évites ce désagrément et tout marche nickel

Dis moi !!!!



Laurent brizais
Le #5289771
Bonsoir François,

Encore merci, mais mon chrono tourne 1000 fois trops vite, dans la macro je
suis passé de /1000 à /1000000 et je ne suis pas sur de l'exactitude, as-tu
le même probléme.
Autrement la pause et reprise super.

Amicalement laurent


On 22 jan, 08:34, wrote:
On 19 jan, 14:16, "Laurent brizais"




Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je n'arrive pas
à
resoudre, entre un format standard type 0 et format type heure
00:00:00,0
cela ce passe je crois dans le module macro au niveau du rajout de la
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")

il y a je pense une discordance dans les formats lors de l'addition.

Mais le principe reste excellent.

A+ Laurent

Merci

On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton
pause/reprise.
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était arrété il
repart à zéro. Exemple je lance mon chrono je met en Pause 00:00:02
54,
j'appui de nouveau sur reprise il devrait repartir de cette valeur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dans une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compteur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!


Rebonjour à toi

Effectivement aprés avoir comparé le fonctionnement avec et sans ma
modification les chronos ne tournent pas au même rythme

Je te propose ce code modifié pour la macro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Je pense que celà doit être nettement mieux

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Il subsiste un petit dysfonctionnement qui me pousse à te proposer de
rajouter la ligne :

Me.CommandButton3.Caption = "Pause"

dans la macro Start ainsi :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

et Stop :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If

End Sub

Si tu mets en pause et que tu actives le bouton stop ou start sans
passer par Reprise l'ensemble dysfonctionne au point même de fermer
sauvagement le classeur

Ainsi tu évites ce désagrément et tout marche nickel

Dis moi !!!!



francois.forcet
Le #5289411
On 22 jan, 19:22, "Laurent brizais"
Bonsoir François,

Encore merci, mais mon chrono tourne 1000 fois trops vite, dans la macro j e
suis passé de /1000 à /1000000 et je ne suis pas sur de l'exactitude, as-tu
le même probléme.
Autrement la pause et reprise super.

Amicalement laurent


On 22 jan, 08:34, wrote:





On 19 jan, 14:16, "Laurent brizais"
Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je n'arrive pa s
à
resoudre, entre un format standard type 0 et format type heure
00:00:00,0
cela ce passe je crois dans le module macro au niveau du rajout de la
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")

il y a je pense une discordance dans les formats lors de l'addition.

Mais le principe reste excellent.

A+ Laurent

Merci

On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton
pause/reprise.
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était arr été il
repart à zéro. Exemple je lance mon chrono je met en Pause 00:00 :02
54,
j'appui de nouveau sur reprise il devrait repartir de cette valeur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dans une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans l e
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compteu r
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!


Rebonjour à toi

Effectivement aprés avoir comparé le fonctionnement avec et sans ma
modification les chronos ne tournent pas au même rythme

Je te propose ce code modifié pour la macro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Je pense que celà doit être nettement mieux

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Il subsiste un petit dysfonctionnement qui me pousse à te proposer de
rajouter la ligne :

Me.CommandButton3.Caption = "Pause"

dans la macro Start ainsi :

Private Sub CommandButton1_Click() 'Start
    Range("A2") = 0
    Me.CommandButton3.Caption = "Pause"
    If EnMarche = False Then
        TimerOn 10
        EnMarche = True
    End If
End Sub

et Stop :

Private Sub CommandButton2_Click() 'Stop
    Range("A2") = 0
    Me.CommandButton3.Caption = "Pause"
    EnMarche = False
    TimerOff
    If CheckBox1 Then
    Range("A1").NumberFormat = "hh:mm:ss.00"
    Range("A1").Value = Label1
    End If

    End Sub

Si tu mets en pause et que tu actives le bouton stop ou start sans
passer par Reprise l'ensemble dysfonctionne au point même de fermer
sauvagement le classeur

Ainsi tu évites ce désagrément et tout marche nickel

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Effectivement encore cette anomalie !!!

Pour la corriger je suis obligé de passer par une 2° cellule qui
prendra la valeur du compteur à la pause sans le suivre à la reprise
Donc 2 cellules pour résoudre la difficulté :
A2 pour suivre le compteur
B2 pour récupérer de A2 sa valeur à la pause

Ce qui donne Machro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("B2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("B2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Macro Stop :

Private Sub CommandButton2_Click() 'Stop
Range("B2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

Macro Start :

Private Sub CommandButton1_Click() 'Start
Range("B2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Macro Pause :

Private Sub CommandButton3_Click() 'Pause

If Me.CommandButton3.Caption = "Pause" Then
Me.CommandButton3.Caption = "Reprise"
Range("B2") = Range("A2")
EnMarche = False
TimerOff
Label3 = "Reprise"
Label3.Font.Size = 10
Label3.Font.Bold = True
Else
Me.CommandButton3.Caption = "Pause"
EnMarche = True
TimerOn 10
Label3 = "Pause"
Label3.Font.Size = 10
Label3.Font.Bold = True
End If
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

Là celà semble impécable

Dis moi !!!




Laurent brizais
Le #5288741
Re François,

Cela marche très bien mais dans mon enthousiasme, j'ai oublié l'essentiel,
c'est à dire il faudrait que le chrono tourne pendant la saisie des
informations de passage des cavaliers c'est à dire rentrer le nombre de
barres qui tombe etc... pendant le passage du cavalier.

j'ai essayé avec des labels dans la macro mais je nai pas de résultat.

Encore merci pour ton aide
A+ Laurent



On 22 jan, 19:22, "Laurent brizais"
Bonsoir François,

Encore merci, mais mon chrono tourne 1000 fois trops vite, dans la macro
je
suis passé de /1000 à /1000000 et je ne suis pas sur de l'exactitude,
as-tu
le même probléme.
Autrement la pause et reprise super.

Amicalement laurent


On 22 jan, 08:34, wrote:





On 19 jan, 14:16, "Laurent brizais"
Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je n'arrive
pas
à
resoudre, entre un format standard type 0 et format type heure
00:00:00,0
cela ce passe je crois dans le module macro au niveau du rajout de la
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")

il y a je pense une discordance dans les formats lors de l'addition.

Mais le principe reste excellent.

A+ Laurent

Merci

On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton
pause/reprise.
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était arrété
il
repart à zéro. Exemple je lance mon chrono je met en Pause 00:00:02
54,
j'appui de nouveau sur reprise il devrait repartir de cette valeur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dans une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compteur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!


Rebonjour à toi

Effectivement aprés avoir comparé le fonctionnement avec et sans ma
modification les chronos ne tournent pas au même rythme

Je te propose ce code modifié pour la macro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Je pense que celà doit être nettement mieux

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Il subsiste un petit dysfonctionnement qui me pousse à te proposer de
rajouter la ligne :

Me.CommandButton3.Caption = "Pause"

dans la macro Start ainsi :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

et Stop :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If

End Sub

Si tu mets en pause et que tu actives le bouton stop ou start sans
passer par Reprise l'ensemble dysfonctionne au point même de fermer
sauvagement le classeur

Ainsi tu évites ce désagrément et tout marche nickel

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Effectivement encore cette anomalie !!!

Pour la corriger je suis obligé de passer par une 2° cellule qui
prendra la valeur du compteur à la pause sans le suivre à la reprise
Donc 2 cellules pour résoudre la difficulté :
A2 pour suivre le compteur
B2 pour récupérer de A2 sa valeur à la pause

Ce qui donne Machro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("B2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("B2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Macro Stop :

Private Sub CommandButton2_Click() 'Stop
Range("B2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

Macro Start :

Private Sub CommandButton1_Click() 'Start
Range("B2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Macro Pause :

Private Sub CommandButton3_Click() 'Pause

If Me.CommandButton3.Caption = "Pause" Then
Me.CommandButton3.Caption = "Reprise"
Range("B2") = Range("A2")
EnMarche = False
TimerOff
Label3 = "Reprise"
Label3.Font.Size = 10
Label3.Font.Bold = True
Else
Me.CommandButton3.Caption = "Pause"
EnMarche = True
TimerOn 10
Label3 = "Pause"
Label3.Font.Size = 10
Label3.Font.Bold = True
End If
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

Là celà semble impécable

Dis moi !!!




francois.forcet
Le #5288681
On 23 jan, 21:20, "Laurent brizais"
Re François,

Cela marche très bien mais dans mon enthousiasme, j'ai oublié l'essent iel,
c'est à dire il faudrait que le chrono tourne pendant la saisie des
informations de passage des cavaliers c'est à dire rentrer le nombre de
barres qui tombe etc... pendant le passage du cavalier.

j'ai essayé avec des labels dans la macro mais je nai pas de résultat.

Encore merci pour ton aide
A+ Laurent


On 22 jan, 19:22, "Laurent brizais"




Bonsoir François,

Encore merci, mais mon chrono tourne 1000 fois trops vite, dans la macro
je
suis passé de /1000 à /1000000 et je ne suis pas sur de l'exactitude ,
as-tu
le même probléme.
Autrement la pause et reprise super.

Amicalement laurent


On 22 jan, 08:34, wrote:

On 19 jan, 14:16, "Laurent brizais"
Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je n'arrive
pas
à
resoudre, entre un format standard type 0 et format type heure
00:00:00,0
cela ce passe je crois dans le module macro au niveau du rajout de l a
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss" )

il y a je pense une discordance dans les formats lors de l'addition.

Mais le principe reste excellent.

A+ Laurent

Merci

On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton
pause/reprise.
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était ar rété
il
repart à zéro. Exemple je lance mon chrono je met en Pause 00: 00:02
54,
j'appui de nouveau sur reprise il devrait repartir de cette valeur .

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dan s une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss" )
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compt eur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!


Rebonjour à toi

Effectivement aprés avoir comparé le fonctionnement avec et sans m a
modification les chronos ne tournent pas au même rythme

Je te propose ce code modifié pour la macro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Je pense que celà doit être nettement mieux

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Il subsiste un petit dysfonctionnement qui me pousse à te proposer de
rajouter la ligne :

Me.CommandButton3.Caption = "Pause"

dans la macro Start ainsi :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

et Stop :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If

End Sub

Si tu mets en pause et que tu actives le bouton stop ou start sans
passer par Reprise l'ensemble dysfonctionne au point même de fermer
sauvagement le classeur

Ainsi tu évites ce désagrément et tout marche nickel

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Effectivement encore cette anomalie !!!

Pour la corriger je suis obligé de passer par une 2° cellule qui
prendra la valeur du compteur à la pause sans le suivre à la reprise
Donc 2 cellules pour résoudre la difficulté :
A2 pour suivre le compteur
B2 pour récupérer de A2 sa valeur à la pause

Ce qui donne Machro Chrono :

Dim MsCount, Tps, Cent
  DoEvents
  MsCount = GetTickCount - MsStart + Range("B2")
  Range("A2") = MsCount
  If MsCount = 0 Then
  Tps = Format(Int(MsCount + Range("B2") / 1000) / 86400, "hh:mm:ss")
  Else
  Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
  End If
  Cent = MsCount Mod 100
  UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Macro Stop :

Private Sub CommandButton2_Click() 'Stop
    Range("B2") = 0
    Me.CommandButton3.Caption = "Pause"
    EnMarche = False
    TimerOff
    If CheckBox1 Then
    Range("A1").NumberFormat = "hh:mm:ss.00"
    Range("A1").Value = Label1
    End If
    End Sub

Macro Start :

Private Sub CommandButton1_Click() 'Start
    Range("B2") = 0
    Me.CommandButton3.Caption = "Pause"
    If EnMarche = False Then
        TimerOn 10
        EnMarche = True
    End If
End Sub

Macro Pause :

Private Sub CommandButton3_Click() 'Pause

    If Me.CommandButton3.Caption = "Pause" Then
    Me.CommandButton3.Caption = "Reprise"
    Range("B2") = Range("A2")
    EnMarche = False
    TimerOff
    Label3 = "Reprise"
    Label3.Font.Size = 10
    Label3.Font.Bold = True
    Else
    Me.CommandButton3.Caption = "Pause"
    EnMarche = True
    TimerOn 10
    Label3 = "Pause"
    Label3.Font.Size = 10
    Label3.Font.Bold = True
    End If
    If CheckBox1 Then
    Range("A1").NumberFormat = "hh:mm:ss.00"
    Range("A1").Value = Label1
    End If
End Sub

Là celà semble impécable

Dis moi !!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Bonsoir

Qu'entends tu par :

"saisie des
informations de passage des cavaliers c'est à dire rentrer le nombre
de
barres qui tombe etc... pendant le passage du cavalier." ????

Merci de préciser





francois.forcet
Le #5137711
On 23 jan, 22:14, wrote:
On 23 jan, 21:20, "Laurent brizais"




Re François,

Cela marche très bien mais dans mon enthousiasme, j'ai oublié l'esse ntiel,
c'est à dire il faudrait que le chrono tourne pendant la saisie des
informations de passage des cavaliers c'est à dire rentrer le nombre d e
barres qui tombe etc... pendant le passage du cavalier.

j'ai essayé avec des labels dans la macro mais je nai pas de résulta t.

Encore merci pour ton aide
A+ Laurent


On 22 jan, 19:22, "Laurent brizais"
Bonsoir François,

Encore merci, mais mon chrono tourne 1000 fois trops vite, dans la mac ro
je
suis passé de /1000 à /1000000 et je ne suis pas sur de l'exactitu de,
as-tu
le même probléme.
Autrement la pause et reprise super.

Amicalement laurent


On 22 jan, 08:34, wrote:

On 19 jan, 14:16, "Laurent brizais"
Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je n'arriv e
pas
à
resoudre, entre un format standard type 0 et format type heure
00:00:00,0
cela ce passe je crois dans le module macro au niveau du rajout de la
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:s s")

il y a je pense une discordance dans les formats lors de l'additio n.

Mais le principe reste excellent.

A+ Laurent

Merci
.
On 17 jan, 21:47, "Laurent brizais"
Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton
pause/reprise.
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était arrété
il
repart à zéro. Exemple je lance mon chrono je met en Pause 0 0:00:02
54,
j'appui de nouveau sur reprise il devrait repartir de cette vale ur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause d ans une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:s s")
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2 do nc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant da ns le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le com pteur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!


Rebonjour à toi

Effectivement aprés avoir comparé le fonctionnement avec et sans ma
modification les chronos ne tournent pas au même rythme

Je te propose ce code modifié pour la macro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss" )
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Je pense que celà doit être nettement mieux

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Il subsiste un petit dysfonctionnement qui me pousse à te proposer d e
rajouter la ligne :

Me.CommandButton3.Caption = "Pause"

dans la macro Start ainsi :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

et Stop :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If

End Sub

Si tu mets en pause et que tu actives le bouton stop ou start sans
passer par Reprise l'ensemble dysfonctionne au point même de fermer
sauvagement le classeur

Ainsi tu évites ce désagrément et tout marche nickel

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Effectivement encore cette anomalie !!!

Pour la corriger je suis obligé de passer par une 2° cellule qui
prendra la valeur du compteur à la pause sans le suivre à la reprise
Donc 2 cellules pour résoudre la difficulté :
A2 pour suivre le compteur
B2 pour récupérer de A2 sa valeur à la pause

Ce qui donne Machro Chrono :

Dim MsCount, Tps, Cent
  DoEvents
  MsCount = GetTickCount - MsStart + Range("B2")
  Range("A2") = MsCount
  If MsCount = 0 Then
  Tps = Format(Int(MsCount + Range("B2") / 1000) / 86400, "hh:mm:ss" )
  Else
  Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
  End If
  Cent = MsCount Mod 100
  UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Macro Stop :

Private Sub CommandButton2_Click() 'Stop
    Range("B2") = 0
    Me.CommandButton3.Caption = "Pause"
    EnMarche = False
    TimerOff
    If CheckBox1 Then
    Range("A1").NumberFormat = "hh:mm:ss.00"
    Range("A1").Value = Label1
    End If
    End Sub

Macro Start :

Private Sub CommandButton1_Click() 'Start
    Range("B2") = 0
    Me.CommandButton3.Caption = "Pause"
    If EnMarche = False Then
        TimerOn 10
        EnMarche = True
    End If
End Sub

Macro Pause :

Private Sub CommandButton3_Click() 'Pause

    If Me.CommandButton3.Caption = "Pause" Then
    Me.CommandButton3.Caption = "Reprise"
    Range("B2") = Range("A2")
    EnMarche = False
    TimerOff
    Label3 = "Reprise"
    Label3.Font.Size = 10
    Label3.Font.Bold = True
    Else
    Me.CommandButton3.Caption = "Pause"
    EnMarche = True
    TimerOn 10
    Label3 = "Pause"
    Label3.Font.Size = 10
    Label3.Font.Bold = True
    End If
    If CheckBox1 Then
    Range("A1").NumberFormat = "hh:mm:ss.00"
    Range("A1").Value = Label1
    End If
End Sub

Là celà semble impécable

Dis moi !!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Bonsoir

Qu'entends tu par :

"saisie des
informations de passage des cavaliers c'est à dire rentrer le nombre
de
barres qui tombe etc... pendant le passage du cavalier." ????

Merci de préciser- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Salut à toi
Je confirme effectivement qu'aucune saisie n'est possible pendant le
déroulement du chrono
J'ai donc modifié quelque peu la procédure:
j'ai créé un icone dans l'image du chrono appelé "Compteur" dans
lequel je rapporte la valeur du compteur
La cellule A1 prends de cette icone la valeur à la pause qui est
rajouté au chrono à la reprise
Je te joins sur ce lien ton fichier corrigé ainsi afin d'éviter un
laius dans lequel on pourrait ce perdre
Ainsi donc tout fonctionne y compris la saisie d'une donnée dans une
cellule

Donnes moi tes impressions !!!

http://www.cijoint.fr/cij7785194762320.xls






Laurent brizais
Le #5140541
Bonjour François,

Je découvre ta nouvelle version uniquement maintenant beaucoup occupé par le
travail, mais quel plaisir de voir le résultat c'est vraiment formidable
cela marche super.
Je vais pouvoir l'intégrer à mon fichier CSO.
Encore merci pour ton aide.
A+ sur le forum pour de nouvel publication.
Merci Laurent

On 23 jan, 22:14, wrote:
On 23 jan, 21:20, "Laurent brizais"




Re François,

Cela marche très bien mais dans mon enthousiasme, j'ai oublié
l'essentiel,
c'est à dire il faudrait que le chrono tourne pendant la saisie des
informations de passage des cavaliers c'est à dire rentrer le nombre de
barres qui tombe etc... pendant le passage du cavalier.

j'ai essayé avec des labels dans la macro mais je nai pas de résultat.

Encore merci pour ton aide
A+ Laurent


On 22 jan, 19:22, "Laurent brizais"
Bonsoir François,

Encore merci, mais mon chrono tourne 1000 fois trops vite, dans la
macro
je
suis passé de /1000 à /1000000 et je ne suis pas sur de l'exactitude,
as-tu
le même probléme.
Autrement la pause et reprise super.

Amicalement laurent


On 22 jan, 08:34, wrote:

On 19 jan, 14:16, "Laurent brizais"
Bonjour François,

Merci pour ton aide, mais il y a un souci de format que je
n'arrive
pas
à
resoudre, entre un format standard type 0 et format type heure
00:00:00,0
cela ce passe je crois dans le module macro au niveau du rajout de
la
cellule A2

MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400,
"hh:mm:ss")

il y a je pense une discordance dans les formats lors de
l'addition.

Mais le principe reste excellent.

A+ Laurent

Merci

On 17 jan, 21:47, "Laurent brizais" wrote:

Bonsoir,

J'ai modifier un chrono excistant pour insérer un bouton
pause/reprise.
Mais
je n'arrive pas à refaire partir le chrono la ou il s'était
arrété
il
repart à zéro. Exemple je lance mon chrono je met en Pause
00:00:02
54,
j'appui de nouveau sur reprise il devrait repartir de cette
valeur.

ci joint le chronohttp://cjoint.com/?brvNG5sqV0

Merci pour votre collaboration

Laurent


Salut à toi

Je te propose de gérer le temps écoulé suite à une pause dans une
cellule par exemple A2

je modifie dans cette obtique ta macro Chrono ainsi :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400,
"hh:mm:ss")
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

dans laquelle je prend en considération la valeur de la cellule A2
dans le compteur de départ
La cellule A2 suit le compteur au fil de son évolution
Si je mets en pause le compteur s'arrète et la cellule A2 prend sa
valeur au moment de l'arrêt
Lors de la reprise le compteur prend la valeur 0 + la valeur A2
donc
redémarre avec la valeur obtenue à l'arret

Si je stop je force la valeur de la cellule A2 à 0 en mettant dans
le
code correspondant la ligne Range ("A2") = 0 ce qui donne :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

De même pour le départ :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Si donc je stop ou je démarre la cellule A2 étant à 0 le compteur
démarre à 0

On peux sans problème changer de cellule de référence

Celà devrait te convenir

Dis moi !!!


Rebonjour à toi

Effectivement aprés avoir comparé le fonctionnement avec et sans ma
modification les chronos ne tournent pas au même rythme

Je te propose ce code modifié pour la macro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("A2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("A2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Je pense que celà doit être nettement mieux

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Il subsiste un petit dysfonctionnement qui me pousse à te proposer de
rajouter la ligne :

Me.CommandButton3.Caption = "Pause"

dans la macro Start ainsi :

Private Sub CommandButton1_Click() 'Start
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

et Stop :

Private Sub CommandButton2_Click() 'Stop
Range("A2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If

End Sub

Si tu mets en pause et que tu actives le bouton stop ou start sans
passer par Reprise l'ensemble dysfonctionne au point même de fermer
sauvagement le classeur

Ainsi tu évites ce désagrément et tout marche nickel

Dis moi !!!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Rebonjours à toi

Effectivement encore cette anomalie !!!

Pour la corriger je suis obligé de passer par une 2° cellule qui
prendra la valeur du compteur à la pause sans le suivre à la reprise
Donc 2 cellules pour résoudre la difficulté :
A2 pour suivre le compteur
B2 pour récupérer de A2 sa valeur à la pause

Ce qui donne Machro Chrono :

Dim MsCount, Tps, Cent
DoEvents
MsCount = GetTickCount - MsStart + Range("B2")
Range("A2") = MsCount
If MsCount = 0 Then
Tps = Format(Int(MsCount + Range("B2") / 1000) / 86400, "hh:mm:ss")
Else
Tps = Format(Int(MsCount / 1000) / 86400, "hh:mm:ss")
End If
Cent = MsCount Mod 100
UserForm1.Label1.Caption = Tps & " " & Format(Cent, "00")

Macro Stop :

Private Sub CommandButton2_Click() 'Stop
Range("B2") = 0
Me.CommandButton3.Caption = "Pause"
EnMarche = False
TimerOff
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

Macro Start :

Private Sub CommandButton1_Click() 'Start
Range("B2") = 0
Me.CommandButton3.Caption = "Pause"
If EnMarche = False Then
TimerOn 10
EnMarche = True
End If
End Sub

Macro Pause :

Private Sub CommandButton3_Click() 'Pause

If Me.CommandButton3.Caption = "Pause" Then
Me.CommandButton3.Caption = "Reprise"
Range("B2") = Range("A2")
EnMarche = False
TimerOff
Label3 = "Reprise"
Label3.Font.Size = 10
Label3.Font.Bold = True
Else
Me.CommandButton3.Caption = "Pause"
EnMarche = True
TimerOn 10
Label3 = "Pause"
Label3.Font.Size = 10
Label3.Font.Bold = True
End If
If CheckBox1 Then
Range("A1").NumberFormat = "hh:mm:ss.00"
Range("A1").Value = Label1
End If
End Sub

Là celà semble impécable

Dis moi !!!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Bonsoir

Qu'entends tu par :

"saisie des
informations de passage des cavaliers c'est à dire rentrer le nombre
de
barres qui tombe etc... pendant le passage du cavalier." ????

Merci de préciser- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Salut à toi
Je confirme effectivement qu'aucune saisie n'est possible pendant le
déroulement du chrono
J'ai donc modifié quelque peu la procédure:
j'ai créé un icone dans l'image du chrono appelé "Compteur" dans
lequel je rapporte la valeur du compteur
La cellule A1 prends de cette icone la valeur à la pause qui est
rajouté au chrono à la reprise
Je te joins sur ce lien ton fichier corrigé ainsi afin d'éviter un
laius dans lequel on pourrait ce perdre
Ainsi donc tout fonctionne y compris la saisie d'une donnée dans une
cellule

Donnes moi tes impressions !!!

http://www.cijoint.fr/cij7785194762320.xls






Publicité
Poster une réponse
Anonyme