N
nianko
Guest
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:
Any idea?😕
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:
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 SubAny idea?😕