Bonjour,

Depuis de nombreux jours je parcours tout les forums possible sur VBA mais je ne trouve pas de réponse à mon problème...

J'ai une première feuille avec 11 actions avec leurs rendement rangés par colonne et j'aimerai calculer la moyenne des rendements de chaque action en redirigeant les resultats dans un tableau sur une autre feuille où la les actions sont rangées par ligne.

Pour le moment j'ai le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub test() 
Dim moyenne As Double 
Dim rendement As Range 
Dim i As Integer, j As Integer 
Set plage = Range("P5", "Z63") 
 
 
For i = 1 To 12 
For j = 1 To 11 
 
ThisWorkbook.Sheets("feuil1").Cells(5, j).Select 
Set rendement = Range(Selection, Selection.End(xlDown)) 
moyenne = WorksheetFunction.Average(rendement) 
 
 
ThisWorkbook.Sheets("Résultats").Cells(i, 2).Value = moyenne 
 
Next j 
Next i 
 
 
End Sub

Les résultats s'inserent dans le tableau mais c'est le meme resultat qui est affiché pour les 11 actions..

Pourriez vous m'aider s'il vous plait, je desespère..

Cordialement!