'
PMV Macro
'
'
Sub PMV()
CLO = Worksheets("Méthode de calcul PMV-PPD").Range("H" & 22)
TA = Worksheets("Méthode de calcul PMV-PPD").Range("J" & 22)
TR = Worksheets("Méthode de calcul PMV-PPD").Range("K" & 22)
MET = Worksheets("Méthode de calcul PMV-PPD").Range("I" & 22)
VEL = Worksheets("Méthode de calcul PMV-PPD").Range("L" & 22)
RH = Worksheets("Méthode de calcul PMV-PPD").Range("P" & 22)
FNPS = Exp(16.6536 - 4030.183 / (TA + 235))
PA = RH * 10 * FNPS
ICL = 0.155 * CLO
M = MET * 58.15
......
PMVval = TS * (M - HL1 - HL2 - HL3 - HL4 - HL5 - HL6)
PPDval = 100 - 95 * Exp(-0.03353 * PMVval ^ 4 - 0.2179 * PMVval ^ 2)
Sheets("Méthode de calcul PMV-PPD").Range("U" & i) = TPO
Sheets("Méthode de calcul PMV-PPD").Range("Q" & i) = PMVval
Sheets("Méthode de calcul PMV-PPD").Range("T" & i) = N
End Sub