Bonjour,
Après avoir calculé la moyenne des températures par jour pour chaque jour de l'année, j'aimerais reporté les valeurs dans une autre colonne mais cette fois ci pour chaque heure.
Je m'explique, j'ai déjà calculé la température moyenne pour le 1/01 sur 24h. Maintenant j'aimerais reporter cette valeur pour les 24h du 1/01 et renouveller cette procédure pour l'ensemble des jours de l'année.
Option Explicit
Option Base 1
Sub Tmaxmin_jour()
Dim Derlig As Integer, Nbre_jours As Integer
Dim lig As Integer, Jour As Integer, T_jour, T_temp, T_out
Dim tab_temp(8760) As Variant
'initialisations
Application.ScreenUpdating = False
'nettoyage tableau résultats
Range("H3:L370").ClearContents
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
Nbre_jours = (Derlig - 1) / 24 ' prendre en compte année bissectiles
ReDim T_out(Nbre_jours, 5) 'champ2=jour, 1=mois 3:maxi,4: mini, 5 moyenne
'------Mémorisation des températures maxi/mini/moyenne par jour/mois
For lig = 2 To Derlig Step 24
Jour = Jour + 1
T_jour = Range(Cells(lig, "A"), Cells(lig, "B"))
T_temp = Range(Cells(lig, "D"), Cells(lig + 23, "D"))
T_out(Jour, 1) = T_jour(1, 1)
T_out(Jour, 2) = T_jour(1, 2)
T_out(Jour, 3) = Application.Max(T_temp)
T_out(Jour, 4) = Application.Min(T_temp)
T_out(Jour, 5) = Application.Average(T_temp)
tab_temp(Jour) = T_out(Jour, 5)
Next
'-----Restitutions des mesures
Range("H3").Resize(UBound(T_out), 5) = T_out
Range("O2").Resize(UBound(tab_temp)) = tab_temp
End Sub
Le problème est que j'ai seulement la première valeur (le 1/01) et cela pour l'ensemble des jours de l'année qui s'affiche dans ma nouvelle colonne.
En vous remerciant d'avance,