Chronomètre....

[CDavid2007]

Salut à tous,

Je souhaite utiliser un chronomètre (précis à la seconde est suffisant) avec capture du temps impartis lors d'un clic sur une cellule et capture de la valeur contenu dans la cellule.

Utilisateur intermèdaire d'Excel, mes notions de programmation sont insuffisantes pour réaliser une telle macro.

Pourriez-vous m'aider SVP ? Merci beaucoup....

 

[Staple1600]

Re : Chronomètre....

Re


Et tu bloques ou?

 

[Cousinhub]

Re : Chronomètre....

re-
euh, combien de Km le tour?
sinon, galère pour noter tous les coureurs en cas de peloton groupé, si ce sont des vélos, ou si le tour fait 400 m

 

[CDavid2007]

Re : Chronomètre....

Le tour fait 5 ou 6 kilomètres...... Là ou je bloque c'est de pouvoir éditer le code de mon tableau pour incruster la prise en compte du temps lors d'un double-clic sur le dossard. Celui-ci serait incrusté dans une colonne supplémentaire après le numéro de dossard ou aprés les noms des courreurs.... Et comme je ne m'y connais pas trop en VBA.....

 

[Staple1600]

Re : Chronomètre....

RE

C'est toujours le même problème qu'en 2006?

https://www.excel-downloads.com/threads/compte-tour-en-macro-excel-pour-vttistes.72025/


Il y a un fil similaire sur le forum (que je n'ai pas encore retouvré)

Mais dont voici le fichier: ici

 

[CDavid2007]

Re : Chronomètre....

En fait, la première monture du tableau (sans chronomètre) à déjà servi pour une compétition mais le besoin d'un chonomètre s'est fait ressentir lorsque les participants voulaient des indications sur leurs performances et les temps moyens qu'ils mettent pour accomplir un tour de piste..... Ce faisant, gérer des statistiques de temps pour chaque équipe n'est pas compliqué en soit mais le plus difficile est de mettre en place le système qui permet la saisie de ces temps. D'où ma difficulté....

 

[Staple1600]

Re : Chronomètre....

RE

Tu as regardé le fichier que j'ai mis en lien?

Tu pourrais l'adapter non?

edit Voila le fil du forum en question (dont je parlais dans mon message de 1h01)
(il y a aussi le fichier avec le chronmètre)
https://www.excel-downloads.com/threads/2-tableaux-classes-a-partie-d-un-seul.46387/

 

[Bisson]

Re : Chronomètre....

Bonjour,

Public ProchainChrono, Départ
Sub Demarre()
 Départ = Timer()
 majChrono
End Sub

Sub majChrono()
 Sheets("Chrono").[A1] = Format((Timer() - Départ) / 3600 / 24, "hh:mm:ss")
 ProchainChrono = Now + TimeValue("00:00:1")
 Application.OnTime ProchainChrono, "majChrono"
End Sub

Sub Arret()
 On Error Resume Next
 Application.OnTime ProchainChrono, Procedure:="majChrono", Schedule:=False
End Sub

Bisson

 

[CDavid2007]

Re : Chronomètre....

Merci beaucoup à tous.... je vais essayé d'intégrer ton code Bisson qui m'à l'air assez simple à incruster....

Je vous donne des nouvelles dès que j'y suis arrivé.... enfin j'espère.... ou dès que je n'y arrive pas .... lol

 

[CDavid2007]

Re : Chronomètre....

Merci Staple1600 et à tous pour les fichiers joints.... je tente une récupération des macros pour les intégrer.... souhaitez moi bonne chance...... ça va chauffer dans les neurones....

 

[Cousinhub]

Re : Chronomètre....

Bonjour CDavid2007
Après "quelques" (je confirme, au pluriel....) essais, regarde le fichier joint
Le principe, tu cliques sur Départ, les compteurs s'initialisent, un compteur général, et un compteur par participant.
Lorsque tu doubles-clic sur un des participants, son numéro est ajouté dans la colonne M, et dans la colonne N, son temps au tour, son compteur étant réinitialisé à chaque tour.
Il ne faut surtout pas oublier de démarrer tes compteurs.
Dans les colonnes R et S, les noms des coureurs.
Reviens si soucis

 

[JHA]

Re : Chronomètre....

Bonjour bhbh,

Très beau fichier, mais je ne comprends pas le cumul en colonne "Y".
Je me suis permis de modifier cette colonne avec somme.si au lieu de sommeprod.
exemple en "Y3":

=SOMME.SI($M$3:$M$211;X3;$N$3:$N$211)
mais j'ai peut-être mal saisi le calcul de cette colonne.

Peux-tu m'éclairer?

JHA

 

[Cousinhub]

Re : Chronomètre....

Bonjour JHA,
Euh, à vrai dire, je n'avais même pas été aussi loin avec l'ascenseur horizontal....
Je n'avais pas vu ces colonnes..

Edit : Eh oui, ça marche mieux ainsi...Merci pour lui

 

[Cousinhub]

Re : Chronomètre....

Tant que j'y suis...
En me servant d'un code de Sergio dans :
ICI

Dans la feuille Recap, tu auras le nombre de tours de chaque équipe et le temps pour chaque tour.
A te lire

Edit : En cliquant sur le bouton Fin, tu extraits tes données

 

[Bruno Evrard]

Re : Chronomètre....

Bonsoir



Merci pour ta question

Cela m' permis de m'amuser un tit peu et d'oublier la raclée des Bleus


Voici un tit chrono dans un userform

Bonsoir,

Ce chrono me convient. Est-ce que je peux choisir moi-même la cellule où je voudrait que le temps s'inscrive. Pourrait-on supprimer le nom et n'avoir que le temps qui s'affiche dans la cellule choisie.

Merci

 

[Staple1600]

Re : Chronomètre....

Bonsoir


Le code se trouve dans l'userform

Private Sub CommandButton3_Click()
Dim Ligne As Long
Ligne = [B65536].End(xlUp).Row + 1
Range("B" & Ligne) = Label1.Caption 'c'est ici qu'il faut modifier pour le temps
'Range("A" & Ligne) = TextBox1 ' et la aussi  soit en supprimant soit en mettant
'un apostrophe
End Sub