[VBA] Loi Normale

Bonjour à tous !

Petit problème avec mon code pour la loi normale...

Voici le code utilisé:

Code:

---

1 2 3 4 5 6 7 8

mu = fl.Range(cd, cf).Cells.Count / 2 sgm = mu / 2 nbc = 0 For Each c In fl.Range(cd, cf).Cells nbc = nbc + c.Count c.Offset(1, 0).FormulaR1C1 = "=R9C6*(NORMDIST(" & nbc & "," & mu & "," & sgm & ",TRUE)-NORMDIST(" & nbc - 1 & "," & mu & "," & sgm & ",TRUE))" c.Offset(1, 0).Value = c.Offset(1, 0).Value * c.Value / cd.Value Next c

---

Mon problème est que NORMDIST() ne supporte pas que mu ou sgm ne soit pas entier...

Que faire ?

Bonjour,

Etes-vous certain qu'il s'agisse d'un problème de nombre entier.

Ne serait-ce pas un problème de format car sur Excel cette formule fonctionne :

Code:

---

=LOI.NORMALE(42;40;1,5;VRAI)

---

Tout comme :

Code:

---

=B1*(LOI.NORMALE(42;40;1,5;VRAI)-LOI.NORMALE(30;25,1;0,8;VRAI))

---

Effectivement, lorsque je remplace :

Code:

---

c.Offset(1, 0).FormulaR1C1 = "=R9C6*(NORMDIST(" & nbc & "," & mu & "," & sgm & ",TRUE)-NORMDIST(" & nbc - 1 & "," & mu & "," & sgm & ",TRUE))"

---

par

Code:

---

c.Offset(1, 0).FormulaR1C1 = "=R9C6*(NORMDIST(" & nbc & ",5,2.5,TRUE)-NORMDIST(" & nbc - 1 & ",5,2.5,TRUE))"

---

le code fonctionne correctement...

le problème est que mu et sgm doivent être calculé...

Une solution ?

Vous pouvez donner les lignes de code où ces variables sont calculées ?

Dans vos modules vous avez mis "Option Explicit" et donc déclaré les variables ?

calcul des variables :

Code:

---

1 2	mu = fl.Range(cd, cf).Cells.Count / 2 sgm = mu / 2

---

le code est inscrit dans la sub commandbutton1_click
je n'ai pas "option explicit" mais mes variables sont déclarées en tant que single

Vous avez regardé la valeur des variables "mu" et "sgm" ?

Est-ce que le séparateur décimal n'apparaît pas en tant que "," et non "." ?

Bonjour JJ,

Effectivement le debug.print me donne (par exemple) 2,5 et non 2.5 lorsque les valeurs sont calculées.

Problème résolu.

Le problème venait effectivement de la décimale...
J'ai donc remplacé la virgule par un point en utilisant la fonction Replace().

Merci beaucoup pour ton aide JJ !