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.