Bonjour chers tous
je voudrais une formule de calcul de la moyenne des trois dernières valeurs de ma plage
1- Mes données sont sur la meme ligne
2- Mes donnes sont dans la meme colonne
Merci et bonne journée à tous!!
Function Moyenne_3D(r As Range)
'r doit être une plage d'une ligne ou d'une colonne
Set r = Intersect(r, Application.Caller.Parent.UsedRange)
If r Is Nothing Then Moyenne_3D = "": Exit Function
Dim i&, n As Byte
For i = r.Count To 1 Step -1
If IsNumeric(CStr(r(i))) Then
n = n + 1
Moyenne_3D = Moyenne_3D + CDbl(r(i))
If n = 3 Then Exit For
End If
Next
If n Then Moyenne_3D = Moyenne_3D / n Else Moyenne_3D = ""
End Function
Function Moyenne_3D(r As Range)
'r doit être une plage d'une ligne ou d'une colonne
Set r = Intersect(r, Application.Caller.Parent.UsedRange)
If r Is Nothing Then Moyenne_3D = "": Exit Function
Dim i&, n As Byte
For i = r.Count To 1 Step -1
If IsNumeric(CStr(r(i))) Then
n = n + 1
Moyenne_3D = Moyenne_3D + CDbl(r(i))
If n = 3 Then Exit For
End If
Next
If n Then Moyenne_3D = Moyenne_3D / n Else Moyenne_3D = ""
End Function