Stop,chrono ,je bloque....

Dranreb

XLDnaute Barbatruc

• 28 Mars 2015

• #16

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

Bonsoir.

Personnellement je ne vois pas la nécessité du boolStop.
Ceci doit faire l'affaire :

VB:

Option Explicit
Dim Temps As Date ' Doit impérativement être globale.

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

Sub StopChrono()
Application.OnTime Temps, "Chrono", Schedule:=False
End Sub

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 28 Mars 2015

• #17

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

Re

Bonsoir Dranreb

Ben voila c'est super cela me comble.

merci a Vous tous

Bonne fin de soirée

amitiés

Guido

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 29 Mars 2015

• #18

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

Bonjour à tous

Cela aurait été bien qu'on ai en retour le fichier qui fonctionne. mais je rêve un peu 😱.

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 29 Mars 2015

• #19

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

MJ13 à dit:

Bonjour à tous

Cela aurait été bien qu'on ai en retour le fichier qui fonctionne. mais je rêve un peu 😱.

Cliquez pour agrandir...

Salut MJ13

Je ne peux pas poster mon fichier il pese 5.63mo..

Donc,j'ai mis la vb de Dranreb ,dans la macro respective dans mon fichier,et la C tout bon.

-------------------------------------------------------------------------------------------------------


Option Explicit
Dim Temps As Date ' Doit impérativement être globale.

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

Sub StopChrono()
Application.OnTime Temps, "Chrono", Schedule:=False
End Sub

Merci

Amitiés

Guido

Si tu as besoin de plus ,je suis la.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 29 Mars 2015

• #20

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

Re Guido

Ok, merci pour le code, c'est au moins, ce que j'attendais 🙂.

Car si quelqu'un tombe sur cette discussion, c'est toujours bien d'avoir la solution qui fonctionne bien pour le demandeur. Enfin c'est ma philosophie d'un bon forum comme XLD 😱.

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 29 Mars 2015

• #21

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

Salut MJ13

Les deux fichiers poster plus haut fonctionait bien ,tu sais ,mais ca bloquais dans le mien.

A bientôt

Amitiés

Guido

 

Vote positif 0 Vote négatif