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

 

[Dranreb]

Celui du poste #78 était déjà équipé de nouvelles méthodes documentées dans l'UserForm.
Celui ci est encore un peu plus étoffé.

 

[mada16]

AAHHH YYYEESS !!!!
Je l'ai regardé vite fait (j'ai pas trop le temps ce midi) mais ça m'a l'air d'être excellent.
Je regarde ça plus en détail ce soir, merci encore pour le boulot.
A+++

 

[mada16]

Salut Dranred, salut le forum,

voilà, j'ai eu le temps de regarder en détail...et je confirme, c'est excellent, presque parfait!!!
Il y a cependant quelques détails qui coincent.

1 j'ai vu que tu avais "codé" une incrémentation des N° de kart au fur et à mesure que l'on sélectionnait la case et que l'on inscrivait un horaire. Ca, il faut le retirer, parce que sur ce genre d'épreuve (comme sur beaucoup d' autres en kart) c'est le pilote qui choisit son N° lors de l'inscription. On se retrouve donc généralement avec des N° "abracadabrantesque", genre 333, 123 ou 69, alors qu'il n'y a que 40 pilotes engagés. Il faut qu'on ait la possibilité de remplir cette case avant la course, hors pour l'instant dés qu'on clique dessus, le userform se déclenche et on a pas la possibilité d'écrire.

2 c'est au niveau de la mobilité des userform. Ils sont bien positionnés, et suivent la feuille...mais parfois la feuille est bloquée. En fait qu'elle soit bloquée quand l'horaire défile (avant l'appui sur barre espace) est très bien, mais ensuite, une fois qu'on a inscrit l'horaire dans la case et que le voyant est rouge, il faut pouvoir aller chercher un autre kart, parfois en dehors de la feuille, et là on est obligé de cliquer sur une case au hasard (en dehors des cases N° de kart) pour récupérer la mobilité de la page par le "scroll souris"

3 Le tri: très bien pour la feuille départ qui servira pour le classement scratch. Par contre sur la feuille arrivée, je voudrais pouvoir faire un classement par catégorie. Mais ça, si tu veux, je pourrai le refaire par l'intermédiaire des macros et des boutons, j'ai réussi sur le fichier précédent, je dois pouvoir réitérer l'exploit...

Dernière question, elle vient d'un collègue à qui j'ai montré le fichier précédent, y a t il la possibilité de rajouter une colonne ( entre "nom" et "cat") sans mettre le bordel dans les codes? Ce serait pour y inscrire le nom du club du pilote.
Je te joins le fichier que j'ai modifié (juste rajout de colonne, et pré-positionnement des catégories)

 

[Dranreb]

J'ai mis ce dispositif pour l'inscription, justement afin d'être gêné le moins souvent possible par l'UFmChrono qui à tendance à s'afficher quand on sélectionne une cellule de la colonne A.
Je ne peux rien faire pour rendre la fenêtre Excel active quand c'est l'UFmChrono qui l'est. Le laisser se masquer n'aurait pas introduit ce problème..
Pour faire le classement par catégorie, classer d'abord par Temps ensuite par Cat (toujours en sélectionnant les titres de ces colonnes)
Oui c'est un des avantage des plages mises sous forme de tableaux: les macros peuvent s'appuyer sur leurs titres.
que veux tu que je fasse du classeur joint, compte tenu des présentes réponses ?

 

[mada16]

OK pour les remarques 2,3,et 4!!
Pour la mobilité, c'est pas le plus important, on fera avec, c'est une question d'habitude. Pour le tri, ça marche et pour la colonne sup aussi.
Par contre pour le 1, si j'ai bien compris, on pourra pas mettre le N° qu'on veut tant qu'on fera sélectionner l'UFmchrono par la colonne A.
Et c'est important, tu comprendras qu'on ne peut pas attribuer le N° au kart après son départ, et comme il y a toujours des abandons entre les différentes manches de l'épreuve, on ne pas être certain non plus que l'ordre de départ sera toujours 1,2,3,4,5,6,etc, il pourrait être 1,2,4,6,8,9, etc...
Donc afin de remédier à ça, j'ai créé une colonne supplémentaire que j’ai appellé N° de kart, et j'ai renommé la colonne A en "ordre de départ".
Il y aura eu une petite gymnastique visuelle (rechercher le N° puis glisser horizontalement vers la colonne A avant de la sélectionner) mais pas trop grave puisque pour inscrire l'horaire, il faut cliquer sur la barre d'espace.

Dernier petit détail, est il possible de mettre une petite sécurité avant l'effacement des temps, genre "êtes vous sûr de vouloir effacer les temps" avec un "oui" et un "non"???

 

[Dranreb]

Non mon idée ce n'était pas d'attribuer un N° de kart après le départ. Bon, le dispositif réagit comme ça quand il n'y a pas de numéro, c'est tout, mais ce n'est pas pour qu'on le laisse vide avant le départ. l'idée c'était que ça se fasse notamment en renseignant le nom.
On peut toujours demander la fermeture d'UFmChrono en cas de besoin et taper quelque chose d'autre dans la colonne A, le dispositif ne réagit que si cette colonne est vide.
On doit pouvoir classer aussi en sélectionnant le titre de cette nouvelle colonne du vrai N° de Kart si ça arrange.
Oui, ça s'écrit comme ça :

If MsgBox("Êtes vous sûr de vouloir effacer les temps ?", _
   vbYesNo + vbExclamation, "RàZTemps") = vbNo Then Exit Sub

 

[mada16]

salut Dranreb,

OK c'est tout bon, ça fonctionne!!!!
Pour la petite sécu avant effacement des temps, je l'ai inclus dans le code, mais ça m'efface systématiquement les temps, que je réponde oui ou non...
Je dirais même que ça les efface avant même de répondre....

 

[Dranreb]

Il faut bien évidemment mettre l'instruction avant d'effacer, pas après, ça va de soit, non ?
Comment vous avez écrit ça ?

 

[mada16]

Je l'ai écrit comme ça...

Sub RAZTEMPS()
'
' RAZTEMPS Macro
' remise à zéro des horaires de départ et d'arrivée
'
Dim LO As ListObject
Set LO = ActiveSheet.ListObjects(1)
LO.ListColumns("Heure départ").DataBodyRange.ClearContents
LO.ListColumns("Heure arrivée").DataBodyRange.ClearContents
If MsgBox("Êtes vous sûr de vouloir effacer les temps ?", _
vbYesNo + vbExclamation, "RàZTemps") = vbNo Then Exit Sub
End Sub

 

[mada16]

ça y est j'ai compris....où il fallait le placer

C'est bon maintenant