Double boucle for

Version imprimable

Double boucle for

Bonsoir à tous et à toutes,

Je suis nouveau sur ce forum, et je débute également en VBA. Ce soir j'ai rencontré ma première difficulté sur une double boucle que voici
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 For j = 3 To 5 For i = 3 To 5 x = wb.Worksheets(3).Cells(i, 2).Resize(1, nb) x1 = wb.Worksheets(4).Cells(i, 2).Resize(1, nb) x2 = wb.Worksheets(5).Cells(i, 2).Resize(1, nb) wb.Worksheets("entreprise").Cells(1, j).Resize(5, 2).Value = WorksheetFunction.Average(x) wb.Worksheets("entreprise").Cells(7, j).Resize(5, 2).Value = WorksheetFunction.Average(x1) wb.Worksheets("entreprise").Cells(14, j).Resize(5, 2).Value = WorksheetFunction.Average(x2) Next i Next j
Je ne comprends pas pourquoi ma moyenne affichée est toujours la même, à savoir la toute dernière calculée. Un peu comme si la boucle j défilée à la toute fin et ne faisait apparaître que la dernière moyenne. J'ai pourtant l'impression d'avoir bien imbriqué mes boucles.

Pouvez vous m'aider ?

Merci à tous et à toutes.

18/05/2011, 23h04
mercatog

Bonjour et bienvenu
Si tu explique le but recherché car le code proposé est un peu étrange.
18/05/2011, 23h10
Goliw

Rebonsoir,

En fait ce que je cherche à faire c'est associer une plage de cellule à mes x (x,x1,x2), ensuite calculer la moyenne de cette plage de cellule, et enfin reporter ma moyenne sur une autre feuille.

Sachant que les x sont censés récupérer plusieurs plages de données au fur et à mesure, je vais obtenir plusieurs moyennes. Par exemple x va recevoir trois plages, qui vont me donner les moyennes 1 puis 2 puis 3. De même pour x1 et x2. Ces valeurs doivent être reportées sur ma feuille entreprise. Le seul soucis c'est qu'à la fin du programme ma feuille entreprise affiche trois fois 3, à savoir la dernière moyenne. Je me dis que c'est un problème de boucle mais je ne vois pas ce qui est illogique dans mon code.

Ps: ne faites pas attention au resize, j'ai oublié de l'enlever.

Et pourquoi les 2 boucle?
Si j'ai bien compris

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro2()
Dim Wb As Workbook
Dim i As Integer, Nb As Integer
Dim x As Range
 
'.....initialisation de Wb et Nb
'....
With Wb.Worksheets("entreprise")
    For i = 3 To 5
        Set x = Wb.Worksheets(3).Cells(i, 2).Resize(1, Nb)
        .Cells(1, i).Value = WorksheetFunction.Average(x)
        Set x = Wb.Worksheets(4).Cells(i, 2).Resize(1, Nb)
        .Cells(7, i).Value = WorksheetFunction.Average(x)
        Set x = Wb.Worksheets(5).Cells(i, 2).Resize(1, Nb)
        .Cells(14, i).Value = WorksheetFunction.Average(x)
        Set x = Nothing
    Next i
End With
End Sub

PS: x est une variable objet (Range), l'affectation se fait à l'aide de Set

18/05/2011, 23h50
Goliw

Merci pour ton aide :)

Pour ce qui est des deux boucles, c'est nécessaire car je veux reporter mes valeurs en laissant des écarts entre chaque moyenne. En gros je veux qu'il y ait une moyenne toutes les trois cases (d'où une boucle avec step).
Initialement j'utilisais une seule boucle comme tu l'avais proposé mais ça ne convenait pas à l'organisation de ma feuille excel pour la suite de mon projet.
19/05/2011, 00h14
mercatog

Explication pas claire sur le résultat escompté.
19/05/2011, 00h20
Goliw

C'est pas évident à expliquer. Je passe les détails, mais j'aimerais que mes moyennes soit reportées dans le tableau de la façon suivante (pour cette raison j'avais utilisé une seconde boucle avec un Step 3 afin de pouvoir les espacer, ce que je ne sais pas faire autrement):

http://imageshack.us/f/8/exemplemw.png/

http://img8.imageshack.us/img8/6641/exemplemw.png

Même l'exemple image donné est erroné.
teste ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
With Wb.Worksheets("entreprise")
    For i = 3 To 5
        Set x = Wb.Worksheets(3).Cells(i, 2).Resize(1, Nb)
        .Cells(1, 3 * i - 8).Value = WorksheetFunction.Average(x)
        Set x = Wb.Worksheets(4).Cells(i, 2).Resize(1, Nb)
        .Cells(8, 3 * i - 8).Value = WorksheetFunction.Average(x)
        Set x = Wb.Worksheets(5).Cells(i, 2).Resize(1, Nb)
        .Cells(20, 3 * i - 8).Value = WorksheetFunction.Average(x)
        Set x = Nothing
    Next i
End With

19/05/2011, 08h16
Goliw

Excellent ça tourne, merci pour ton aide :)

Je me permets une question, pourquoi cela ne fonctionnait pas avec ma double boucle ? En fait j'avais essayé d'imbriqué une seconde boucle à l'intérieur de la première mais j'avais l'impression qu'au lieu de défiler simultanément, la première boucle i défilait completement puis ensuite la boucle j défilait completement, au lieux de défiler en même temps.