Stop,chrono ,je bloque....

Guido

XLDnaute Accro
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

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

Bonjour,

Essayez le code suivant
Code:
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

XLDnaute Accro
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
 

Dranreb

XLDnaute Barbatruc
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

XLDnaute Accro
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
 

Pièces jointes

  • La meme heure affichée...xls
    36.5 KB · Affichages: 29
  • La meme heure affichée...xls
    36.5 KB · Affichages: 43
  • La meme heure affichée...xls
    36.5 KB · Affichages: 45

JCGL

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

Bonjour à tous,

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

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

A+ à tous
 

Pièces jointes

  • JC La meme heure affichée...xls
    85 KB · Affichages: 32

Guido

XLDnaute Accro
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
 

Guido

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

Bonsoir GCGL et le forum




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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 868
dernier inscrit
pierreselo33