fonction average dans VBA

[nianko]

Bonjour,

J'ai un tableau où tous les jours j'ajoute les valeurs pour certaines actions du CAC 40 (15 actions) J'écris la date en haut à gauche, je rentre les cours, et ainsi de suite tous les jours je colle les tableaux actualisés les uns à la suite des autres. Dans une autre feuille, j'aimerais avoir une liste de dates, et pour ces dates avoir la moyenne des valeurs des actions.

Malheureusement VB me dit qu'il n'arrive pas à trouver la fonction average.

Voici le code:

Sub QUESTION()

Dim i As Integer
Dim MaPlage As Range
Dim cellule As Range
 For Each cellule In Sheets("average").Range("dates")
   For i = 1 To 20000
 If cellule = Sheets(1).Columns(1).Cells(i) Then
 Set MaPlage = Range(Cells(i).Offset(4, 6), Cells(i).Offset(17, 6))
     cellule.Offset(0, 3) = Application.WorksheetFunction.Average(MaPlage)
  End If
  Next
  'Sheets("average").Range("dates").Cells(i)
 Next
End Sub

Any idea?😕

 

[jp14]

Re : fonction average dans VBA

Bonjour

Une piste
L'aide de visual basic précise les fonctions d'excel disponible en vba
"Liste des fonctions de feuille de calcul disponibles dans Visual Basic"

JP