Fonction qui fonctionne sur VBA mais pas sur excel

Bonjour à tous,

J'ai recrée sur VBA une fonction qui permet de calculer la moyenne d'une matrice composé d'une seule colonne, ma fonction marche bien lorsque je l'utilise via VBA mais lorsque je veux l'utiliser directement dans une cellule excel, la cellule considérée renvoit toujours #VALEUR.

Savez-vous d'où peut venir ce problème ?

voici le code de ma fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Function mamoyenne2(A)   Dim i, j, n As Integer   n = UBound(A, 1)   Dim moy As Double Dim somme As Double     somme = 0   For i = 1 To n   somme = somme + A(i, 1)   Next i   moy = somme / n     mamoyenne2 = moy   End Function

---

Merci d'avance.

Cordialement.

Bonjour, bonjour,

une fonction personnalisée ne peut modifier que la cellule qui l'appelle …

Et pour moi le code n'a pas d'intérêt - si ce n'est de ralentir le calcul - quand une fonction de feuille de calculs existe déjà …

Bonjour Marc,

effectivement je suis d'accord avec le fait qu'une fonction personnalisée ne peut modifier que la cellule qui l'appelle, c'est bien ce que j'ai fait c'est-à-dire me placer par exemple en cellule A2 et inscrire =mamoyenne2(A1:A4)

Je ne vois donc pas pourquoi il me renvoit #VALEUR

Si je ne m'abuse, la cellule où tu appelles ta fonction est contenu dans la plage de calcul de ta fonction.

Ca ne viendrait pas de là ?

Je ne me penche pas plus dessus, Marc a déjà tout dit de l'utilité de ta fonction.

Quelle raison te pousse à procéder ainsi, plutôt que l'usage des fonctions existantes ?

Bonjour bol45;

Il faut déclarer un objet (Range) dans ta fonction

Code:

---

Public Function mamoyenne2(A As Range)

---

Puis adapter ton code en conséquence bien sûr.

OK parfait DocMarti, ça fonctionne merci ;)