Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel UserForm Chrono

UserForm Chrono

10 réponses
Avatar
Guy72
Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du moment ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du mome nt ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy


Avatar
Guy72
Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreur je clic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du moment ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy


Avatar
JB
http://cjoint.com/?kFnozrJnKH

JB


Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreur je c lic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du mo ment ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy




Avatar
Guy72
Merci de ton aide.
Il me reste un problème :
Quand j'arrête l'exercice avant de tout remplir, je met sur pause et je
ferme mon fichier.
Après, quand j'ouvre mon fichier, le temps passé est bien le même mais je ne
peut pas redémarrer avec un clic dans le tableau.
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFnozrJnKH

JB


Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreur je clic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du moment
ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy




Avatar
JB
http://cjoint.com/?kFoXVfHXDb

JB


Merci de ton aide.
Il me reste un problème :
Quand j'arrête l'exercice avant de tout remplir, je met sur pause et je
ferme mon fichier.
Après, quand j'ouvre mon fichier, le temps passé est bien le même m ais je ne
peut pas redémarrer avec un clic dans le tableau.
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFnozrJnKH

JB


Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreur je clic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du moment
ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy






Avatar
Guy72
Il souhaiterais encore une chose :
Est il possible de faire la fin de pause par un clic sur le tableau (pour ne
pas oublier d'appuyer sur le bouton "fin de pause"
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFoXVfHXDb

JB


Merci de ton aide.
Il me reste un problème :
Quand j'arrête l'exercice avant de tout remplir, je met sur pause et je
ferme mon fichier.
Après, quand j'ouvre mon fichier, le temps passé est bien le même mais je
ne
peut pas redémarrer avec un clic dans le tableau.
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFnozrJnKH

JB


Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreur je
clic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du
moment
ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy






Avatar
JB
Ca sert à quoi ce pgm?

http://cjoint.com/?kFpwXqR2YT

Public ProchainChrono
Sub majChrono()
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text =
Int(Timer() - [TempsDépart]) & " sec"
If Not [Pause] Then
If [A1] <> 1000 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Sub Arret()
[Démarre] = False
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End Sub

Sub Dpause()
[Pause] = True
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
[DébutPause] = Timer()
End Sub

Sub Fpause()
[Pause] = False
[TempsDépart] = [TempsDépart] + (Timer() - [DébutPause])
majChrono
End Sub

Sub raz()
[Démarre] = False
[Pause] = False
[DébutPause] = 0
[TempsDépart] = 0
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text = "0"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C3:E20], Target) Is Nothing And Target.Count = 1
Then
If [Démarre] = False And Application.Sum([C3:E20]) = 0 Then
[Démarre] = True
[TempsDépart] = Timer()
majChrono
End If
If [Démarre] = True And [Pause] = True Then Fpause
End If
End Sub

JB

Il souhaiterais encore une chose :
Est il possible de faire la fin de pause par un clic sur le tableau (pour ne
pas oublier d'appuyer sur le bouton "fin de pause"
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFoXVfHXDb

JB


Merci de ton aide.
Il me reste un problème :
Quand j'arrête l'exercice avant de tout remplir, je met sur pause et je
ferme mon fichier.
Après, quand j'ouvre mon fichier, le temps passé est bien le même mais je
ne
peut pas redémarrer avec un clic dans le tableau.
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFnozrJnKH

JB


Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreur je
clic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du
moment
ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy








Avatar
Guy72
Merci de ton aide cela va bien m'arranger, je vais maintenant égayer la
présentation.
Cela sert des petits exercices de français avec chaque lettre égale un
certain nombre de points.
Ou des petits exercices de calculs.
Tout ça chronométré dès le 1er clic dans le cadre.
Le seul problème c'est de ne pas oublier d'appuyer sur pause si une envie
pressante arrive.
Encore merci.
Cordialement
Guy

"JB" a écrit dans le message de news:

Ca sert à quoi ce pgm?

http://cjoint.com/?kFpwXqR2YT

Public ProchainChrono
Sub majChrono()
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text Int(Timer() - [TempsDépart]) & " sec"
If Not [Pause] Then
If [A1] <> 1000 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Sub Arret()
[Démarre] = False
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End Sub

Sub Dpause()
[Pause] = True
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
[DébutPause] = Timer()
End Sub

Sub Fpause()
[Pause] = False
[TempsDépart] = [TempsDépart] + (Timer() - [DébutPause])
majChrono
End Sub

Sub raz()
[Démarre] = False
[Pause] = False
[DébutPause] = 0
[TempsDépart] = 0
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text = "0"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C3:E20], Target) Is Nothing And Target.Count = 1
Then
If [Démarre] = False And Application.Sum([C3:E20]) = 0 Then
[Démarre] = True
[TempsDépart] = Timer()
majChrono
End If
If [Démarre] = True And [Pause] = True Then Fpause
End If
End Sub

JB

