Discussion :

[bol45]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Marc-L]

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à …

[bol45]

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

[joe.levrai]

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 ?

[Docmarti]

Bonjour bol45;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function mamoyenne2(A As Range)

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

[bol45]

OK parfait DocMarti, ça fonctionne merci