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 : 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 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
Partager