Bonjour,
Voilà ça fait 2 jours que je suis bloqué face à une erreur en VBA sous excel que je vois pas. Je cherche à déterminer une valeur de lambda qui est juste le nom de la valeur à partir de donné dans mon tableau excel. Le i est le numero de ligne. J'ai l'erreur 9 sur le premier lambda1(i) le i est mis a 3 donc normalement c bon mais je pige pas. J'ai appliquer le mm genre de relation sans de "do while until" qui fonctionne tous correctement je sais pas où est le problème. Merci d'avance
Dim lambda1() As Single
Dim lambda2() As Single
'détermination du lambda
For i = 3 To 7
lambda1(i) = 0.025
Do
lambda2(i) = (Abs(2 * (Log((Cells(i, 1) / (3.7 * Cells(i, 4) / 1000)) + (2.52 / (Cells(i, 8) * (lambda1(i) ^ 0.5)))) / Log(10#)))) ^ -2
lambda1(i) = lambda2(i)
Loop Until Abs(lambda1(i) - lambda2(i)) < 10 ^ -8
Next i
For i = 3 To 7
Cells(i, 8) = lambda2(i)
Next i
Voilà ça fait 2 jours que je suis bloqué face à une erreur en VBA sous excel que je vois pas. Je cherche à déterminer une valeur de lambda qui est juste le nom de la valeur à partir de donné dans mon tableau excel. Le i est le numero de ligne. J'ai l'erreur 9 sur le premier lambda1(i) le i est mis a 3 donc normalement c bon mais je pige pas. J'ai appliquer le mm genre de relation sans de "do while until" qui fonctionne tous correctement je sais pas où est le problème. Merci d'avance
Dim lambda1() As Single
Dim lambda2() As Single
'détermination du lambda
For i = 3 To 7
lambda1(i) = 0.025
Do
lambda2(i) = (Abs(2 * (Log((Cells(i, 1) / (3.7 * Cells(i, 4) / 1000)) + (2.52 / (Cells(i, 8) * (lambda1(i) ^ 0.5)))) / Log(10#)))) ^ -2
lambda1(i) = lambda2(i)
Loop Until Abs(lambda1(i) - lambda2(i)) < 10 ^ -8
Next i
For i = 3 To 7
Cells(i, 8) = lambda2(i)
Next i