Moyenne glissante

job75

XLDnaute Barbatruc

• 26 Mai 2013

• #2

Re : Moyenne glissante

Bonsoir csd60, le forum,

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

Code:

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+

 

Pièces jointes

• Moyenne mobile(1).xls

  41 KB · Affichages: 62
• Moyenne mobile(1).xls

  41 KB · Affichages: 72
• Moyenne mobile(1).xls

  41 KB · Affichages: 73

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 26 Mai 2013

• #3

Re : Moyenne glissante

Bonsoir à tous,

Un essai en pièce jointe

JHA

 

Pièces jointes

• Essai moyenne.xls

  23.5 KB · Affichages: 61

Vote positif 0 Vote négatif

C

csd60

Guest

• 26 Mai 2013

• #4

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.

 

Vote positif 0 Vote négatif

C

csd60

Guest

• 27 Mai 2013

• #5

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

 

Vote positif 0 Vote négatif