chronomètre

Philou · 21 Septembre 2003

Bonsoir à toutes et tous,

Mon problème est le suivant,

Je voudrais afficher un chrono numérique dans une cellule, avec :

1 : 1 bouton de dépard

2 : 1 bouton STOP

3 : 1 bouton reset ( remise à zéro )

Un tout grand merci à celle ou celui qui me transmettra la macro pour résoudre mon prblème.

Philou

vincent · 21 Septembre 2003

Bonsoir

J'ai fait un petit essai vois si cela te conviens.

@+Vincent

Philou · 21 Septembre 2003

Bonsoir vincent,

Je viens d'ouvrir et essayer ton classeur zipper...

mais il ne fonctionne pas, et je pense que tu as oublié le bouton " start ".

Mais même sans cela, le débogage se mets en route.

Je suis vraiment embêté, en fait, c'est pour placer dans un système
d'exercices de calculs mental pour les enfants.

La fonction de temps ( chrono ) est pour eux un repère de choix afin de se mesurer entre eux ( ils le demandent ).

Merci pour le début de solution, je vais continuer à chercher, mais je suis loin d'être un as en la matière, alors....

A+

Philou

vincent · 21 Septembre 2003

Re

C'est juste un pb d'init il faut que le bouton soit sur start au depart

normalement le fichier doit etre bon.

par contre une restriction:si on travaille sur la feuille le chrono n'est plus valide

@+Vincent

Philou · 22 Septembre 2003

Un tout grand merci à toi,

je vais essayer de composer avec cela..

je verrai demain..

peut être faire fonctionner le chrono sur une autre feuille, et faire une liaison entre les cellules d'une feuille à l'autre...

on verra.

En tout cas, un grand merci, et bonne fin de soirée et bonne nuit

Philou

Philou · 22 Septembre 2003

Bonjour Vincent, et à tous,

L'exemple que Vincent m'a proposé fonctionne, mais juste un petit
problème..

Quand l'enfant travaille dans une cellule, le temps s'arrête.

N'y aurait il pas moyen de résoudre ce petit problème ?

( si le temps se fige pendant que l'on travaille dans une cellule, ce
n'est pas grave, mais il faudrait qu'en arrière le temps continue
à tourner, et se mette à jour une fois sorti de la cellule de travail )

Si quelqu'un pense que c'est possible, un petit coup de main me ferait plaisir.

Philou

andré · 22 Septembre 2003

Salut Philou et vincent,

Effectivement il serait préférable que le chrono s'arrête au moment de la validation (enter) de la cellule dans laquelle on apporte la réponse, mais on ne peut tout avoir !

En tout cas bravo vincent pour cette petite application.

J'y ai ajouté dans une cellule la formule suivante :
=SI(TEXTE(A1;"ss")>"10";"trop tard";SI(TEXTE(A1;"ss")>"07";"dépêche-toi";""))
avec en prime deux mises en forme conditionnelle (couleur de fond).

Il y a-t-il moyen de simplifier cette formule sans passer par la fonction TEXTE ?

Ândré.

Philou · 22 Septembre 2003

Merci et bonjour André,

L'idée est bonne, mais en fait il y a une série de 20 calculs à faire.

Ce que je cherche, c'est le temps total que va mettre l'enfant pour
effectuer ces 20 calculs.

C'est lui qui doit mettre le chrono en marche, et l'idéal serait que le chrono
s'arrête dès que le dernier calcul est terminé.

( j'ai une cellule qui compte le nombre de calculs terminés )

Cela se complique

En tout cas, merci pour l'attention portée à mon problème.

Philou

andré · 22 Septembre 2003

Resalut Philou,

Si dans la cellule A1 tu écris par macro (bouton) l'heure de départ (Ctrl+ et dans la cellule B1, toujours par macro(bouton) l'heure d'arrêt et dans la cellule C1 la formule =SI(B1="";"";B1-A1) tu auras le temps écoulé.

Petite précaution : connaissant les enfants (j'en suis un !), il faudra les empêcher d'arrêter le compteur avant d'avoir répondu aux 20 questions.

Tu peux le faire, soit par la macro d'arrêt, qui vérifie la quantité de réponses, ou mieux en protégeant la feuille dès que le bouton d'arrêt a été enclenché.

Petit inconvenient : on ne vois pas le temps défiler.

Ândré.

Philou · 22 Septembre 2003

Re bonjour André,

Voici l'ébauche de ce que je veux faire,

tu comprendras mieux.

Philou

Jean-Marie · 22 Septembre 2003

Bonjour, tout le monde

J'ai placé un petit chrono sur une feuille, pour question de présentation.

Il est utilisable sur PC et sur Mac. Les boutons des barres d'outils "contrôle" ne sont pas utilisables sur ma plate forme.

Il y a des objets (rectangles) invisibles sur le chrono, qui permettent de lancer les actions de lancement de remise à zéro de d'arrêt.

Bonne journée

@+Jean-Marie

Philou · 22 Septembre 2003

Bonjour Jean-Marie,

C'est tout à fait ce qu'il me faut, mais quand j'appuie sur le bouton STOP,
le système "débogage " s'ouvre et mets en jaune la ligne suivante.

Application.OnTime EarliestTime:=vCycle, Procedure:="TempsEcoule", Schedule:=False

Et en plus, super présentation !

S'il y avait moyen de trouver la " panne "..

Un grand merci

Philou

Philou · 22 Septembre 2003

Re bonjour,

Mes 2 questions à problèmes :

la 1° : le chrono, j'ai reçu un petit fichier de Jean-Marie, mais ça bug sur cette ligne ci :
Application.OnTime EarliestTime:=vCycle, Procedure:="TempsEcoule", Schedule:=False

la 2° : je m'acharne à trouver une macro pour pouvoir ouvrir un autre classeur à l'aide d'un bouton, mais pas en lien hypertexte.

Voilà, c'est tout.

Merci pour l'aide déjà reçue.

Philou

vincent · 22 Septembre 2003

Re le fil

le fichier joint continue de calculer le temps passé meme si on touche à la feuille.

Voila

@+Vincent

Jean-Marie · 23 Septembre 2003

Bonjour,

Il suffit de remplacer la Sub Fin par celle-ci

Public Sub Fin()
If vFonction = True Then
Sheets("Feuil1").Range("D5") = Time - vDepart
Application.OnTime EarliestTime:=vCycle, Procedure:="TempsEcoule", Schedule:=False
vFonction = False
End If
End Sub

L'erreur était provoquée par un clique double sur le bouton d'arrêt. Merci à Zon pour avoir trouvé la cause.

@+Jean-Marie

chronomètre

Philou

Guest

vincent

Guest

Pièces jointes

Philou

Guest

vincent

Guest

Philou

Guest

Philou

Guest

andré

Guest

Philou

Guest

andré

Guest

Philou

Guest

Pièces jointes

Jean-Marie

Guest

Pièces jointes

Philou

Guest

Philou

Guest

vincent

Guest

Pièces jointes

Jean-Marie

Guest

Discussions similaires