Stop,chrono ,je bloque....

[Guido]

Bonjour le Forum

J'ai deux macros..

Public Sub Chrono()


Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Chrono"
Sheets("ENJEUX").Range("O16").Value = Time
End Sub

Pour moi Public Sub Chrono() la macro fonctionne super.

Mais pour l'autre ci dessous non...

Sub Macro21()

On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, "Chrono", , False
On Error GoTo 0
End Sub

le bouton..je l'ai créé

Merci pour votre aide

Merci Guido

 

[PMO2]

Re : Stop,chrono ,je bloque....

Bonjour,

Essayez le code suivant

Dim boolStop As Boolean

Sub Chrono()
Temps = Now + TimeValue("00:00:01")
If Not boolStop Then
  Application.OnTime Temps, "Chrono"
Else
  boolStop = False
End If
Sheets("ENJEUX").Range("O16").Value = Time
End Sub

Sub StopChrono()
boolStop = True
End Sub

 

[Guido]

Re : Stop,chrono ,je bloque....

Bonsoir

Merci pour ta proposition PM02

Ma premiere macro fonctionne secondes par secondes c OK

La deuxieme macro


Sub StopChrono()
boolStop = True
End Sub

la je bute rien ne se passe..

Merci d'avance pour une solution

Guido

 

[Modeste geedee]

Re : Stop,chrono ,je bloque....

Bonsour®

Public boolStop As Boolean
en tête d'un module standard

 

[Guido]

Re : Stop,chrono ,je bloque....

Re

Modeste-geedee

il faut bien deux bouton ou un seul ...

je suis vraiment perdu...

Merci

Guido

 

[Dranreb]

Re : Stop,chrono ,je bloque....

Bonsoir

Votre idée de départ était bonne sauf que Application.OnTime Temps, "Chrono", , Schedule:=False ne pouvait pas fonctionner parce que Temps était vide au lieu de contenir le temps qui avait été fixé par la première procédure. En effet ce sont deux variables locales indépendantes détruites à la sortie de chaque procédure. Pour qu'elle soit conservé dans une variable unique il faut impérativement la déclarer comme variable globale en tête du module. Et ce (très vive recommandation) de préférence derrière Option Explicit.

 

[Guido]

Re : Stop,chrono ,je bloque....

Bonjour le Forum

Dranreb je ne suis pas doué en VBA,je bidouille un peu.

je bloke..donc voici un pti fichier.

Je met le fichier afin d'etre un peu plus clair.....

Merci pour votre aide

Guido

 

[MJ13]

Re : Stop,chrono ,je bloque....

Bonjour à tous

Voir peut-être ici au post 24.

https://www.excel-downloads.com/threads/sauvegarde-auto-avec-une-macro.229570/

 

[PMO2]

Re : Stop,chrono ,je bloque....

Voir la pièce jointe.

 

[Guido]

Re : Stop,chrono ,je bloque....

Re

Bonjour MJ13,PM02

Je vous remercie pour votre aide

C tout Bon

amitiés

Guido

 

[JCGL]

Re : Stop,chrono ,je bloque....

Bonjour à tous,

Pour éviter la réouverture intempestive à la fermeture :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
 Application.OnTime Temps, Procedure:="Chrono", Schedule:=False
End Sub

A+ à tous

 

[Guido]

Re : Stop,chrono ,je bloque....

Re

Bonjour JCGl

Merci pour la solution.

Amitiés

Guido

 

[Guido]

Re : Stop,chrono ,je bloque....

Bonjour le Forum

je suis tj bloqué avec ma demande...

Sur le fichier ci dessus ca marche.

Sur mon fichier perso l'heure s'affiche,yesssssssssssssssssss

mais je n'arrive pas a arreté l'heure avec un bouton pause...

Merci pour votre aide

Guido

 

[JCGL]

Re : Stop,chrono ,je bloque....

Bonjour à tous,

As-tu cette procédure dans le module :

Sub StopChrono()
BoolStop = True
End Sub

A+ à tous

 

[Guido]

Re : Stop,chrono ,je bloque....

Bonsoir GCGL et le forum

Ré


Sub Chrono()
Temps = Now + TimeValue("00:00:01")
If Not boolStop Then
Application.OnTime Temps, "Chrono" 1ere macro qui lance l'horloge
Else
boolStop = False
End If
Sheets("ENJEUX").Range("O16").Value = Time
End Sub

...........................................................................................................

Sub StopChrono()
boolStop = True 2em macro qui devrais stopé l'orloge
End Sub

Merci d'avance

Guido