Bonjour,

J'ai un problème avec ma boucle While. Je suis obligée d'arreter le programme en appuyant sur echap.

Le but de cette boucle est de recalculer B14, B15 et B16 jusqu'à ce que H2HCnew et B18 aient la même valeur

Les variables ont l'air connu du programme, donc je pense que c'est une erreur de syntax peut être.

Voila, si quelqu'un peut m'aider je lui serai extrêmement reconnaissante, je craque un peu !

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
20
21
22
23
24
25
26
27
28
29
Range("B18").Formula = 1
H2HCnew = 40
 
Do While H2HCnew <> Range("B18").Value
 
Range("B14").Formula = (((K * Math.Exp(exp0 - (exp1 + cNt * Nt + cSDBTO * SDBTO) / (Temp + 273.15))) * H2HCnew ^ c3_H2HC * ppH2 ^ c1_ppH2) / Math.Log(SDBTO * S0 / 100 / 9)) ^ (1 / c2_VVH)
 
'Calcul du débit moyen
Range("B15").Formula = Range("B14").Value * 180.5 * 0.83
 
'Calcul du débit max
If Range("B15").Value > 300 Then
   Range("B16").Formula = 300
Else
   Range("B16").Formula = Range("B15").Value
End If
 
'Calcul H2/HC calculé
 
If Range("B16").Value < 300 Then
    Range("B18").Formula = 4070000 * Range("B16").Value ^ (-1.912)
Else
    Range("B18").Formula = 74.7
End If
 
H2HCnew = Range("B18").Value
Range("B12").Formula = H2HCnew
 
Loop