Ecart-type
Fermé
Aziz
-
29 mai 2018 à 12:34
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 29 mai 2018 à 17:00
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 29 mai 2018 à 17:00
A voir également:
- Ecart-type
- Clear type - Guide
- Changer le type de fichier - Guide
- Search or type web address ✓ - Forum Virus
- Type de ram - Guide
- Formule excel écart entre deux nombres - Forum Excel
2 réponses
rEVOLV3r
Messages postés
223
Date d'inscription
jeudi 12 août 2010
Statut
Membre
Dernière intervention
21 septembre 2022
28
29 mai 2018 à 16:18
29 mai 2018 à 16:18
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
ccm81
Messages postés
10900
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
2 novembre 2024
2 424
29 mai 2018 à 17:00
29 mai 2018 à 17:00
Bonjour
Un exemple avec détails
https://www.cjoint.com/c/HEDo7MN645B
Cdlmnt
Un exemple avec détails
https://www.cjoint.com/c/HEDo7MN645B
Cdlmnt