calcul dans une boucle

* Bonjour, *

dans mon programme je fais une boucle pour calculer des Lp(niveau de pression):

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 5 To 25 Alpha_béton = Worksheets("Feuil4")   Lwatot = Worksheets("Feuil3").Range("N" & i - 3) A = Alpha_béton * ((2 * CDbl(UserForm1.TextBox7.Value)   Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10)) J = J + 1 ThisWorkbook.Worksheets("Feuil3").Cells(J, 15).Value = Lp Next i

---

et je souhaiterai calculer directement dans ma boucle le Lp global en faisant ce calcul dans ma boucle :

Code:

---

Lp_global=10*log(10^(0.1*Lp1)+10^(0.1*Lp2)+...+10^(0.1*Lpn)

---

Lp1 Lp2...Lpn étant les 20 valeurs de Lp calculées dans ma boucle.

* Merci *

Au sein de la boucle

Code:

---

1 2 3 4 5

'... Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10)) LpTot = LpTot + 10 * Log(10 ^ (0.1 * Lp)) '....

---

ce n'est pas tout à fait ça car les Lp sont inclu dans le logarithme

Ah oui, je n'avais pas bien vu mais as tu compris le principe?

Code:

---

1 2 3 4 5 6 7 8

For i = 5 To 25 '.... Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10)) LpTot = LpTot + 10 ^ (0.1 * Lp) '.... Next i   LpGlobal = 10 * Log(LpTot)

---

Oui j'ai compris , merci! :-)