Afficher 4 Scores avec Meilleurs pourcentage

Bonjour,

Je me heurte à un problème.

J'aimerai (via une macro) récupérer les 4 Scores Exacts (SE) possibles, c'est à dire avec les meilleurs pourcentages.

Je prends un exemple en image (je ne peux envoyer de fichier )

J'aimerai qu'une macro m'affiche les 4 SE ayant 8%, donc 0-2 ; 0-3 ; 1-2 ; 1-3 (en bleu match à domicile; en orange match à l'extérieur)

Un seul SE il n'y a pas de problème mais 4 je n'arrive pas.

Pouvez vous m'aider ?

Merci d'avance !

Bonjour,

je ne comprend pas pourquoi tu ne peux pas nous mettre le fichier excel qui correspond à ta photo. (trop de travail peut-être ?)

une solution via une fonction personnalisée

Function mse(r, Optional param = 0)
    Dim ts()
    tableau = r
    alb = IIf(LBound(tableau) = 0, 1, 0)
    For i = LBound(tableau) + 1 To UBound(tableau)
        For j = LBound(tableau) + 1 To UBound(tableau)
            If tableau(i, j) <> "" Then
                k = k + 1
                ReDim Preserve ts(1 To k)
                ts(k) = Format(tableau(i, j), "00.00") & "|" & tableau(i, 1) & " - " & tableau(j, 1)
            End If
        Next j
    Next i
    For i = 1 To k - 1
        For j = i + 1 To k
            If ts(i) < ts(j) Then a = ts(i): ts(i) = ts(j): ts(j) = a
        Next j
    Next i
    rep = ""
    i = 1
    Do
        q = Split(ts(i), "|")
        If i = 1 Then qref = q(0)
        If param = 0 And q(0) <> qref Then Exit Do
        rep = rep & q(1) & ", "
        i = i + 1
        If i > param And param <> 0 Then Exit Do
    Loop
    mse = Left(rep, Len(rep) - 2)
End Function

appel de la fonction

=mse(tableau, param)

tableau = plage des valeurs y compris les scores

param = nombre de meilleurs scores à retourner, si 0 on retourne tous les scores ayant la même plus haute valeur

Merci beaucoup cela fonctionne parfaitement !

Je ne peux pas l'envoyer de mon boulot tout simplement

Bonjour H2SO4,

Je reviens vers toi par rapport à la macro que tu as fait. Elle fonctionne parfaitement, le seul problème c'est qu'elle m'inverse les SE.

Je m'explique :

Hier pour un match, elle me donnait les SE suivants : 1-0 ou 2-0 ou 1-1 ou 2-1. Dans la logique, l'équipe extérieure est favorite donc les SE auraient dû être 0-1 ou 0-2 ou 1-1 ou 1-2.

J'ai essayé de comprendre le code que tu as fais pour changer ça moi-même mais je n'ai pas tout compris ..

Peux tu m'aider ?

Cordialement

bonjour,

remplace cette instruction

 ts(k) = Format(tableau(i, j), "00.00") & "|" & tableau(i, 1) & " - " & tableau(j, 1)

par celle-ci

 ts(k) = Format(tableau(i, j), "00.00") & "|" & tableau(1, j) & " - " & tableau(i, 1)

Ah super ! Merci tu gères !