création de fonction

bonjour,

je voudrais créer une fonction personnalisé du même type que SOMME.XMY2 mais qui pourrait s'appeler MOYENNE.XMY, et qui renverrait la moyenne des écarts entre une série X et une série Y.
Je n'ai jamais fais ça et j'aimerais un petit coup de pouce pour débuter :lol:
merci

Bonjour,

Il existe une fonction excel qui calcule la moyenne : AVERAGEA

cette fonction averagea ne fait ce que je veux.
il me faut :
x1-y1=e1
x2-y2=e2
x3-y3=e3
etc

Mafonction = moyenne (e1, e2, e3.....)

on peut le faire en décomposant, les calculs mais comme c'est qqc que j'utilise très souvent j'aimerais bien la "modéliser"

une nouvelle proposition de formule excel, a adapter :

Code:

---

=SOMMEPROD(A:A,B:B)/SOMME(B:B)

---

Edit : sinon bien sur il y a la possibilité de le faire par le code tu dis

j'aimerais vraiment créer une fonction !!!

Ok,

As-tu essayé, as-tu un début de code ?

Quand veux-tu appeler ta fonction, comment ?

As-tu besoin du résultat intermediaire ou seulement du résultat final ?


Si tes valeurs x sont dans la colonne A et Y dans ta colonne B, il te faut parcourir toutes les cellules et a chaque boucle faire le total de ta colonne A et le total de la colonne B et faire la différence si tu veux afficher tes valeurs e.

non, je n'ai pas essayé de code car je ne sais absolument pas comment m'y prendre, j'ai qq notions de vba mais je n'ai jamais fait de fonction, et en cherchant sur le net, je n'ai pas trouvé de quoi m'inspirer
effectivement, c'est le résultat final uniquement qui m'intéresse (et surtout la logique de création d'une fonction traitant des matrices de données car j'en ai d'autres dans les cartons!!)
j'aimerais bien voir comment sont construites les fonctions natives d'excel, ça m'inspirerait je pense

Un exemple en VBA à adapter bien sur :

Un sub pour l'appel avec la premiere et la dernier ligne a calculer (l'ajout d'autres parametres est envisageable)

Code:

---

1 2 3 4 5 6 7 8 9

Sub testq() Dim i As Integer   i = 1 j = Range("A65536").End(xlUp).Row   MsgBox MaMoyenne(i, j)   End Sub

---

La fonction comme je l'ai compris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function MaMoyenne(ByVal first As Integer, ByVal last As Integer) As Long Dim MaPlage As Range Dim MaCellule As Range Dim Total1 As Long Dim Total2 As Long Dim difference As Long     Set MaPlage = Range("A" & first & ":A" & last)   For Each MaCellule In MaPlage difference = difference + MaCellule - MaCellule.Offset(0, 1) Next MaCellule   MaMoyenne = difference   End Function

---

bonjour

Citation:

---

non, je n'ai pas essayé de code car je ne sais absolument pas comment m'y prendre, j'ai qq notions de vba mais je n'ai jamais fait de fonction, et en cherchant sur le net, je n'ai pas trouvé de quoi m'inspirer
effectivement, c'est le résultat final uniquement qui m'intéresse (et surtout la logique de création d'une fonction traitant des matrices de données car j'en ai d'autres dans les cartons!!)

---

j'espère que ce lien pourra t'aider :
http://silkyroad.developpez.com/vba/fonctions/

bonne soirée
michel

Bonjour,
voici une liste de valeurs
x y x-y
12 11 1
12 12 0
15 12 3
12 16 -4
13 12 1

le résultat de ma fonction : moy(x-y)= 0.2

j'ai essayé de faire cette fonction mais je n'y arrive pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function MaMoyenne(ByVal first As Range, ByVal last As Range) As Integer Dim MaPlage As Range Dim MaCellule As Range   Dim difference As Long     Set MaPlage = Range(first & ";" & last)   For Each MaCellule In MaPlage difference = difference + MaCellule.Value - MaCellule.Offset(1, 0).Value Next MaCellule   MaMoyenne = difference   End Function

---

Bonjour,

Il y a une erreur ici :

Code:

---

Set MaPlage = Range(first & ";" & last)

---

Au lieu de ";" tu dois avoir ":" par exemple si
First = "A1" et Last = "A99"
alors la plage est Range("A1:A99")

Le code que je t'ai fourni parcourt toutes les cellules de la plage, si la plage comprend plusieurs colonnes mon code ne fonctionne pas.
Il te faut parcourir seulement une colonne