Calculer une moyenne sur n valeurs

Bonjour,

Je suis confronté à ce petit problème dont je n'arrive pas à trouver la solution. Il faut dire que mes connaissances en VBA sont assez limitées .

Je voudrais calculer la moyenne pour chaque pièce (valeurs dans Feuil2) et écrire celle-ci dans la Feuil3.

Cette moyenne doit être calculée sur les n (Feuil1) premières valeurs de chaque pièce

Merci d'avance pour votre aide!!!

Bonjour Aston, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim F3 As Worksheet
Dim N As Byte
Dim I as Byte

Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
Set F3 = Sheets("Feuil3")

N = F1.Range("B2").Value
For I = 1 To 4
    F3.Cells(3, I + 2).Value = Round(Application.WorksheetFunction.Average(F2.Cells(3, I + 3).Resize(N)), 2)
Next I
End Sub

Merci beaucoup ThauThème pour ta réponse très rapide!!! Cela marche parfaitement