Gestion course d'orientation

 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

  • Votes
  • Date
  • Date décroissante
  1. 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


    1. Contributeur

      Parfait cela répond trés bien à la question.

      Merci pour votre aide.

      J'espère que le demandeur sera satisfait

      Merci encore

  2. 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


    1. 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
       


      1. Contributeur

        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


        1. 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


          1. Contributeur

            Je pense qu'il faudrait chercher le dossard en colonne B (exemple B15) double cliquer sur cette cellule et que cela vienne coller le temps en colonne F15 sur la même ligne. Cela serait plus simple

            Merci Le Pingou pour ton aide

        Discussions similaires

        Lettre P introuvable

        1 réponse