Bonjour,
En français, la fonction Skew se nomme COEFFICIENT.ASYMETRIE. Elle calcule le coefficient d'asymétrie de Fisher d'une seule série de données numériques provenant d'un échantillon. Elle est donc biaisée pour estimer celui de la population. Si par contre, tes données proviennent d'une population avec chacune de leur effectif, je crois bien que tu doives construire un tableau pour obtenir le Fisher de ladite population ou, plus simplement, utiliser une fonction personnalisée :
Function caf(x As Range, n As Range) As Double
'x: Les valeurs numériques. Une plage
'contenant une seule ligne ou une seule colonne.
'n: Les effectifs. Une plage
'contenant une seule ligne ou une seule colonne.
Dim v As Range
Dim i As Integer
Dim t1 As Double, t2 As Double
Dim t3 As Double, t4 As Double
Dim moy As Double, et As Double
For Each v In x
i = i + 1
t1 = t1 + n(i)
t2 = t2 + x(i) * n(i)
Next v
'Moyenne (moy)
moy = t2 / t1
i = 0
For Each v In x
i = i + 1
t3 = t3 + n(i) * (x(i) - moy) ^ 2
t4 = t4 + n(i) * (x(i) - moy) ^ 3
Next v
'Écart-type (et)
et = Sqr(t3 / t1)
'Coefficient d'asymétrie de Fisher (caf)
caf = t4 / (t1 * et ^ 3)
End Function
Bonne soirée,
Serge
Oups!, dans la cellule E21 du fichier joint, c'est plutôt '=caf(A2:A15;B2:B15)