double Boucle For

Bonjour à tous et à toutes,

j'ai un petit soucis, j'utilise deux boucles For pour calculer mon Lwas(niveau de puissance sonore) car Lwas dépend de la fréquence f ( plage de fréquence), de Lwcorr qui dépend lui meme de Lws (de plus à chaque f correspond un Lws) donc ma double boucle For doit surement s'emmeler les pinceaux et du coup j'obtiens beaucoup trop de resultat , jusqu'a 443 cellules alors que ma plage de fréquence et donc de Lws est limitée à 20 cellules, rajouter à cela que les valeur de Lwas sont fausses. Merci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

For Each cellule In plageSource '<< A Ajuster à la plage ...   For Each cell In plagesource2 Lws = cell.Value f = cellule.Value   teta = teta0 + (Ms / (485 * Sqr(f))) Lcorr = Lws - (20 * (Log(epaisseur / 0.2) / Log(10))) Lwas = Lcorr - (10 * (Log(2 * pi * f * Ms * teta) / Log(10))) + 26 + (10 * (Log(sgma) / Log(10))) i = i + 1 Sheets(nomFeuilDest).Cells(i, 2).Value = Lcorr Sheets(nomFeuilDest).Cells(i, 10).Value = Lwas Next cell       Next cellule

---

C'est logique, tu auras en sortie N*M résultats (avec N nombre de cellules PlageSource et M celles de PlageSource2)

Si tu peux expliquer ce que les 2 boucles sont censées faire.

en fait j'ai une colonne de valeurs(20valeurs) de Lws et une colonne pour la fréquence à chaque fréquence correspond un Lws. de plus mon Lwas depends de Lws mais aussi de f et de sigma qui est une fonction de f. je voudrais calculer mes 20 valeurs de Lwas.

Lws        f          sgma      teta
15        50          1           1
28       100         2            etc...
33       200         2.5
41       300         3
52       600         etc...
64       800
78      1000
89      1500
...       ...

sachant que

Code:

---

Lwas=Lws-10*log(2*pi*f*teta)+10*log(sgma)

---

sgma=sigma est une fonction de f (plusieurs expression de sigma selon que f<fc ; f=fc et f>fc )que j'ai calculé avant avec succes. Et teta ne depend que de f, teta= 485/sqr(f)

Lws     f      sgma     teta
15     50       1         1
28     100     2        etc...
33     200     2.5
41     300      3
52     600     etc...
64     800
78     1000
89     1500

Une seule boucle te suffit, non?

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each Cellule In PlageSource '<< A Ajuster à la plage ... F = Cellule.Value Lws = Cellule.Offset(0, 1).Value Teta = Teta0 + (Ms / (485 * Sqr(F))) Lcorr = Lws - (20 * (Log(Epaisseur / 0.2) / Log(10))) Lwas = Lcorr - (10 * (Log(2 * Pi * F * Ms * Teta) / Log(10))) + 26 + (10 * (Log(sgma) / Log(10))) i = i + 1 Sheets(nomFeuilDest).Cells(i, 2).Value = Lcorr Sheets(nomFeuilDest).Cells(i, 10).Value = Lwas Next Cellule

---

quand vous ecrivez:

Code:

---

1 2	F = Cellule.Value Lws = Cellule.Offset(0, 1).Value

---

c'est pour dire que la colonne des Lws est juste à coté de F, C'est bien ça?
en fait mes valeur de Lws et f sont sur la meme feuille mais décalés
f= Range("Feuil1!B5:B25") et Lws = Range("Feuil1!F30:F50")

c'est bon j'ai réussi, il suffit de mettre

Code:

---

Lws = cellule.Offset(25, 4).Value

---

Merci pour l'astuce en effet une boucle suffit.:ccool:
Cordialment!

Il suffit de remplacer le 1 par le nombre de colonnes de décalage, dans ton cas 4 et le 0 par le nombre de lignes de décalage, don ton cas 25

Code:

---

1 2 3 4

For Each Cellule In Worksheets("Feuil1").Range("B5:B25") '<< A Ajuster à la plage ... F = Cellule.Value Lws = Cellule.Offset(25, 4).Value '....la suite

---

derniere petite question: comment faire si f et Lws n'était pas sur la même feuille?
Merci

Code:

---

1 2 3

For i = 5 To 25 '<< A Ajuster à la plage ... F = Worksheets("Feuil1").Range("B" & i) Lws = Worksheets("Feuil2").Range("F" & i + 29)

---

Merci! c'est vraiment super ce forum, de pouvoir trouver de l'aide et s'exercer en progressant, chapeau bas l'equipe du club des professionels de l'informatique!
Cordialement!