Ecart-type

Bonjour

Un exemple avec détails
https://www.cjoint.com/c/HEDo7MN645B

Cdlmnt

Bonjour,

Voici la fonction. Vous pouvez la tester avec une petite série de données pour voir son fonctionnement.

Si vous ajoutez "ech" dans la cellule comme : =(A1:A1000;"ech"), ce sera l'écart-type de l'échantillon (n-1) qui sera calculé.

Public Function Ecart_typePOP_exclu0(ByRef r As Range, Optional typeSigma As String)
Dim i, j As Integer
Dim temp As Double

'calcul de la moyenne
For i = 1 To r.Count
If r(i).Value <> 0 And r(i).Value <> "" Then
temp = temp + r(i).Value
j = j + 1
End If
Next i
moyenne = temp / j

'Calcul des résidus
temp = 0
For i = 1 To r.Count
If r(i).Value <> 0 And r(i).Value <> "" Then
temp = temp + (moyenne - r(i).Value) ^ 2
End If
Next i

'Formalisation de l'écart-type
If typeSigma = "ech" Then j = j - 1
temp = Sqr(temp / j)

Ecart_typePOP_exclu0 = temp
End Function

Bonne journée