Sur Xl97!
J'ai réalisé un chronomètre tout simple qui réagit par rapport à une heure
de
départ (l'heure système - l'heure de départ). Avec une boucle do...Loop, je
peux "rafraîchir" la cellule qui accueille le chrono, mais je perds la main
pour exécuter une autre macro.
Comment garder cette main?
Voilà mon code:
Option Explicit
Dim chrono
Sub krono()
Dim heureDepart, affichage As Range 'L'heure de départ et le chrono.
Dim monChrono 'La différence entre l'heure système et
le départ.
Set heureDepart = Range("départ")
Set affichage = Range("chronomètre")
Do
monChrono = Time - heureDepart
chrono = Format(monChrono, "hh:mm:ss")
affichage = chrono 'Affichage de chrono en cellule
chronomètre.
Loop 'inconvénient: la main est perdue
pendant l'exécution.
End Sub
monChrono = Time - heureDepart chrono = Format(monChrono, "hh:mm:ss") affichage = chrono 'Affichage de chrono en cellule chronomètre.
End Sub
"bob" wrote in message news:
Bonjour à tous
Sur Xl97! J'ai réalisé un chronomètre tout simple qui réagit par rapport à une heure de départ (l'heure système - l'heure de départ). Avec une boucle do...Loop, je
peux "rafraîchir" la cellule qui accueille le chrono, mais je perds la main
pour exécuter une autre macro. Comment garder cette main? Voilà mon code:
Option Explicit Dim chrono
Sub krono() Dim heureDepart, affichage As Range 'L'heure de départ et le chrono. Dim monChrono 'La différence entre l'heure système et
le départ.
Set heureDepart = Range("départ") Set affichage = Range("chronomètre")
Do monChrono = Time - heureDepart chrono = Format(monChrono, "hh:mm:ss") affichage = chrono 'Affichage de chrono en cellule chronomètre.
Loop 'inconvénient: la main est perdue pendant l'exécution. End Sub
Merci d'avance
-- Robert
Bonjour Bob.
Il faut libérer l'ordinateur en remplaçant la Loop par une commande
Application.OnTime.
Exemple:
Dim heureDepart, affichage As Range 'L'heure de départ et le chrono.
Dim ProchainAffichageHorloge As Date
monChrono = Time - heureDepart
chrono = Format(monChrono, "hh:mm:ss")
affichage = chrono 'Affichage de chrono en cellule
chronomètre.
End Sub
"bob" <nospam-rg31@free.fr> wrote in message
news:ODoqvPvoDHA.2848@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Sur Xl97!
J'ai réalisé un chronomètre tout simple qui réagit par rapport à une heure
de
départ (l'heure système - l'heure de départ). Avec une boucle do...Loop,
je
peux "rafraîchir" la cellule qui accueille le chrono, mais je perds la
main
pour exécuter une autre macro.
Comment garder cette main?
Voilà mon code:
Option Explicit
Dim chrono
Sub krono()
Dim heureDepart, affichage As Range 'L'heure de départ et le chrono.
Dim monChrono 'La différence entre l'heure système
et
le départ.
Set heureDepart = Range("départ")
Set affichage = Range("chronomètre")
Do
monChrono = Time - heureDepart
chrono = Format(monChrono, "hh:mm:ss")
affichage = chrono 'Affichage de chrono en cellule
chronomètre.
Loop 'inconvénient: la main est perdue
pendant l'exécution.
End Sub
monChrono = Time - heureDepart chrono = Format(monChrono, "hh:mm:ss") affichage = chrono 'Affichage de chrono en cellule chronomètre.
End Sub
"bob" wrote in message news:
Bonjour à tous
Sur Xl97! J'ai réalisé un chronomètre tout simple qui réagit par rapport à une heure de départ (l'heure système - l'heure de départ). Avec une boucle do...Loop, je
peux "rafraîchir" la cellule qui accueille le chrono, mais je perds la main
pour exécuter une autre macro. Comment garder cette main? Voilà mon code:
Option Explicit Dim chrono
Sub krono() Dim heureDepart, affichage As Range 'L'heure de départ et le chrono. Dim monChrono 'La différence entre l'heure système et
le départ.
Set heureDepart = Range("départ") Set affichage = Range("chronomètre")
Do monChrono = Time - heureDepart chrono = Format(monChrono, "hh:mm:ss") affichage = chrono 'Affichage de chrono en cellule chronomètre.
Loop 'inconvénient: la main est perdue pendant l'exécution. End Sub
Merci d'avance
-- Robert
bob
Salut Merci je teste
-- Bob "gb" a écrit dans le message de news:
Bonjour Bob.
Il faut libérer l'ordinateur en remplaçant la Loop par une commande Application.OnTime.
Exemple: Dim heureDepart, affichage As Range 'L'heure de départ et le chrono. Dim ProchainAffichageHorloge As Date