Discussion :

[JonSnow]

Bonjour à tous,

J'ai une colonne de plusieurs milliers de lignes et j'aimerais pouvoir faire à chaque ligne, la moyenne des lignes précédentes et de la ligne en cours.

Donc je commence par récuperer le numéro de la derniere ligne de ma colonne (le dernier indice de ma boucle For) et ensuite utiliser la fonction average me renvoie une erreur 1004 "erreur défini par l'application ou défini par l'objet." sur la ligne Pmoy (cf code)

Ca fait bien 2 h que je suis dessus et ca commence à me désepérer d'être aussi mauvais..

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
Sub maxdetect()
 
Dim feuille1 As Worksheet
Dim Pmoy, derrow As Double
Dim i As Double
Set feuille1 = ThisWorkbook.Worksheets("R3BHP2001")
Set feuille2 = ThisWorkbook.Worksheets("Extracted StatP")
 
'récupere l'indice de la dernière ligne
derrow = feuille1.Cells(Rows.Count, "A").End(xlUp).Row
 
feuille2.Range("B1") = derrow
For i = 3 To derrow
Pmoy = Application.WorksheetFunction.Average(Sheets("R3BHP2001").Range(Cells(2, 2), Cells(i, 2)))
feuille2.Cells(i, 3).Value = Pmoy
Next
 
End Sub

Quelqu'un voit il ce qui cloche ?

Merci d'avance,

Jon

[sabzzz]

bonjour Jon,

peut être comme ceci,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Pmoy = Application.Average(feuille1.Range("B2:B" & i))

[JonSnow]

Impeccable ! Problème résolu.

Merci beaucoup Isabelle.