If function does not respect condition?

[Noon]

Dear all,

I am having an issue with an if function which does not seem to respect the condition. The issue comes up in the part commented "Creating the function of the variation of Tinf for january". With some specific input values, the parameter "h" at the end of all t loops is 22.5 (the output in the excel sheet confirms it). However, the output for Tinf is not what expected: it considers the condition "If (0<h<=5)" and not " ElseIf (13 < h <= 23)".

Also, one other minor issue (not the priority):
-when there is no Chart in the sheet, the

Please Login or Register  to view this content.

line gives me an error. Should I insert some "if" function with a condition requiring the existence of a chart?

Anyway, the first issue is my main one. Here is the code:

Please Login or Register  to view this content.

Thanks a lot for any help!

[Pauleyb]

Problem #1:
You can't have an 'a<b<c' construct in vba. It needs to be 'a<b and b<c'.

Problem #2:
check if activesheet.chartobjects.count is > 0 before you try to delete.

[Noon]

Thank you very much!