Discussion :

[leyeno]

Bonjour,

Je veut calculer l'écart type de ma plage F2 à F37 donc j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("L2").Value = Application.WorksheetFunction.StDev(Worksheets("Feuil1").Range("F2:F37")

Pour vérifier le résultat de la macro, sous excel, j'utilise la formule suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ECARTYPE(F2:F37)

Mais là, à ma surprise, avec ma macro je trouve un resultat de 0.7313 et avec la formulle excel 0.7416

Pourquoi??

Quelqu'un peut m'expliquer?

Merci

[Krovax]

Tu as bien mis le code telque que tu nous l'as donné
Tes données sont bien Feuil1.
Parce que j'ai fait quelque test je n'ai aucun problème. Je vais essaye d'en refaire quelques un

Edit sur 37 valeur entre 0 et 100 générer de manière aléatoire je n'ai aucun souci. Comme l'a dit alex peut du coté du nombre de chiffre après la virgule

[aalex_38]

as-tu un grand nombre de chiffres après la virgule ?

Le format des cellules est-il standard ?

J'ai fait quelques test et n'ai pas trouvé de problèmes similaires pour l'instant.

[leyeno]

Cela ne vient pas de mes virgules, car le résultat est pas du tout le monde donc pas un problème d'arondi

[aalex_38]

car le résultat est pas du tout le monde

Une traduction ?

et si tu nous donnais dans ce forum, les valeurs de ta plage, on pourrait vérifier ce que l'on obtient et comparer.

Ou bien ton code en entier sur la partie, n'existe-t-il pas une petite coquille ?
Si si ça arrive, même aux meilleurs il parait ?

[leyeno]

EN faite le problème vient d'ailleur. jE NE peut pas mettre mon fichier car trop gros. Je l'envoie comment?
Je voudrais faire l'écart type de la colonne F UNIQUEMENT pour les valeurs qui sont a la position 115 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub test()
 
Dim effectif As Integer
Dim aa As Integer
Dim ee As Integer
Dim boucle As Integer
 
Sheets("Feuil3").Select
 
Message0bis = InputBox("Entrez le nombre de moule:", "Moule", "Nbre moule")
Message0 = InputBox("Entrez le nombre d'échantillon :", "Echantillon", "Nbre echantillon")
Message1 = InputBox("Entrez la position A :", "position", "position A")
Message2 = InputBox("Entrez la position B :", "position", "position B") 'demande postion
Message3 = InputBox("Entrez la position C :", "position", "position C")
Message4 = InputBox("Entrez la position D :", "position", "position D")
 
 
effectif = Message0bis * Message0 * 36
 
 
aa = 0
ee = 0
boucle = Message0bis * Message0 - 1
For aa = 0 To boucle * 148 Step 148
Range("L2").Value = Application.WorksheetFunction.StDev(Worksheets("Feuil1").Range("F2:F37").Offset(aa))
Range("L3").Value = Range("L3").Value + Range("L2").Value
ee = ee + 1
Next aa
Range("L4").Value = (Range("L3").Value) / ee
Range("L4").Select
Selection.Copy
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("L2:L4").Clear
 
End Sub

Le problème est le suivant :
je commence a calculé l'ecart type de mon premier echantillon de mon premier moule(2) a la position 115
ensuite je fai de meme pour le deuxième echantillon de mon premier moule a la position 115.
AInsi de suite jusqu a la fin et je termine par faire la moyenne de tout ces ecart type.
Le problème c'est que je veut moi l'ecart type sur l'ensemble des données pour tout les moules pr chaque echantillon a la position 115 et NON (comme je fai actuellement) une moyenne d'ecart type

vous comprenez??