Tri et somme sur plusieurs colonnes

Bonjour

problème très simple sûrement mais que je n'arrive pas à résoudre.

Dans les colonnes A,C et E j'ai un classement numérique de photo (le n° correspond à une photo anonymisée). La photo classée en 1 à 5 points, en 2=4 points etc...Donc on peut retrouver plusieurs fois un même n° de photo dans plusieurs colonnes avec des scores différents.

Je voudrais obtenir sur 2 colonnes le résultat final. Colonne A le n° de toutes les photos, colonne B le total des points recueillis et bien entendu en A1-B1 le meilleur score puis dégressif, peu importe le nombre de points (il peut y avoir des ex æquo en points)

Ds cet exemple A1= 147 - B1=10 / A2= 312 - B2= 7 / A3=125 - B3=5 etc...(sauf erreur de ma part ) et je devrais avoir 11 lignes puisque 11 nombres différents.

Ma feuille de calcul : 4 colonnes de n° de photo (correspondant à 4 juges différents) et ce sur 40 lignes.

Merci beaucoup pour votre aide

Bonjour et bienvenue,

Merci de joindre un fichier pour une aide adaptée du forum.

Cdlt.

Merci d'avance

Cdlt

bonjour

un essai de classement ;pour le reste ,j'ai rien compris

cordialement

Bonjour le forum,

Bonjour jlp2219

Essaie ceci :

Option Explicit
Sub tri()
    Dim a, w(), i As Long, j As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    With Sheets("Feuil1").Cells(1).CurrentRegion
        a = .Value
        For i = 1 To UBound(a, 1)
            For j = 1 To UBound(a, 2) Step 2
                If Not dico.exists(a(i, j)) Then
                    dico(a(i, j)) = VBA.Array(a(i, j), a(i, j + 1))
                Else
                    w = dico(a(i, j))
                    w(1) = w(1) + a(i, j + 1)
                    dico(a(i, j)) = w
                End If
            Next
        Next
        With .Offset(, .Columns.Count + 1).Resize(dico.Count, 2)
            .Value = Application.Index(dico.items, 0, 0)
            .Sort key1:=.Cells(1, 2), order1:=xlDescending, Header:=xlNo
        End With
    End With
End Sub

klin89

Voici un fichier qui devrait coller à ta demande

Bonjour à vous

Un grand merci à tous ceux qui ont répondu à ma sollicitation.

Merci à Tulipe_4, j'ai essayé de transposer à mon cas mais je n'ai pas réussi même si j'ai plus ou moins compris la manœuvre.

Merci à Klin89 mais je n'ai pas eu le temps d'essayer la macro car celle de Toukoul marche parfaitement

Grand merci à Toukoul, ta macro VBA, ou du moins supposée comme telle de ma part, marche à merveille, même avec des lignes en moins ou en plus et même si un juge est absent (désolé mais j'ai essayé plusieurs cas de figure qui pouvaient se produire).

Encore grand merci à vous tous

Je mets en résolu.

Cdlt

PS je dois être un peu neuneu quelque part, je n'ai trouvé que la pancarte pas le bouton pour marquer résolu donc Mr l'administrateur si tu peux le faire pour moi Merciiiiiiiiiiii