XL 2016 casse tête

[DaONE]

Bonjour,
j'ai un casse tête pour vous.
Dans le fichier joint, comment dan chaque onglet correspondant faire en sorte que les athlètes soit ranger du premier au dernier et aussi mettre ceux qui sont ex-aequos??

MERCI DE VOTRE AIDE

 

[Modeste geedee]

Bonsour®

Bonjour,
j'ai un casse tête pour vous.
Dans le fichier joint, comment dan chaque onglet correspondant faire en sorte que les athlètes soit ranger du premier au dernier et aussi mettre ceux qui sont ex-aequos??

MERCI DE VOTRE AIDE

des calculs intermédiaires sont nécessaires soit dans la feuille base, soit dans chaque feuille classement

 

[JHA]

Bonjour à tous,

Un exemple à remettre dans les onglets

JHA

 

[mdo100]

Bonjour à toutes et tous,

Puisque j'ai travaillé sur le fichier, je poste ma proposition:

Cordialement.

 

[JHA]

Bonjour à tous,

Avec un possible classement général.

JHA

 

[patricktoulon]

Bonjour
A condition tes entêtes de nom de sport soient dans le même ordre que les sheets donc

Sub classement_by_sheets()
    Dim plage As Range, I&
    For I = 2 To Sheets.Count
        Set plage = Sheets("Base").Range("A4", Sheets("Base").Cells(Rows.Count, "A").End(xlUp))    'on recupere la colonne des nom "A"
        Set plage = Union(plage, plage.Offset(, I - 1))    'on récupère la colonne correspondant au sport(nom du sheets de destination)et on les uni(union)
        'Debug.Print plage.Address
        plage.Copy Destination:=Sheets(I).[A2]    'on  copy  les colonnes unies dans le sheets respectif
        With Sheets(I).Sort    ' et on tri du plus grand au plus petit
            .SetRange Sheets(I).Range("A1:B" & Sheets(I).Cells(Rows.Count, "A").End(xlUp).Row)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Next
End Sub

le casse tète il est ou ?

 

[DaONE]

Bonjour à tous,
Merci beaucoup pour votre aide, vous êtes trop fort!!!!
Apparemment le casse tête, n'était que pour moi

BRAVO