Discussion :

[alicia4531]

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

[ouskel'n'or]

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Blague à part, on pourrait également afficher le temps en continu à quelques 10ème de seconde près (le tps de l'affichage)