Mediane d'une série

Bonjour,

J'ai vu qu'il y avait déjà des demandes sur comment calculer une mediane, mais j'ai pas réussi à trouver quelque chose de similaire à mon fichier. J'ai utilisé la fonction "MEDIANE" mais ça me donne n'importe quoi...

Merci pour votre aide.

Najwa

Bonjour,

Avec une fonction personnalisée :

Function MEDIANCLASS(vCl As Range, nbCl As Range)
    Dim va, vb, ma&, mb&, S&, i%
    Application.Volatile
    If vCl.Cells.Count <> nbCl.Cells.Count Then
        MEDIANCLASS = CVErr(xlErrNum): Exit Function
    End If
    S = WorksheetFunction.Sum(nbCl)
    ma = S \ 2 + (S Mod 2)
    mb = (S + 1) \ 2 + ((S + 1) Mod 2)
    S = 0
    With nbCl
        For i = 1 To .Cells.Count
            S = S + .Cells(i)
            If S >= ma Then va = IIf(va = 0, vCl.Cells(i), va)
            If S >= mb Then vb = vCl.Cells(i): Exit For
        Next i
    End With
    MEDIANCLASS = (va + vb) / 2
End Function

Voir utilisation dans le classeur.

Cordialement.

Merci, c'est super !

Bonne journée.