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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.