Discussion :

[mathilde13870]

Bonjour,

J'ai un problème avec ma boucle while.

Pour i = 0 elle semble fonctionné parfaitement, et j'obtiens les valeurs que je souhaite, mais quand elle passe à i + 1, certains calculs ne sont plus valables.

Notamment la ligne que j'ai souligné en rouge : à la place de faire la boucle if comme il faut et écrire dans D16 la valeur de D15, il réecrit la valeur de C15 dans la cellule D16, faussant les résultat de la boucle do

Est ce que ça provient de ma syntax; de la structure ? je n'y comprends plus grand chose, et comme c'est pour le boulot je commence un peu à craquer
Je vous joins le programme si besoin

merci d'avance !

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
30
Do
         
        'Calcul de VVH
        
        Range("C14").Offset(0, i).Formula = (((Range("C5").Offset(0, i).Value * Math.Exp(exp0 - (exp1 + cNt * Nt + cSDBTO * SDBTO * S0 / 100) / (Temp + 273.15))) * H2HCnew ^ c3_H2HC * ppH2 ^ c1_ppH2) / Math.Log(SDBTO * S0 / 100 / 9)) ^ (1 / c2_VVH)
 
        'Calcul du débit moyen
        Range("C15").Offset(0, i).Formula = Range("C14").Offset(0, i).Value * 180.5 * 0.83
 
        'Calcul du débit max
        If Range("C15").Offset(0, i).Value > 300 Then
            Range("C16").Offset(0, i).Formula = 300
        Else
            Range("C16").Offset(0, i).Formula = Range("C15").Value        
End If
 
        'Calcul H2/HC calculé
         If Range("C16").Offset(0, i).Value < 300 Then
            Range("C18").Offset(0, i).Formula = 4070000 * Range("C16").Value ^ (-1.912)
        Else
            Range("C18").Formula = 74.7
        End If
        


        
        H2HCnew = H2HCnew + 0.01
        Range("C12").Offset(0, i).Formula = H2HCnew
        
    Loop Until (Range("C18").Offset(0, i).Value - H2HCnew >= -0.01) And (Range("C18").Offset(0, i).Value - H2HCnew <= 0.01)