Récupérer valeur dans un tableau avec boucle sous VBA

Récupérer valeur dans un tableau avec boucle sous VBA - VB/VBA/VBS - Programmation

Marsh Posté le 12-05-2015 à 16:49:22    

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.  

Code :
  1. Option Explicit
  2. Option Base 1
  4. Sub Tmaxmin_jour()
  5. Dim Derlig As Integer, Nbre_jours As Integer
  6. Dim lig As Integer, Jour As Integer, T_jour, T_temp, T_out
  7. Dim tab_temp(8760) As Variant
  9. 'initialisations
  11.     Application.ScreenUpdating = False
  12.     'nettoyage tableau résultats
  13.     Range("H3:L370" ).ClearContents
  14.     Derlig = Columns("A" ).Find("*", , , , , xlPrevious).Row
  15.     Nbre_jours = (Derlig - 1) / 24 ' prendre en compte année bissectiles
  16.     ReDim T_out(Nbre_jours, 5) 'champ2=jour, 1=mois 3:maxi,4: mini, 5 moyenne
  17.    
  18. '------Mémorisation des températures maxi/mini/moyenne par jour/mois
  19.     For lig = 2 To Derlig Step 24
  20.         Jour = Jour + 1
  21.         T_jour = Range(Cells(lig, "A" ), Cells(lig, "B" ))
  22.         T_temp = Range(Cells(lig, "D" ), Cells(lig + 23, "D" ))
  23.         T_out(Jour, 1) = T_jour(1, 1)
  24.         T_out(Jour, 2) = T_jour(1, 2)
  25.         T_out(Jour, 3) = Application.Max(T_temp)
  26.         T_out(Jour, 4) = Application.Min(T_temp)
  27.         T_out(Jour, 5) = Application.Average(T_temp)
  28.         tab_temp(Jour) = T_out(Jour, 5)
  29.        
  30.     Next
  31. '-----Restitutions des mesures
  32.     Range("H3" ).Resize(UBound(T_out), 5) = T_out
  33.     Range("O2" ).Resize(UBound(tab_temp)) = tab_temp
  34. 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,

Reply

Marsh Posté le 12-05-2015 à 16:49:22   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed