chrono

Re : chrono

Bonsoir Justine,

un petit code ci dessous, un peu brouillon du reste, nécessite un "Label" et un "commandbutton" sur ton USF, si cela peut t'aider dans ton projet. Sans plus de détails difficile de t'orienter plus... enfin pour moi...

A placer dans le module de ton USF.

bonne soirée
@+

Re : chrono

re,
pierrot93 bonsoir
merci pour ton aide, mais j'ai deja essayé cette solution, sans succes
j'essaie de developper plus l'application et je vous envoie ca en piece-jointe
merci encore

Re : chrono

Bonjour justine, pierrot

une finchier joint pour essai

une macro sur fermeture du classeur pour arreter le chono
une macro liée au bouton
un macro dans le module

Bloqué à 15 secondes pour les tests

Re : chrono

Bonjour Justine, Pierrot_93, Wilfried_42, le forum

Wilfried_42: j'ai essayé ton compte à rebours mais chez moi (Excel 2003), il s'emballe : la première fois c'est nikkel ensuite il n'affiche qu'une seconde sur 2 ou trois mais à chaque seconde!

à la fin il n'affiche plus que des 2 et des 0 en une fraction de seconde.
étant donné que je ne comprends pas bien ton application ontime ...

et cette ligne : Compteur=15: Range("A1")=compteur
je ne sais pas à quoi correspond le":" cela permet-il de ne pas passer à la ligne?

comme ça plantait, j'ai rajouté un bouton d'arrêt avec un switch boolean.

Merci

Re : chrono

Bonsoir,

voici un système qui doit répondre au besoin (boucle avec temporisation sans blocage d'excel)


Dim suite As Boolean 'variable globale

Sub a()

' exemple de procédure qui écrit une cellule toutes les 5"

For l = 1 To 10

Cells(l, 1) = l

Application.OnTime Now + TimeValue("00:00:05"), "Fin"

suite = True

While suite ' boucle d'attente
DoEvents
Wend


Next

End Sub


Bon courage
Sub fin()
suite = False
End Sub



Bon courage

GIBI