Chrono course de côte

[mada16]

Bonjour à tous,
je suis nouveau sur le forum et ne maîtrise que TRES PEU excel. Comme le titre l'indique, je cherche à créer un chronomètre sous excel pour des courses de côte. La particularité de ces courses est que le départ ne se situe pas au même endroit que l'arrivée, donc pour chronométrer ces épreuves "à pas cher" on utilise un chrono manu tout simple et des talkie. Le problème est que pour donner le top départ avec le bruit du kart, c'est pas évident.
J'ai donc pensé à un système avec deux fichiers excel que l'on comparerait après l'épreuve pour avoir les temps.
Pour faire simple, on fait défiler un chrono dans une case, que l'on synchronise entre départ et arrivée quand il n'y a pas de bruit. Un commissaire au départ et un à l'arrivée avec chacun son fichier excel qui comporte la liste des pilotes. Quand un kart passe le ligne de départ, le commissaire clique sur le N° du pilote et le temps (ou plutôt l'heure de passage) s'inscrit dans sa case, et quand il passe la ligne d'arrivée l'autre fait la même chose. On obtient ainsi deux temps (heure de passage) différents et on fera la soustraction après la fin de l'épreuve pour obtenir le temps de parcours réel.
J'ai cherché longtemps sur le net, j'ai trouvé pas mal de choses mais jamais ce que je cherchais exactement, et c'est pourquoi je fais appel aux spécialistes que vous êtes.
Le fichier qu se rapproche le plus est celui en PJ mais le chrono n'est qu'en secondes et on a besoin d'une précision au centième...J'ai donc joint un deuxième fichier (chrono au millième), mais j'ai vu que le sytème n'était pas le même, un utilise des macros, l'autre une userform...
Je précise que dans le premier fichier, je n'ai pas besoin de classement (pour l'instant...) et que je n'ai pas besoin non plus de plusieurs tours (on créra plusieurs classeurs pour plusieurs épreuves. En gros je n'ai besoin que d'une colonne (A par exemple) pour y inscrire les N° des pilotes, une deuxième pour leurs noms, et une troisième pour y voir les horaires s'inscrire quand on clique sur le N° en colonne A.
S'il peut y avoir deux autres colonnes, une pour y coller les temps que l'on aurait copié sur le fichier arrivée, et enfin la dernière qui effectuerait la soustraction automatique pour avoir le temps de parcours, ce serait parfait. J'ai fait une esquisse (3ème PJ) mais il manque l'essentiel...
Merci par avance de votre aide, en espérant ne pas avoir été trop long et suffisamment clair.

Mada16

 

[pierrejean]

Bonjour à tous

Je me suis permis d'essayer une adaptation du fichier de ROGER que je salue

 

[mada16]

Bonsoir roger2327 et pierrejean et merci de vos contributions.
Le chrono de roger est une bonne base que j'aurai bien voulu trouver quand je cherchais sur le net...et l'adaptation de pierrejean est tout simplement LE chrono que je cherchais à faire simplement au début : un bouton départ pour lancer le chrono en s'arrangeant pour synchroniser le lancement entre les deux commissaires, ensuite on clique sur un N° de kart pour afficher le temps dans la case (commissaire 1 au départ et commissaire 2 à l'arrivée) et ensuite on peut faire un copier/coller sur un autre fichier avec une formule de soustraction pour obtenir le temps de parcours. Et enfin un bouton d’arrêt du chrono et un bouton de RAZ.
Je garde ça de coté car je ne veux pas dénigrer ni ignorer le travail de Lonewolf qui a su aussi répondre à mes attentes et même proposer des options et améliorations que je n'avais pas envisagé.

 

[Lone-wolf]

Bonsoir Roger2327, pierrejean, mada

 

[Lone-wolf]

Après pour tout effet visuel inutile souhaité

Mais Dranreg, si dans un chrono, le temps reste figé, sans vouloir t'offenser, les QueryPerformance's à quoi servent??

Et je n'ai toujours pas réussi à faire tourner le compteur

 

