Je souhaiterai savoir comment faire un chronomètre au 100e dans une cellule
XL qui serait démarrrer et arréter par un bouton de commande par exemple.
format: HH:MM:SS,XX
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
RaMA
Bonjour
une cellule nommée MaClock avec : =maintenant() Le format de la cellule h:mm:ss,00
dans le module de feuille '*********************************** Public xtop as Boolean Private Sub CommandButton1_Click() If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock].Calculate Loop End If End Sub '*********************************** Salutations RaMa -- . "Polo34" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une cellule XL qui serait démarrrer et arréter par un bouton de commande par exemple. format: HH:MM:SS,XX
merci de vos réponse
Bonjour
une cellule nommée MaClock avec :
=maintenant()
Le format de la cellule
h:mm:ss,00
dans le module de feuille
'***********************************
Public xtop as Boolean
Private Sub CommandButton1_Click()
If xtop Then
xtop = False
Else
xtop = True
Do While xtop
DoEvents
[MaClock].Calculate
Loop
End If
End Sub
'***********************************
Salutations
RaMa
--
.
"Polo34" <polomoto@voila.fr> a écrit dans le message de news:
efRPUQH8EHA.2196@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une
cellule
XL qui serait démarrrer et arréter par un bouton de commande par exemple.
format: HH:MM:SS,XX
une cellule nommée MaClock avec : =maintenant() Le format de la cellule h:mm:ss,00
dans le module de feuille '*********************************** Public xtop as Boolean Private Sub CommandButton1_Click() If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock].Calculate Loop End If End Sub '*********************************** Salutations RaMa -- . "Polo34" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une cellule XL qui serait démarrrer et arréter par un bouton de commande par exemple. format: HH:MM:SS,XX
merci de vos réponse
Polo34
Merci de ta réponse mais je souhaite que le comptage démarre à zéro comme un vrai chrono et pouvoir à la fois l'arréter et le démarrer via un bouton ce commande. Ta solution est correcte mais ma donne l'heure actuelle.
merci
Paul
"RaMA" a écrit dans le message de news:
Bonjour
une cellule nommée MaClock avec : =maintenant() Le format de la cellule h:mm:ss,00
dans le module de feuille '*********************************** Public xtop as Boolean Private Sub CommandButton1_Click() If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock].Calculate Loop End If End Sub '*********************************** Salutations RaMa -- . "Polo34" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une cellule XL qui serait démarrrer et arréter par un bouton de commande par exemple.
format: HH:MM:SS,XX
merci de vos réponse
Merci de ta réponse mais je souhaite que le comptage démarre à zéro comme un
vrai chrono et pouvoir à la fois l'arréter et le démarrer via un bouton ce
commande.
Ta solution est correcte mais ma donne l'heure actuelle.
merci
Paul
"RaMA" <rmarceauPas2Spam@free.fr> a écrit dans le message de news:
e6gMOOK8EHA.208@TK2MSFTNGP12.phx.gbl...
Bonjour
une cellule nommée MaClock avec :
=maintenant()
Le format de la cellule
h:mm:ss,00
dans le module de feuille
'***********************************
Public xtop as Boolean
Private Sub CommandButton1_Click()
If xtop Then
xtop = False
Else
xtop = True
Do While xtop
DoEvents
[MaClock].Calculate
Loop
End If
End Sub
'***********************************
Salutations
RaMa
--
.
"Polo34" <polomoto@voila.fr> a écrit dans le message de news:
efRPUQH8EHA.2196@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une
cellule
XL qui serait démarrrer et arréter par un bouton de commande par
exemple.
Merci de ta réponse mais je souhaite que le comptage démarre à zéro comme un vrai chrono et pouvoir à la fois l'arréter et le démarrer via un bouton ce commande. Ta solution est correcte mais ma donne l'heure actuelle.
merci
Paul
"RaMA" a écrit dans le message de news:
Bonjour
une cellule nommée MaClock avec : =maintenant() Le format de la cellule h:mm:ss,00
dans le module de feuille '*********************************** Public xtop as Boolean Private Sub CommandButton1_Click() If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock].Calculate Loop End If End Sub '*********************************** Salutations RaMa -- . "Polo34" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une cellule XL qui serait démarrrer et arréter par un bouton de commande par exemple.
format: HH:MM:SS,XX
merci de vos réponse
RaMA
bonjour
remplace la proc par celle-ci '************************* Public xtop As Boolean Private Sub CommandButton1_Click() Dim hdeb hdeb = Evaluate("=now()") If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock] = Evaluate("=now()") - hdeb Loop End If End Sub '************************* Salutations RaMa -- . "Polo34" a écrit dans le message de news:
Merci de ta réponse mais je souhaite que le comptage démarre à zéro comme un vrai chrono et pouvoir à la fois l'arréter et le démarrer via un bouton ce commande. Ta solution est correcte mais ma donne l'heure actuelle.
merci
Paul
"RaMA" a écrit dans le message de news:
Bonjour
une cellule nommée MaClock avec : =maintenant() Le format de la cellule h:mm:ss,00
dans le module de feuille '*********************************** Public xtop as Boolean Private Sub CommandButton1_Click() If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock].Calculate Loop End If End Sub '*********************************** Salutations RaMa -- . "Polo34" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une cellule XL qui serait démarrrer et arréter par un bouton de commande par exemple.
format: HH:MM:SS,XX
merci de vos réponse
bonjour
remplace la proc par celle-ci
'*************************
Public xtop As Boolean
Private Sub CommandButton1_Click()
Dim hdeb
hdeb = Evaluate("=now()")
If xtop Then
xtop = False
Else
xtop = True
Do While xtop
DoEvents
[MaClock] = Evaluate("=now()") - hdeb
Loop
End If
End Sub
'*************************
Salutations
RaMa
--
.
"Polo34" <polomoto@voila.fr> a écrit dans le message de news:
OgYLdAS8EHA.1264@TK2MSFTNGP12.phx.gbl...
Merci de ta réponse mais je souhaite que le comptage démarre à zéro comme
un
vrai chrono et pouvoir à la fois l'arréter et le démarrer via un bouton ce
commande.
Ta solution est correcte mais ma donne l'heure actuelle.
merci
Paul
"RaMA" <rmarceauPas2Spam@free.fr> a écrit dans le message de news:
e6gMOOK8EHA.208@TK2MSFTNGP12.phx.gbl...
Bonjour
une cellule nommée MaClock avec :
=maintenant()
Le format de la cellule
h:mm:ss,00
dans le module de feuille
'***********************************
Public xtop as Boolean
Private Sub CommandButton1_Click()
If xtop Then
xtop = False
Else
xtop = True
Do While xtop
DoEvents
[MaClock].Calculate
Loop
End If
End Sub
'***********************************
Salutations
RaMa
--
.
"Polo34" <polomoto@voila.fr> a écrit dans le message de news:
efRPUQH8EHA.2196@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une
cellule
XL qui serait démarrrer et arréter par un bouton de commande par
exemple.
remplace la proc par celle-ci '************************* Public xtop As Boolean Private Sub CommandButton1_Click() Dim hdeb hdeb = Evaluate("=now()") If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock] = Evaluate("=now()") - hdeb Loop End If End Sub '************************* Salutations RaMa -- . "Polo34" a écrit dans le message de news:
Merci de ta réponse mais je souhaite que le comptage démarre à zéro comme un vrai chrono et pouvoir à la fois l'arréter et le démarrer via un bouton ce commande. Ta solution est correcte mais ma donne l'heure actuelle.
merci
Paul
"RaMA" a écrit dans le message de news:
Bonjour
une cellule nommée MaClock avec : =maintenant() Le format de la cellule h:mm:ss,00
dans le module de feuille '*********************************** Public xtop as Boolean Private Sub CommandButton1_Click() If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock].Calculate Loop End If End Sub '*********************************** Salutations RaMa -- . "Polo34" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterai savoir comment faire un chronomètre au 100e dans une cellule XL qui serait démarrrer et arréter par un bouton de commande par exemple.
format: HH:MM:SS,XX
merci de vos réponse
Cath
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci '************************* Public xtop As Boolean Private Sub CommandButton1_Click() Dim hdeb hdeb = Evaluate("=now()") If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock] = Evaluate("=now()") - hdeb Loop End If End Sub '*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un bouton comme pour le chrono) en compte à rebours, façon minuterie s'il-te-plaît.
Merci
-- Cath :-) /____/ L'Australie dans tous ses états : / / http://perso.wanadoo.fr/cathozie/ - > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate, - o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci
'*************************
Public xtop As Boolean
Private Sub CommandButton1_Click()
Dim hdeb
hdeb = Evaluate("=now()")
If xtop Then
xtop = False
Else
xtop = True
Do While xtop
DoEvents
[MaClock] = Evaluate("=now()") - hdeb
Loop
End If
End Sub
'*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire
avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un
bouton comme pour le chrono) en compte à rebours, façon minuterie
s'il-te-plaît.
Merci
--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci '************************* Public xtop As Boolean Private Sub CommandButton1_Click() Dim hdeb hdeb = Evaluate("=now()") If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock] = Evaluate("=now()") - hdeb Loop End If End Sub '*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un bouton comme pour le chrono) en compte à rebours, façon minuterie s'il-te-plaît.
Merci
-- Cath :-) /____/ L'Australie dans tous ses états : / / http://perso.wanadoo.fr/cathozie/ - > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate, - o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
RaMA
bonsoir Cf ta boite Salutations RaMa
-- . "Cath" a écrit dans le message de news:
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci '************************* Public xtop As Boolean Private Sub CommandButton1_Click() Dim hdeb hdeb = Evaluate("=now()") If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock] = Evaluate("=now()") - hdeb Loop End If End Sub '*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un bouton comme pour le chrono) en compte à rebours, façon minuterie s'il-te-plaît.
Merci
-- Cath :-) /____/ L'Australie dans tous ses états : / / http://perso.wanadoo.fr/cathozie/ - > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate, - o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
bonsoir
Cf ta boite
Salutations
RaMa
--
.
"Cath" <SuperCath@wanadoo.fr.invalid> a écrit dans le message de news:
jvnkt0t1p1g9eb3en83s9k5fr1p3djds1r@4ax.com...
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci
'*************************
Public xtop As Boolean
Private Sub CommandButton1_Click()
Dim hdeb
hdeb = Evaluate("=now()")
If xtop Then
xtop = False
Else
xtop = True
Do While xtop
DoEvents
[MaClock] = Evaluate("=now()") - hdeb
Loop
End If
End Sub
'*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire
avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un
bouton comme pour le chrono) en compte à rebours, façon minuterie
s'il-te-plaît.
Merci
--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci '************************* Public xtop As Boolean Private Sub CommandButton1_Click() Dim hdeb hdeb = Evaluate("=now()") If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock] = Evaluate("=now()") - hdeb Loop End If End Sub '*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un bouton comme pour le chrono) en compte à rebours, façon minuterie s'il-te-plaît.
Merci
-- Cath :-) /____/ L'Australie dans tous ses états : / / http://perso.wanadoo.fr/cathozie/ - > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate, - o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Cath
Ce Tue, 4 Jan 2005 21:32:15 +0100, RaMA nous dit :
Bonsoir,
bonsoir Cf ta boite Salutations RaMa
Merci énormément :-).
-- Cath :-) /____/ L'Australie dans tous ses états : / / http://perso.wanadoo.fr/cathozie/ - > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate, - o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Ce Tue, 4 Jan 2005 21:32:15 +0100, RaMA nous dit :
Bonsoir,
bonsoir
Cf ta boite
Salutations
RaMa
Merci énormément :-).
--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Ce Tue, 4 Jan 2005 21:32:15 +0100, RaMA nous dit :
Bonsoir,
bonsoir Cf ta boite Salutations RaMa
Merci énormément :-).
-- Cath :-) /____/ L'Australie dans tous ses états : / / http://perso.wanadoo.fr/cathozie/ - > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate, - o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Polo34
Désolé RaMa de ne pas t'avoir répondu de suite mais ta solution est Ok à part un petit souci de rafraichissement de la cellule, tout est Ok Merci encore Polo34
"RaMA" a écrit dans le message de news: Ovyt$
bonsoir Cf ta boite Salutations RaMa
-- . "Cath" a écrit dans le message de news:
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci '************************* Public xtop As Boolean Private Sub CommandButton1_Click() Dim hdeb hdeb = Evaluate("=now()") If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock] = Evaluate("=now()") - hdeb Loop End If End Sub '*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un bouton comme pour le chrono) en compte à rebours, façon minuterie s'il-te-plaît.
Merci
-- Cath :-) /____/ L'Australie dans tous ses états : / / http://perso.wanadoo.fr/cathozie/ - > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate, - o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Désolé RaMa de ne pas t'avoir répondu de suite mais ta solution est Ok à
part un petit souci de rafraichissement de la cellule, tout est Ok
Merci encore
Polo34
"RaMA" <rmarceauPas2Spam@free.fr> a écrit dans le message de news:
Ovyt$xp8EHA.1392@tk2msftngp13.phx.gbl...
bonsoir
Cf ta boite
Salutations
RaMa
--
.
"Cath" <SuperCath@wanadoo.fr.invalid> a écrit dans le message de news:
jvnkt0t1p1g9eb3en83s9k5fr1p3djds1r@4ax.com...
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci
'*************************
Public xtop As Boolean
Private Sub CommandButton1_Click()
Dim hdeb
hdeb = Evaluate("=now()")
If xtop Then
xtop = False
Else
xtop = True
Do While xtop
DoEvents
[MaClock] = Evaluate("=now()") - hdeb
Loop
End If
End Sub
'*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire
avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un
bouton comme pour le chrono) en compte à rebours, façon minuterie
s'il-te-plaît.
Merci
--
Cath :-)
/____/ L'Australie dans tous ses états :
/ / http://perso.wanadoo.fr/cathozie/
- > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate,
- o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
Désolé RaMa de ne pas t'avoir répondu de suite mais ta solution est Ok à part un petit souci de rafraichissement de la cellule, tout est Ok Merci encore Polo34
"RaMA" a écrit dans le message de news: Ovyt$
bonsoir Cf ta boite Salutations RaMa
-- . "Cath" a écrit dans le message de news:
Ce Mon, 3 Jan 2005 09:06:55 +0100, RaMA nous dit :
Bonjour,
remplace la proc par celle-ci '************************* Public xtop As Boolean Private Sub CommandButton1_Click() Dim hdeb hdeb = Evaluate("=now()") If xtop Then xtop = False Else xtop = True Do While xtop DoEvents [MaClock] = Evaluate("=now()") - hdeb Loop End If End Sub '*************************
Je me greffe sur ce fil et je trouve génial tout ce qu'on peut faire avec Excel !
Je me demandais s'il était possible de faire la même chose (avec un bouton comme pour le chrono) en compte à rebours, façon minuterie s'il-te-plaît.
Merci
-- Cath :-) /____/ L'Australie dans tous ses états : / / http://perso.wanadoo.fr/cathozie/ - > O O < - Aide internet : CuteFTP, Forté Agent, ClipMate, - o - créer votre répertoire chez Wanadoo !
v < http://perso.wanadoo.fr/cathozie/aideinternet/
