A voir également:
- Ecart-type
- Clear type - Guide
- Type de ram - Guide
- Incompatibilité de type vba ✓ - Forum Excel
- Comment changer le type de fichier - Guide
- Ajouter écart type graphique excel ✓ - Forum Excel
2 réponses
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
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