Il souhaiterais encore une chose :
Est il possible de faire la fin de pause par un clic sur le tableau (pour
ne
pas oublier d'appuyer sur le bouton "fin de pause"
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFoXVfHXDb

JB


Merci de ton aide.
Il me reste un problème :
Quand j'arrête l'exercice avant de tout remplir, je met sur pause et je
ferme mon fichier.
Après, quand j'ouvre mon fichier, le temps passé est bien le même mais
je
ne
peut pas redémarrer avec un clic dans le tableau.
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFnozrJnKH

JB


Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreur je
clic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du
moment
ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy








Avatar
JB
Attention! les pauses ne doivent pas dépasser minuit (raz de timer()).

JB

Merci de ton aide cela va bien m'arranger, je vais maintenant égayer la
présentation.
Cela sert des petits exercices de français avec chaque lettre égale un
certain nombre de points.
Ou des petits exercices de calculs.
Tout ça chronométré dès le 1er clic dans le cadre.
Le seul problème c'est de ne pas oublier d'appuyer sur pause si une env ie
pressante arrive.
Encore merci.
Cordialement
Guy

"JB" a écrit dans le message de news:

Ca sert à quoi ce pgm?

http://cjoint.com/?kFpwXqR2YT

Public ProchainChrono
Sub majChrono()
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text =
Int(Timer() - [TempsDépart]) & " sec"
If Not [Pause] Then
If [A1] <> 1000 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Sub Arret()
[Démarre] = False
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End Sub

Sub Dpause()
[Pause] = True
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
[DébutPause] = Timer()
End Sub

Sub Fpause()
[Pause] = False
[TempsDépart] = [TempsDépart] + (Timer() - [DébutPause])
majChrono
End Sub

Sub raz()
[Démarre] = False
[Pause] = False
[DébutPause] = 0
[TempsDépart] = 0
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text = "0"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C3:E20], Target) Is Nothing And Target.Count = 1
Then
If [Démarre] = False And Application.Sum([C3:E20]) = 0 Then
[Démarre] = True
[TempsDépart] = Timer()
majChrono
End If
If [Démarre] = True And [Pause] = True Then Fpause
End If
End Sub

JB

Il souhaiterais encore une chose :
Est il possible de faire la fin de pause par un clic sur le tableau (po ur
ne
pas oublier d'appuyer sur le bouton "fin de pause"
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFoXVfHXDb

JB


Merci de ton aide.
Il me reste un problème :
Quand j'arrête l'exercice avant de tout remplir, je met sur pause e t je
ferme mon fichier.
Après, quand j'ouvre mon fichier, le temps passé est bien le mê me mais
je
ne
peut pas redémarrer avec un clic dans le tableau.
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFnozrJnKH

JB


Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreu r je
clic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du
moment
ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 10 00 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy










Avatar
Guy72
Merci du conseil, je pense que ça devrait aller.
A+
Guy

"JB" a écrit dans le message de news:

Attention! les pauses ne doivent pas dépasser minuit (raz de timer()).

JB

Merci de ton aide cela va bien m'arranger, je vais maintenant égayer la
présentation.
Cela sert des petits exercices de français avec chaque lettre égale un
certain nombre de points.
Ou des petits exercices de calculs.
Tout ça chronométré dès le 1er clic dans le cadre.
Le seul problème c'est de ne pas oublier d'appuyer sur pause si une envie
pressante arrive.
Encore merci.
Cordialement
Guy

"JB" a écrit dans le message de news:

Ca sert à quoi ce pgm?

http://cjoint.com/?kFpwXqR2YT

Public ProchainChrono
Sub majChrono()
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text > Int(Timer() - [TempsDépart]) & " sec"
If Not [Pause] Then
If [A1] <> 1000 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Sub Arret()
[Démarre] = False
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End Sub

Sub Dpause()
[Pause] = True
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
[DébutPause] = Timer()
End Sub

Sub Fpause()
[Pause] = False
[TempsDépart] = [TempsDépart] + (Timer() - [DébutPause])
majChrono
End Sub

Sub raz()
[Démarre] = False
[Pause] = False
[DébutPause] = 0
[TempsDépart] = 0
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text = "0"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C3:E20], Target) Is Nothing And Target.Count = 1
Then
If [Démarre] = False And Application.Sum([C3:E20]) = 0 Then
[Démarre] = True
[TempsDépart] = Timer()
majChrono
End If
If [Démarre] = True And [Pause] = True Then Fpause
End If
End Sub

JB

Il souhaiterais encore une chose :
Est il possible de faire la fin de pause par un clic sur le tableau
(pour
ne
pas oublier d'appuyer sur le bouton "fin de pause"
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFoXVfHXDb

JB


Merci de ton aide.
Il me reste un problème :
Quand j'arrête l'exercice avant de tout remplir, je met sur pause et
je
ferme mon fichier.
Après, quand j'ouvre mon fichier, le temps passé est bien le même mais
je
ne
peut pas redémarrer avec un clic dans le tableau.
Cordialement
Guy

"JB" a écrit dans le message de news:


http://cjoint.com/?kFnozrJnKH

JB


Salut JB
Merci d'avoir répondu à mon appel.
Cela correspond à ce que je voudrais, mais :
Est il possible de faire les modifes suivantes :
1)_Les colonne D et E ne tiennent pas compte des nombres inscrits.
2)_Par contre, il ne faudrait pas qu' il reparte à 0 si par erreur
je
clic
dans le tableau.
3)_Un bouton pause me serais utile

Cordialement
Guy
"JB" a écrit dans le message de news:

Bonjour,

Voir Pj: http://cjoint.com/?kFma7BUGIs

JB


Bonjour à tous
Est il possible de faire démarrer le chrono UserForm à partir du
moment
ou
je clic dans un tableau (ci-joint) et l'arrêter quand A1 = 1000 ?

http://cjoint.com/?kFkdm4IzU8

Cordialement
Guy