[mada16]

Bien sûr que je connait, mais eux ils ont le matériel pour chronométrer (écrans et autres) , et ce sont parfois une dixaine de personnes qui font une course de 10mn.

salut Lone-wolf,

sans vouloir entrer dans la polémique, j'ai l'impression que ce dont tu me parles(une dixaine de personnes qui font une course de 10mn), c'est du karting dit de loisir, ceux qu'on peut louer sur une grande majorité de piste de France. Ca n'a rien à voir avec le karting de compétition, et encore moins avec les courses de côtes de karting. Il n'y a que très peu d'épreuves de ce genre en France (moins de cinq) et c'est très peu connu, même dans le monde du kart. Mais ce n'est pas le sujet, revenons à ce fameux chrono!!!
j'ai testé les derniers fichiers que tu m'a envoyé, et ça marche très bien!!! j'ai modifié les formats dans les cellules qui avaient un format bizarre, c'est bon aussi...
J'ai apporté quelques autres modifications, mais plus d'ordre visuel que structurel. J'ai déplacé les boutons pour qu'ils soient toujours accessibles, quelque soit la hauteur de page entre le kart 1 et le kart 60 (normalement y en aura pas plus). d'ailleurs à ce sujet, j'au vu quelques part, sur ce forum je crois, mais je ne retrouve pas, qu'on pouvait "fixer" les boutons, c'est à dire que le bouton se déplace avec la page, quand on monte ou descend la page, le bouton reste au même endroit de l'écran. Est ce possible et comment fait on???
Ensuite j'ai déplacé la cellule chrono. Le but était au départ de supprimer la colonne C qui ne me sert à rien. J'ai réussi, en modifiant dans le code tous les C3 en E3, mais quand j'ai supprimé la colonne C, ça a tout déplacé et c'était le bordel. Donc j'ai gardé cette colonne et en ai profité pour m'en servir pour définir les catégorie...
Maintenant, j'ai remarqué un petit "bug" ( pour moi... ce n'en est peut être pas un...). Comme il n'y a pas encore de bouton RAZ, j'efface les données pour refaire soit un test, soit une autre épreuve. Et quand j'efface les données de la page départ (colonne D) ça m'efface des données de la colonne B de la page arrivée. Si j'efface les les temps un par un, les noms de la page arrivée s'efface un à un, mais si j'efface en paquet, il n'y a que le premier nom (colonne B8) qui disparaît, et de temps en temps, j'ai des données qui s'inscrivent en dehors du tableau.
Enfin, j'ai remarqué qu'on pouvait cliquer plusieurs fois sur le même N°, aussi bien sur la feuille départ qu'arrivée. Est ce qu'il est possible de "figer" les temps une fois que l'on a cliquer, afin de ne pas changer le temps par erreur (deuxième clic au mauvais endroit par exemple).
Je te joins le fichier que j'ai modifié.

 

[Dranreb]

si dans un chrono, le temps reste figé,

Ah non, dans un chrono pas plus que n'importe où ailleurs dans notre univers, le temps n'est figé.
On peut seulement le montrer ou non.
Les QueryPerformance servent essentiellement à noter une heure juste quelque part.
Mais on peut s'en servir aussi pour faire défiler l'heure et un temps dans des Label d'un UserForm dont le rôle sera essentiellement d’attester que le chrono est actif, c'est à dire qu'une heure de référence y est notée, et de commande claire d'inscription de la dite heure par un gros bouton rouge par exemple.
Je vais faire quelque chose de ce genre si ça t'intéresse.

 

[mada16]

