Formule avec Récupération de données d'une autre feuille

Bonjour,

Croyez-vous possible de trouver une formule sur la feuille "STATS" qui récupèrerait les données de la feuille 1 afin de compléter le tableau ci-dessous ?

Ce tableau avait été conçu pour un autre événement sportif qui comprenait des établissements d'où des erreurs de compilation dans le code VBA sur les modules "3" et "Blad3 (STATS)".

J'ai été tenté de les supprimer complètement mais sans certitude de provoquer des erreurs en cascade ;-)))))

Et aussi, je voulais mettre ces 2 modules en pause pour éviter ces erreurs mais je ne savais pas comment faire malgré des recherches sur internet :-(((((((

Exemples :

- à la pétanque sur le "5 ateliers", chez les hommes, c'est SAID Mohamed qui finit 1er.

- Sur le cumul de toutes les épreuves, chez les hommes, c'est DURAND Mohammed qui finit premier avec 249,6 points sur 6 épreuves.

etc, etc...

Pas trop compliquée la formule pour l'appliquer à tout le tableau ?

Et je rappelle que tous les noms de famille sont une pure invention afin de préserver le droit de réserve pour l'anonymat des candidats...

En tout cas merci beaucoup d'avoir été intéressé par ce sujet :-))))))))))))))))))

Bon dimanche :-)))

re,

c'était pour faire un podium pour les établissements, mais apparament ils sont supprimés ?

Sinon, on a le classements général dans les colonnes AL:AO.

Bonjour BsAlv :-)))))

Oui, oui, ils n'apparaissent plus, les établissements, puisqu'il s'agit dans ce cas présent, d'un autre événement qui se passe dans un seul établissement ;-)))))))))))))))

Merci :-)))))))))))

à +

Bonjour, boujour Bart' :-))))))))))))))))))))))))))))))))))

Toujours aussi fort ==> C'est parfait, merci beaucoup :-))))))))))))

J'ai même réussi en m'appuyant sur tes formules, à rajouter le nombre d'essais et le nombre de points avec les coeffs ;-)))))

Juste, crois-tu possible de remettre le bouton pdf en fonctionnement :

Dans le module 3, le code que tu m'avais écrit pour l'autre événement n'est surement pas suffisant en l'état :

Sub M_PDF_Stats()
     MsgBox "désactivé"
Exit Sub
     Dim FileN$, Maintenant, AppShell

     Maintenant = Format(Now, "yyyymmdd_hhmmss")
     s = Dossier                             'fonction pour déterminer le nom du dossier pour sauvegarder le pdf
     If vbNo = MsgBox("le pdf sera sauvegardé dans le dossier : " & vbLf & s & vbLf & vbLf & "si vous voulez un autre dossier choississez ""Non""", vbYesNo, "Nom du dossier") Then
          s = ChoisirDossier
     End If

     If s = "" Then MsgBox "dossier inconnu": Exit Sub
     FileN = s & "\@_" & Maintenant & ".pdf"     'chemin pour BsAlv

     With Range("Stats_Entete")
          Lignes = .Cells(0, 2).Value2       'nombre d'établissements uniques
          Set c = .Offset(-1).Resize(Lignes + 2)     'plage à exporter ver le pdf

          Application.PrintCommunication = False
          With .Parent.PageSetup
               .PrintArea = c.Address
               .LeftMargin = Application.CentimetersToPoints(1)
               .RightMargin = Application.CentimetersToPoints(1)
               .TopMargin = Application.CentimetersToPoints(1)
               .BottomMargin = Application.CentimetersToPoints(1)
               .HeaderMargin = Application.InchesToPoints(0)
               .FooterMargin = Application.InchesToPoints(0)
               '.Orientation = xlPortrait on ne choisit plus l'orientation
               .CenterHorizontally = True

               .Zoom = False

               .FitToPagesTall = 0
               .FitToPagesWide = 1

          End With
          FileN = Replace(Replace(FileN, "@", "Stats"), "Maintenant", Format(Now, "yymmdd_hhmmss"))
          c.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileN, OpenAfterPublish:=True
     End With
     Shell_LaunchWindowsExplorer Left(FileN, InStrRev(FileN, "\") - 1)
End Sub

J'ai changé bcp de choses du dernier fichier Excel ==>

Merci bcp pour tout le temps que tu as encore pris pour moi :-)))))))))))))

Bonne après-midi :-))))))))))

à bientôt :-))))))))))))

re,

Merci, merci, merci....

C'est parfait :-))))))))))))))))))))))))))))))))))

Tu es o top ;-)))))

à bientôt :-)))))))))))))))