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
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
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
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
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
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
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
a écrit dans le message de news:
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 !!!
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
9308a710-3410-4683-9908-18f0776a3...@l1g2000hsa.googlegroups.com...
On 17 jan, 21:47, "Laurent brizais" <labriz...@numericale.fr> 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 !!!
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
a écrit dans le message de news:
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 !!!
On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 17 jan, 21:47, "Laurent brizais" wrote: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 -
On 19 jan, 14:16, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
9308a710-3410-4683-9908-18f0776a3...@l1g2000hsa.googlegroups.com...
On 17 jan, 21:47, "Laurent brizais" <labriz...@numericale.fr> wrote:
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 -
On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 17 jan, 21:47, "Laurent brizais" wrote: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 -
On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 -
On 19 jan, 14:16, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
9308a710-3410-4683-9908-18f0776a3...@l1g2000hsa.googlegroups.com...
On 17 jan, 21:47, "Laurent brizais" <labriz...@numericale.fr> 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 -
On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 -
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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 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 -
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
ceac604a-6367-456b-a6c2-2c2227384...@1g2000hsl.googlegroups.com...
On 22 jan, 08:34, francois.for...@wanadoo.fr wrote:
On 19 jan, 14:16, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
9308a710-3410-4683-9908-18f0776a3...@l1g2000hsa.googlegroups.com...
On 17 jan, 21:47, "Laurent brizais" <labriz...@numericale.fr> 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 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 -
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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 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 -
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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 -
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
ceac604a-6367-456b-a6c2-2c2227384...@1g2000hsl.googlegroups.com...
On 22 jan, 08:34, francois.for...@wanadoo.fr wrote:
On 19 jan, 14:16, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
9308a710-3410-4683-9908-18f0776a3...@l1g2000hsa.googlegroups.com...
On 17 jan, 21:47, "Laurent brizais" <labriz...@numericale.fr> 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 -
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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 -
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
a écrit dans le message de news:
On 22 jan, 19:22, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 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 -
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
03634dfd-6a78-40ea-b010-44b528883...@m34g2000hsb.googlegroups.com...
On 22 jan, 19:22, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
ceac604a-6367-456b-a6c2-2c2227384...@1g2000hsl.googlegroups.com...
On 22 jan, 08:34, francois.for...@wanadoo.fr wrote:
On 19 jan, 14:16, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
9308a710-3410-4683-9908-18f0776a3...@l1g2000hsa.googlegroups.com...
On 17 jan, 21:47, "Laurent brizais" <labriz...@numericale.fr> 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 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 -
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
a écrit dans le message de news:
On 22 jan, 19:22, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 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 -
On 23 jan, 21:20, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 19:22, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
.
On 17 jan, 21:47, "Laurent brizais" wrot e: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 -
On 23 jan, 21:20, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
03634dfd-6a78-40ea-b010-44b528883...@m34g2000hsb.googlegroups.com...
On 22 jan, 19:22, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
ceac604a-6367-456b-a6c2-2c2227384...@1g2000hsl.googlegroups.com...
On 22 jan, 08:34, francois.for...@wanadoo.fr wrote:
On 19 jan, 14:16, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
9308a710-3410-4683-9908-18f0776a3...@l1g2000hsa.googlegroups.com.. .
On 17 jan, 21:47, "Laurent brizais" <labriz...@numericale.fr> wrot e:
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 -
On 23 jan, 21:20, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 19:22, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
.
On 17 jan, 21:47, "Laurent brizais" wrot e: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 -
On 23 jan, 21:20, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 19:22, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 -
On 23 jan, 21:20, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
03634dfd-6a78-40ea-b010-44b528883...@m34g2000hsb.googlegroups.com...
On 22 jan, 19:22, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
ceac604a-6367-456b-a6c2-2c2227384...@1g2000hsl.googlegroups.com...
On 22 jan, 08:34, francois.for...@wanadoo.fr wrote:
On 19 jan, 14:16, "Laurent brizais" <labriz...@numericale.fr> wrote:
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
<francois.for...@wanadoo.fr> a écrit dans le message de news:
9308a710-3410-4683-9908-18f0776a3...@l1g2000hsa.googlegroups.com...
On 17 jan, 21:47, "Laurent brizais" <labriz...@numericale.fr>
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 -
On 23 jan, 21:20, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 19:22, "Laurent brizais" wrote: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
a écrit dans le message de news:
On 22 jan, 08:34, wrote:On 19 jan, 14:16, "Laurent brizais" wrote: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
a écrit dans le message de news:
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 -