bonsoir Dranreb,
J'ai essayé de suivre votre conversation avec Lone-wolf, mais sans succès, c'est du chinois pour moi
Je suppose quand même que c'est lié à ma demande et je crois même que tu as contribué à la résolution d'un problème (affichage des millièmes).
Donc merci à toi aussi de ton aide.
Dans ton dernier post, tu dis qu'on peut montrer une heure!! Jusqu'à quelle précision ???
Peut on simplement montrer une heure en format hh:mm ou peut on aller plus loin, du genre hh:mm:ss,000 ???
En fait c'est pour savoir si on peut faire une modif dans le fichier de Lone-wolf. Pour l'instant, quand on clique pour la première fois sur un N° de kart, dans la case top départ, un chrono commence à dérouler (à partir de 0) et dans la case heure de départ du kart concerné, l'horaire s'affiche. Quand on clique sur un deuxième N° de kart, le temps repart à 0 et un autre horaire s'affiche dans la case concernée.
Le top serait que ce soit le même temps partout, soit le chrono à partir de 0, soit l'horaire actuel et que celui qui défile ne s'arrette pas ou ne change pas quand on clique sur un autre N° de kart. J'espère que être clair....

 

[Dranreb]

Voilà un essai.
La sélection en colonne A ou B (seulement s'il y a une heure de départ) fait apparaitre un chronomètre.

 

[mada16]

Oups!!!!
quand je clique sur une cellule, quelle qu'elle soit, j'ai un message d'erreur, "erreur de compilation, le code contenu dans ce projet doit être mis à jour pour pouvoir être utilisé sur les systèmes 64bits....

 

[Dranreb]

Pas grave. Ajoutez PtrSafe derrière les Declare
Je vient d'ajouter cette procédure dans UFmChrono :

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim QPC As Currency
QueryPerformanceCounter QPC
Cel.Value = HRéf + (QPC - QPCRéf) / QPF / 86400
ÇaTourne = False
End Sub

Elle permet par exemple de noter l'heure en enfonçant la barre d'espacement, ce qui évite de rater le bouton rouge si on surveille plutôt des évènements du terrain.

 

[mada16]

Ouais!!! pas mal ta solution!!!!
L'heure qui défile avec les millièmes c'est top.
Par contre, dés qu"on clique sur le bouton rouge ou la barre d'espace, le chrono disparaît.
Ca serait bien qu'il reste, qu'on ait pas besoin de reselectionner une case (A ou C) pour le faire ré-apparaître.
EDIT Ou carrément que ce chrono apparaisse dés l'ouverture du fichier...
Merci

 

[Lone-wolf]

Re Dranreb

Désolé, je me suis mal exprimé. Je voulais dire que le défilement ne se faisait pas.

 

[mada16]

Re Lone-wolf,

là, dit comme ça, ç'est du chinois...
Mais je vais essayer de voir, on s'est jamais...et puis c'est comme ça qu'on apprend

 

[Dranreb]

Je voulais dire que le défilement ne se faisait pas

Je sais, je plaisantais. De fait le défilement n'a rien de fonctionnel: ça montre juste le truc vivant.

Ca serait bien qu'il reste, qu'on ait pas besoin de reselectionner une case (A ou C) pour le faire ré-apparaître

Si vous voulez, il suffit de mettre en commentaires quelques instructions 'ÇaTourne = False' (mais surtout pas celle de UserForm_QueryClose). Mais je pense qu'il vaut mieux laisser le champ libre pour sélectionner une autre cellule où l'heure sera à noter dans l'instant prochain, car je doute qu'il faille mettre une autre heure dans la même cellule. D'autant plus qu'il réapparait aussitôt, sans même avoir besoin d'un délai moyen d'une demi seconde pour se recadrer avec l'heure, car il est juste masqué, non déchargé, ce qui n'est pas le cas si on en demande la fermeture par la croix.
Il est affiché en non modal, de sorte qu'on peut aussi sélectionner une autre cellule pendant qu'il tourne: il se déplacera et prendra en compte l'heure de départ de la nouvelle ligne pour calculer le temps affiché.

Dans la macro Private Sub UserForm_Activate(), il y a la ligne If ÀDécharger Then Unload Me Else Me.Hide. Mettre peut-être à la place
avant la ligne DoEvents: Loop - If ÀDécharger Then Exit Do.

N'apporte rien à mon avis.

 

[Lone-wolf]

C'est pour cela que j'ai supprimé le message.