[VBA-E] Créer un chrono

Bonsoir

J'espère que ce site pourra m'aider, je compte sur vous!!!
Je suis étudiante en psychologie de la performance dans le domaine du sport et j'aimerai dans le cadre de mon stage créer un chronomètre complet avec marche arrêt initialisation, temps intermédiaire, fréquence par cycle (athlétisme, natation) afin de donner un petit plus à mon dosser que je dois rendre en juillet.
Je suis un peu perdu car je n'y connais rien, je viens tout juste de m'y mettre, mon sport étant la danse et la natation j'avoue que cela m'aiderai.

Je requière votre aide afin que quelqu'un me montre comment associé un bouton à un code quelles démarches faire etc...........une personne m'avait fait un petit guide sur word mais illisible je ne sais pas pourquoi.
Quelqu'un peut-il me présenter un petit guide pour créer un chrono sous vba excel avec un tableau qui enregistre les temps intermédiaire sous VBA EXCEL?????????????????


mERCI DE VOTRE AIDE, cela est très important pour moi


Bon courage a tous et merci

Alicia

Ok, j'ai lu.
Pour le chrono, il y a une réponse donnée récente (8 à 15 jours) qui indiquait comment mesurer le temps en centième de seconde. Un autre post indique que la précision obtenue était de l'ordre des 6ms.
Quelle précision souhaites-tu ?

Les boutons.
Pour les temps intermédiaires, pas de difficulté. La frappe d'un bouton peut entraîner l'affichage du temps à l'instant de la frappe sans arrêter le chorno.
Un autre bouton pouvant indiquer le temps total et arrêter le chrono.

Je verrais assez ça dans Excel pour faciliter l'enregistrement.
Une colonne départ, une ou plusieurs colonnes pour les temps intermédiaires
Une colonne pour le temps total
Des lignes pour les "concurrents"

Reste la présentation (l'emplacement des boutons)
Pour ma part, je verrai un userform avec affichage des mesures dans des textbox + pleins de boutons. Le premier servirait à lancer le chrono, le second aux mesures intermédiaires, le troisième à arrêter le chrono et à afficher le tps total, le dernier à quitter l'appli.

Pour l'userform, tu vas dans l'éditeur VB, tu fais insérer -> Userform
Dans l'userform tu insères trois ou quatre ou cinq textbox (deux pour le départ et l'arrivée + autant que de temps intermédiaires) + tes trois boutons

Je te mettrai l'adresse du code pour le chrono dès que je l'ai retrouvé mais tu peux également faire une recherche sur le forum VBA

Tu commences à réaliser ton bidule et si tu as un pb, tu demandes ;)
A+

PS - Pour le sujet de la discussion, pourquoi ne pas mettre "Créer un chrono" ?

Edit
Jète un oeil là Ce n'est pas la réponse complète mais cela de donnera des indications sur la manière d'obtenir le centième de seconde

Déjà une réponse, on verra ce qu'il te faut exactement après
La touche F10 donne le temps intermédiaire autant de fois que tu le souhaites, F11 arrête le chrono. Pas oublier de faire F11 à la fin ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Function GetTickCount& Lib "kernel32" ()   Sub chrono() Dim Départ As Double, arrivée As Double, duree As Double Dim F10 As Boolean, F11 As Boolean Départ = GetTickCount& Do Do DoEvents F10 = GetAsyncKeyState(121) 'Touche F10 F11 = GetAsyncKeyState(122) 'Touche F11 Loop Until F10 Or F11 arrivée = GetTickCount& Durée = arrivée - Départ If F10 Then MsgBox Int(Durée / 1000) & "s" & Left(Format(Durée - Int(Durée / 1000), "#####"), 3) & "ms" Loop Until F11 MsgBox Int(Durée / 1000) & "s" & Left(Format(Durée - Int(Durée / 1000), "#####"), 3) & "ms" End Sub

---

Tu nous dis
A+

PS - J'ai regardé à l'adresse que tu as indiquée, te l'expliquer? Sans le source, je ne peux pas mais "peut-on faire ça ?" Oui ! sans gros problème. On peut même utiliser la photo d'un vrai chrono en toile de fond et faire une aiguille qui bouge :mouarf:
Blague à part, on pourrait également afficher le temps en continu à quelques 10ème de seconde près (le tps de l'affichage)