XL pour MAC Comptabiliser rapidement un nombre de tours pour 700 élèves

[BenEro]

Bonjour à tous, et encore plus à ceux qui vont m'aider... ,

Pour mon lycée, et pour permettre à mes élèves de se bouger quotidiennement, j'ai réalisé un doc qui permettait de comptabiliser le nombre de tours réalisés par les jeunes durant une semaine.
N'étant pas un expert, je me suis certainement compliqué la tâche, je vous explique.

En fonction de sa classe, l'élève clique sur sa classe sur la feuille "Accueil"
Puis en fonction de son nom, il double-cliquait sur sa ligne (colonne D à BA) pour incrémenter pour progressivement ses performances. Premier problème, quand un élève fait plus de 50 tours, bin il ne peut plus ajouter des tours à moins de rajouter des colonnes ce qui deviendrait vite illisible si un élève réalise 300-400 tours d'ici la fin de l'année scolaire. Le nombre de tours était alors résumé dans la colonne B
Serait-il possible de créer un bouton, une macro, je ne sais quoi pour permettre de comptabiliser les tours plus facilement... Exemple, cliquer ou double cliquer sur son nom directement (dans la colonne A pour rajouter des tours). Deuxième problème, le lycée compte 700 élèves et 40 classes, existerait-il une manip qui permettrait de pas y passer la journée ?

Je ne vous parle pas de l'onglet "Bilan" qui serait certainement à améliorer mais on verrait cela plus tard. J'avais réutilisé, grâce à un copain du forum, des formules qui permettaient dans chaque classe d'établir le trio de tête.

Je vous transmets donc le fichier légèrement raccourci mais imaginez qu'il faut compter 40 classes environ.

Un grand merci à tous ceux qui prendront le temps de me répondre et surtout de régler mon problème.

Pour info : nous avons placé une macro rendant impossible la fermeture du fichier pour éviter les mauvaises manipulations.

À bientôt

 

[BenEro]

L'autre avantages est qu'un dispose d'une "base de données" bien formattée, ce qui fait qu'ensuite c'est un jeu d'enfant de calculer toutes les stats ( par élève, par classe, par lycée ... )

Et justement je fais comment si je veux faire quelque stats ? J'utilise la fonction recherche c'est ça ?
- Distance totale parcourue par les élèves d'une même classe
- Distance parcourue en moyenne par les élèves ayant participé (on enlève ceux qui ont 0 tour)

Merci Sylvanu, c'est énorme et bien plus convivial comme tu le dis.
Merci beaucoup Phil pour ta contribution.

 

[BenEro]

Bonsoir @sylvanu,
J'ai essayé de supprimer la confirmation du tour mais je ne parviens pas à le faire car comme ce sont les élèves qui valident leur tour, cela risque d'être chronophage si plusieurs élèves se présentent en même temps.
J'ai aussi rajouté qq lignes dans la première page car certaines classes comptent jusqu'à 35-36 élèves.
Mais depuis, les macros ne fonctionnent plus.
Je poste à nouveau le fichier pour me montrer où j'ai merdé.
Un grand merci encore de consacrer du temps pour nous.

 

[sylvanu]

Une simple faute de frappe :

Range("D7:435") au lieu de Range("D7:D45")

 

[sylvanu]

Le même avec un début de stats.

 

[sylvanu]

J'ai essayé de supprimer la confirmation du tour mais je ne parviens pas à le faire car comme ce sont les élèves qui valident leur tour, cela risque d'être chronophage si plusieurs élèves se présentent en même temps.

Mettez les deux If et les deux EndIf en commentaires comme ci dessous :

    If NbTours = "" Then
        If MsgBox("Bonjour " & T(Ind, 1) & " , vous n' avez actuellement aucun tour." & Chr(10) & Chr(10) & _
                    "Voulez vous rajouter un tour ?", vbYesNo, "AJOUTER UN TOUR") = vbYes Then
            'If MsgBox("Confirmez vous l'ajout d'un tour ?", vbYesNo, "CONFIRMATION") = vbYes Then
                Sheets("Données").Cells(Ind + 1, "G") = Sheets("Données").Cells(Ind + 1, "G") + 1
                UpdateNbTour Nom
            'End If
            [A1].Select
        End If
    Else
        If MsgBox("Bonjour " & T(Ind, 1) & " , vous avez actuellement " & NbTours & " tour(s)." & Chr(10) & Chr(10) & _
                    "Voulez vous rajouter un tour ?", vbYesNo, "AJOUTER UN TOUR") = vbYes Then
            'If MsgBox("Confirmez vous l'ajout d'un tour ?", vbYesNo, "CONFIRMATION") = vbYes Then
                Sheets("Données").Cells(Ind + 1, "G") = Sheets("Données").Cells(Ind + 1, "G") + 1
                UpdateNbTour Nom
            'End If
            [A1].Select
        End If
    End If

Par contre le Ctrl Z ne marchera toujours pas. Donc pas de retour en arrière.

 

[BenEro]

Merci pour tout Sylvanu... j'aimerais tellement touché ma bille comme toi !
Combien d'années pour en arriver à ton niveau d'expertise ?