gestion course d'orientation

Question

bonjour ; pour avoir les résultats automatique dans une course d’orientation j’ai créer un classeur comprenant des feuille au nombre de 5,la 1er feuille qui est la base générale qui comprend : des cellule B9=”numéro dossard”,C9=”catégories”(U15 Men,U15 Women, U18 Women, U18 Men),D9=”nom/prénom, E9=”départ”,F9=”Arrivée(l’arrivée doit apparaitre après double clic en temps réel),G9:”temps réalisé”,H9=”nombre de balises”.

pour les autre feuilles elles doivent être respectivement comme suit U15 Men,U15 Women,U18 Women, U18 Men ,ces feuille doivent avoir les cellules suivantes: B9=”Numéro” dossard”,C9=”catégories,D9=”nom/prenom”,E9=”temp réalisé”, E9=”nombre de valise”,F9=”classement “'(classement doit se faire en calculant le plus grand nombre de balises et le minimum de temps),G9=”Podium”(comprend 1er,2em,3em) , au fur et a mesure que les information inscrites sue a feuille base générale il doivent apparaitre sue les feuilles des catégorie suivant chaque catégorie en filtrant les donnés propre a chacune , et les résultats pour chaque catégorie, merci pour votre aide.



merci
Windows / Chrome 144.0.0.0

danielc0 · Answer

Bonjour,

Peux-tu partager le classeur ? Clique sur :

https://www.swisstransfer.com/fr-fr

Clique sur "Cliquer pour ajouter vos fichiers". Vérifie que "Lien" est bien en vert, sinon, clique dessus. Clique sur "Transférer". Copie le lien affiché et colle-le dans ta réponse.

Daniel

PHILOU10120 · Answer

Bonjour

une idée dans le fichier

Voir si quelqu'un pourrait faire une petit macro pour entrer les heures d'arrivées

https://www.swisstransfer.com/d/785c89ea-7ad3-445a-b601-22eb51e9d618

Le Pingou · Answer

Bonjour,

Juste au passage un petit code pour l'introduire l'heure d'arrivée:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("F10:F50")) Is Nothing And Target.Value = "" Then
'MsgBox "Click on " & Target.Address
    Target = Format(Now, "hh:nn:ss")
    Exit Sub
End If
MsgBox "Attention,,. pas valable, soit une heure existe ou pas dans la plage $F10:F50$ "
End Sub

PHILOU10120 · Answer

Bonjour Le Pingou

Merci pour la macro

Pouvez-vous ajouter un copier coller de  l'heure "hh:mm:ss" pour la coller dans la cellule

Merci si cela est possible

Le Pingou · Answer

Bonjour PHILOU10120,

C'est possible mais je ne comprend pas la démarche  et dans quelle cellule?

Le fichier avec le code : https://www.swisstransfer.com/d/0436e70c-ac17-4735-8b53-1647ca52b569

Le Pingou · Answer

Bonsoir,

Alors oui double-clic sur N° dossard et inscription de l'heure dans colonne "Arrivée"

Le fichier : https://www.swisstransfer.com/d/90b95261-4907-42d3-8300-c9bc55b80f71

PHILOU10120 · Answer

Bonjour Dohaahbi

Voici le fichier en pensant que celui-ci reponde à votre besoin.

Avec l'aide de Le Pingou pour la macro commande en VBA

https://www.swisstransfer.com/d/9f00e8e0-f21a-4681-9cc4-74c51323cf0d

Le Pingou · Answer

Bonjour PHILOU10120 / Dohaahbi,

En contrôlant le fichier joint du poste 8 il se trouve que la macro n'est pas dans le bon module , elle est sous  Module1 ce qui est faux, doit être sur le module de la feuille (Base_Générale).

Voici le fichier correcte:  https://www.swisstransfer.com/d/f6e7cf97-c433-467b-867e-5c0b7e0cd2e1

PHILOU10120 · Answer

Bonjour Le Pingou , Dohaahbi

Voici le dernier jus avec de petites améliorations

https://www.swisstransfer.com/d/b02ae489-a97d-4f26-ab32-14d021c4df7b

Si vous voyez des problèmes me le signaler

Bonne soirée

Gestion course d'orientation

9 réponses

Discussions similaires

Newsletters