Gestion course d'orientation
PHILOU10120 Messages postés 6463 Date d'inscription Statut Contributeur Dernière intervention -
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
9 réponses
-
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
-
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
-
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
-
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
-
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
-
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
-
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
-
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