Boucle for

Boucle for - VB/VBA/VBS - Programmation

Marsh Posté le 13-07-2006 à 14:54:46    

Bonjour,  
 
Ca fait pas très longtemps que je me suis attaqué au VBA (pour le boulot en fait) et j'ai besoin de faire une boucle imbriquée pour une feuille de calcul Excel.  
 
For i=1 to 31  
   For j=1 to 24  
      Feuil6.Cells(j,1)=Feuil5.Cells(16,3) + Feuil5.Cells(4+i,6) - 1 + (j/24)  
   Next j  
Next i  
 
Logiquement je devrais avoir 744 lignes dans ma feuille mais il ne me prend que la derniere valeur calculée dans la boucle j et la rebalance dans la boucle i, donc je me retrouve avec 31 lignes...et je vois pas du tout ou est le problème.  
 
J'ai l'impression que mes premieres valeurs sont écrasées et je ne sais pas comment faire pour les avoir les unes a la suites des autres...
 
J'espere que vous pourrez m'aider, bonne journée a tous...

Reply

Marsh Posté le 13-07-2006 à 14:54:46   

Reply

Marsh Posté le 13-07-2006 à 15:02:46    

ta cible est cells(j,1)

Reply

Marsh Posté le 13-07-2006 à 15:03:57    

le résultat du calcul est mis dans cells(j,1) donc il se fout du i.
Si tu veux 744 lignes met le résultat dans
cells(k,1) avec k=0 avant le premier for et k=k+1 dans la boucle j
En clair ca donne ca :
k=1
For i=1 to 31
 for j=1 to 24
  Feuil6.cells(k,1)=Feuil5.Cells(16,3) + Feuil5.Cells(4+i,6) - 1 + (j/24)
  k=k+1
 next j
next i
 

Reply

Marsh Posté le 13-07-2006 à 15:10:09    

Paul Hood a écrit :

le résultat du calcul est mis dans cells(j,1) donc il se fout du i.
Si tu veux 744 lignes met le résultat dans
cells(k,1) avec k=0 avant le premier for et k=k+1 dans la boucle j
En clair ca donne ca :
k=1
For i=1 to 31
 for j=1 to 24
  Feuil6.cells(k,1)=Feuil5.Cells(16,3) + Feuil5.Cells(4+i,6) - 1 + (j/24)
  k=k+1
 next j
next i


 
Ca marche, c'est nickel...Merci beaucoup...

Reply

Marsh Posté le 15-07-2006 à 19:32:18    

AnDeMoN a écrit :

Ca marche, c'est nickel...Merci beaucoup...

un chti [résolu] dans le titre stp :)

Reply

Sujets relatifs:

Leave a Replay

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