Moyenne glissante

[csd60]

Bonjour le forums

Je mets un fichier en pièce jointe pour m'aider à résoudre un problème.

J'aimerai obtenir la moyenne des 5 derniers indices en face colonne B. J' ai des cellules vide c'est normal même en créant un filtre colonne A ça ne marche pas. il me faudrait une formule que je puisse tirer jusque B10000.

Je vous remercie à l' infini car je commence à stresser grave

 

[job75]

Re : Moyenne glissante

Bonsoir csd60, le forum,

Une solution avec cette fonction VBA dans Module1 (Alt+F11) :

Function MOY(plage As Range, n As Byte)
Dim i As Long, j As Byte
For i = plage.Count To 1 Step -1
  If IsNumeric(CStr(plage(i))) Then j = j + 1
  If j = n Then
    MOY = Application.Average(Range(plage(plage.Count), plage(i)))
    Exit Function
  End If
Next
MOY = ""
End Function

Elle est utilisée en colonne B du fichier joint.

A+

 

[JHA]

Re : Moyenne glissante

Bonsoir à tous,

Un essai en pièce jointe

JHA

 

[csd60]

Re : Moyenne glissante

Merci à tous les deux. Vos résultats ont l'air cohérent je mets en application demain, je vous tiens au courant. Je me lève tôt demain matin. Je vais me coucher.

 

[csd60]

Re : Moyenne glissante

ça y est, c'est fonctionnel module créé et moyennes ajustées en fonction de la fréquence des événements. Encore une fois MERCI