Problème fonction perso avec Decaler

Bonjour à tous.

voila mon petit soucis. J'ai dans une feuille une colonne date et une colonne données. J'ai fait dans ma feuille une formule pour obtenir facilement la moyenne entre 2 date. La formule que j'utilise est la suivante

Code:

---

=MOYENNE(DECALER($B$7;(H4-$A$7)/($A$8-$A$7);0;(H5-H4)/($A$8-$A$7)))

---

en B7 = première donnée
en A7 = première date
en H4 = date de début
en H5 = date de fin
et A8-A7 = pas de temps

Jusque la ca marche nickel. le soucis c'est que c'est un peut long j'ai essayé de mettre ca sous forme de fonction perso mais ca n'a pas l'air de fonctionner.

Code:

---

1 2 3 4 5

Public Function Volmoy(Première_donnée As Range, Première_date, Date_début, Date_fin, Pasdetemps) Application.Volatile   Volmoy = Application.WorksheetFunction.Average Application.WorksheetFunction.Offset(Première_donnée, (Date_début - Première_date) / (Pasdetemps), 0, (Date_fin - Date_début) / Pasdetemps)) End Function

---

Si quelqu'un a une idée de pourquoi ca plante et comment faire, je suis preneur. ca fait 2 jours que e me prend la tete dessus donc...

MERCI D'AVANCE

Bonsoir

Je ne vois pas trop l'intérêt de passer par une fonction perso. La formule proposée fonctionne bien, si ce n'est que, à mon sens, le DECALER s'arrête une ligne trop tôt.

En effet, avec DECALER tel que présenté dans l'exemple, la plage s'arrête une cellule plus haut que la cellule se trouvant sur la ligne de la date de fin. Or, il me semble normal de considérer que la moyenne doit être interprétée "bornes comprises"...

Quoi qu'il en soit, si l'on veut vraiment une formule perso, alors, je préfère recomposer ma plage non pas avec la fonction WorksheetFunction.Offset, mais comme je le montre ci-dessous.

Je n'ai pas décomposé l'ensemble, mais j'ai tenu compte du fait que les bornes étaient toutes les deux incluses.

Code:

---

1 2 3 4 5 6 7

Public Function Volmoy(Première_donnée As Range, Première_date, Date_début, Date_fin, Pasdetemps) Application.Volatile   Volmoy = _ Application.WorksheetFunction.Average(Range(Première_donnée.Offset((Date_début - Première_date) / _ Pasdetemps), Première_donnée.Offset((Date_début - Première_date) / Pasdetemps + (Date_fin - Date_début) / Pasdetemps))) End Function

---

Ok?

Merci de ta réponse. ça fonctionne nickel


en ce qui concerne tes 2 remarques:
- pour les bornes comprises: en fait je fais un tableau de récapitulatif journalier et j'utilise la date de fin comme date de début pour le jour suivant. donc pour ne pas comptabiliser 2 fois la meme donnée, je m'arrete effectivement juste avant la borne de fin
- Il est vrai que ma formule fonctionne comme il faut. Le soucis c'est que je ne serai pas le seul utilisateur et nombre de mes collègues ont du mal avec la fonction décaler. donc j'essaye de simplifier ca dans une fonction perso avec mes termes à moi. voila


MERCI de ta réponse