Fonction retournant deux valeurs

**locosr** · 10/05/2011, 21h16

Bonjour à tous.

Je me heurte à une colle, je code une fonction qui au final est censée me donner une moyenne et un écart type (donc deux valeurs).
Le problème c'est qu'une fonction est normalement censée donner une seule valeur à l'issue de la procédure, or je veux que ma fonction me permette de récupérer mes deux valeurs.

Comment suis je censé contourner ce petit problème ?

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
25
26
Function fnAlpha(r, rm, r0) As Variant
 
Dim i, j, nb, observ As Integer
Dim beta, cov, varm, error, moy, stdev As Double
 
Set ws = wb.Worksheets("titres")
Set wer = wb.Worksheets("er")
 
nb = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1
observ = wer.Cells(Rows.Count, 2).End(xlUp).Row - 1
 
 
 
varm = WorksheetFunction.stdev(rm) * (36) ^ 0.5
 
cov = WorksheetFunction.Covar(r, rm) * 36
 
beta = cov / varm
 
error = r - (r0 - beta * (rm - r0))
 
moy = WorksheetFunction.Average(error)
stdev = WorksheetFunction.stdev(error)
 
fnalpha= (moy,stdev)
End Function

Vous remerciant d'avance

Cordialement

**pgz** · 10/05/2011, 23h25

Bonsoir.

Tu as plusieurs possibilités :

tu fais 2 fonctions
tu remplaces par une procédure sub et pour récupérer les résultats tu passes ByRef 2 variables MOY et ET
Tu modifies ta fonction pour que la valeur renvoyée soit un tableau.

La méthode la plus économe est celle de la procédure sub.

Cordialement,

PGZ

**locosr** · 10/05/2011, 23h32

Je n'ai pas précisé que l'erreur venait bien entendu de la dernière ligne. Par ailleurs j'ai aussi tenté en dimensionnant la fonction as Tretour, néanmoins ça n'a pas fonctionné :/

Edit: Merci pour cette réponse. Je vais tenter ça demain et voir ce que ça donne. Je vous tiendrez au courant.

Merci