CALCUL ENTHALPIQUE DE L'AIR HUMIDE

Private Sub CommandButton1_Click()
'Calcul de l'enthalpie de l'air
CalculAir
End Sub

Private Sub CommandButton2_Click()
    Sheets(2).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

Function CalculAir()
Dim A As Double, B As Double, C As Double, D As Double
Dim E As Double, F As Double, G As Double
Dim H As Double, I As Double, J As Double, K As Double
Dim L As Double, M As Double, N As Double
Dim Q As Double, R1 As Double, R2 As Double, R3 As Double
Dim R4 As Double
'-----------------------------------------------------
A = 0: B = 0: C = 0: D = 0
E = 0.622
F = 1.005
G = 1.927
H = 2486
I = 17.08085
J = 234.17
K = 6.1078
L = 0.00066
M = 1013.246
N = 0
A = ActiveSheet.Range("thum").Value
B = K * Exp((A * I) / (A + J))
C = B
D = A
A = ActiveSheet.Range("tsech").Value
If D > A Then
    MsgBox ("La Température Humide doit être Inférieure à la Température sèche : à revoir !")
    ActiveSheet.Range("Thum").Select
    ActiveSheet.Range("Thum") = ActiveSheet.Range("Tsech")
    Exit Function
End If
B = K * Exp((A * I) / (A + J))
C = (D - A) * (M * L) + C
Q = C / B * 100
R1 = Int(Q * 100) / 100
If R1 < 0 Then R1 = 0
ActiveSheet.Range("Hrel").Value = R1
'-----------------------------------
    D = Log(Abs(C / K))
    Q = D * J / (I - D)
    R2 = Int(Q * 100) / 100
    ActiveSheet.Range("Pr").Value = R2
'-----------------------------------
Q = E * C / (M - C) * 1000
R3 = Int(Q * 100) / 100
If R3 < 0 Then R3 = 0
ActiveSheet.Range("Meau").Value = R3
'-----------------------------------
N = Q / 1000
Q = (F * A) + (G * A * N) + (H * N)
R4 = Int(Q * 100) / 100
ActiveSheet.Range("Enthalp").Value = R4
End Function

Télécharger le zip