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
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.
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
Pouvez vous m'aider ?
Merci à tous et à toutes.
Partager