Pb de Matrice!

Version imprimable

Pb de Matrice!

Bonjour a tous, voici ma fonction VBA:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function calcbetas(A As Range, B As Range, C As Range, Y As Range)
 
    Dim i As Integer
    Dim N As Integer
    N = A.Count
    Dim M As Range
        For i = 2 To N + 1
 
        M(i, 1).Value = Application.WorksheetFunction.PercentRank(A, A(i).Value)
        M(i, 2).Value = Application.WorksheetFunction.PercentRank(B, B(i).Value)
        M(i, 3).Value = Application.WorksheetFunction.PercentRank(C, C(i).Value)
 
        Next i
 
    Selection = Application.WorksheetFunction.LinEst(Y, M, 1, 0)
End Function

Je pense que le tableau (ou matrice) M est mal defini, comment puis je arranger cela??
Cela fait des heures que je tourne en rond..merci d avance de votre aide!

02/07/2007, 16h18
patbou

bonjour,
si j ai bien vu c bien une function et non une procedure (sub)?
comment passes tu les parametres a cette fonction ?
02/07/2007, 21h55
le petit nicolas

pourrais-tu nous préciser ce qui ne marche pas, à quel endroit ?

je vois déjà une première piste : tu cherches à remplir un TABLEAU nommé M, mais tu déclares M as RANGE
est-ce que ca ne marcherait pas mieux avec :
Dim M (N+2, 3) As variant

a plus

bonsoir

Je n'ai pas bien compris comment tu souhaites utiliser la fonction PercentRank, mais en attendant tu peux adapter cette fonction:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Option Base 1
 
 
Public Function CalcBetas(A As Range, B As Range, C As Range, y As Range)
    Dim i As Integer, N As Integer
    Dim TempA, TempB, TempC
    Dim Mx_connus()
 
    TempA = A
    TempB = B
    TempC = C
 
    ReDim Preserve Mx_connus(LBound(TempA) To UBound(TempA), 1 To 3)
    For i = 1 To UBound(TempA)
        Mx_connus(i, 1) = TempA(i, 1)
        Mx_connus(i, 2) = TempB(i, 1)
        Mx_connus(i, 3) = TempC(i, 1)
    Next i
 
    CalcBetas = Application.WorksheetFunction.LinEst(y, Mx_connus)
End Function

Et dans une cellule tu saisies:

Code:

=CalcBetas(A1:A10;B1:B10;C1:C10;E1:E10)

bonne soirée
michel