Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1789 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2257962
foudupied
Posté le 12-05-2015 à 16:49:22  profilanswer
 

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

mood
Publicité
Posté le 12-05-2015 à 16:49:22  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Comment mettre une valeur intermédiaire en hexa ?[BAT] Comment forcer l'exécution au sein d'une boucle ?
VBA erreur dépassement de capacité bizarretableau et matrice
[résolu] Problème de récupération d'une valeur en BDDCharger fichier txt dans tableau
Lire une variable contenu dans un fichier durant une boucle ?Condition sur une boucle for
Récupérer une valeur numérique pour un ping 
Plus de sujets relatifs à : Récupérer valeur dans un tableau avec boucle sous VBA


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR