=MOYENNE(DECALER($E$1;EQUIV(-1;$E:$E;-1)-1;0;-50))
=MOYENNE(DECALER($W$5;EQUIV(-1;$W5:$W300;-1)-1;0;-50))
=MOYENNE(DECALER(MaListe;LIGNES(MaListe)-EQUIV(50;SOUS.TOTAL(2;DECALER(DECALER(MaListe;LIGNES(MaListe)-LIGNE(INDIRECT("1:" & LIGNES(MaListe)));0;1;1);0;0;LIGNE(INDIRECT("1:" & LIGNES(MaListe)));1));0);0;EQUIV(50;SOUS.TOTAL(2;DECALER(DECALER(MaListe;LIGNES(MaListe)-LIGNE(INDIRECT("1:" & LIGNES(MaListe)));0;1;1);0;0;LIGNE(INDIRECT("1:" & LIGNES(MaListe)));1));0);1))
Public Function MoyN(Liste As Range, N As Long)
Dim T, i As Long, k As Long, s
MoyN = CVErr(xlErrNA)
T = Liste.Columns(1).Value
For i = UBound(T) To 1 Step -1
If T(i, 1) <> "" Then
If IsNumeric(T(i, 1)) Then
k = k + 1
s = s + T(i, 1)
If k = N Then
MoyN = s / N
Exit Function
End If
End If
End If
Next i
End Function
=MOYENNE(DECALER(plage;GRANDE.VALEUR(lig;50)-1;))
=MOYENNE(DECALER(plage;GRANDE.VALEUR(lig;50)-1;;LIGNES(plage)-GRANDE.VALEUR(lig;50)+1))