Problème avec tableaux Variant et X.rows.count sous VBA

Version imprimable

bonsoir à tous,

Voilà j'essai de programmer une fonction sous VBA qui me servira à calculer les résidus d'une régression. Ma fonction ci dessous s'exécute bien et j'utilise des tableaux pour les calculs:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
option base 1
Function OLSStderror(Y As Variant, X As Variant)
'   Computes OLS Standard Error under the equation Y = a + B1(t)+...+Bk(t)
'   Works for Simple and Multiple Regression
    '
    '# of Rows & # of columns
    Dim nr, nc As Integer
    nr = X.rows.Count
    nc = X.Columns.Count
    '
    Dim Xb(), betas(), Xbetas(), residuals() As Variant
    ReDim Xb(1 To nc + 1, 1 To nr), betas(1 To nc + 1, 1 To 1), Xbetas(1 To nr, 1 To 1), residuals(1 To nr, 1 To 1) As Variant
    Xb = RegMatrix(X)
    betas = OLS(Y, X)
    Xbetas = Application.MMult(Xb, betas)
    Debug.Print TypeName(Xbetas)
    '
    residuals = MAdd(Y, Xbetas, -1)
    '
End Function

comme vous pouvez le constater, j'ai bien essayé de déclarer comme il se doit les arguments des tableaux. Cependant pour Calculer les "residuals", j'ai créer une fonction Madd (addition de matrice) comme suit:

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
25
26
27
28
29
30
 
Function MAdd(X As Variant, Y As Variant, Coeff As Single) As Variant
'   Add or Substract two matrix depending on coeff(-1,1)
'   The usual matrix addition is defined for two matrices of the same dimensions
    '
    'Check if the two Matrix have the same size
    If X.rows.Count = Y.rows.Count Then
        If X.Columns.Count = Y.Columns.Count Then
        Else: MAdd = "Discrepancy in # C"
            Exit Function
        End If
    Else: MAdd = "Discrepancy in # R"
        Exit Function
    End If
    '
    Dim nr, nc, i, j As Integer
    nr = Y.rows.Count
    nc = Y.Columns.Count
    Dim Temp As Variant
    ReDim Temp(nr, nc)
        '
        'Compute Matrix
        For i = 1 To nr
            For j = 1 To nc
              Temp(i, j) = X(i, j) + Coeff * Y(i, j)
            Next j
        Next i
        '
    MAdd = Temp
End Function

Or la procédure s'arrête à ce niveau (ci dessous au moment du dénombrement) dans la fonction Madd et je ne trouve pas pourquoi:

Code:

1
2
3
 
    'Check if the two Matrix have the same size
    If X.rows.Count = Y.rows.Count Then

D'ailleurs, la fonction Madd fonctionne très bien si je sélectionne des range sous Excel. Pourquoi ne fonctionne t'elle pas avec des tableaux sous VBA? Sachant que lorsque je lui demande le type de variable de Xbetas il me donne bien un variant et il m'affiche que le vartype est 8204 ce qui correspond à une array.
:?

Any ideas?

Merci d'avance

Anthony

29/12/2009, 19h56
Didier Gonard

Bonjour,

si je comprends bien, tu veux appliquer Rows.count à un array ?

vois le mode de fonctionnement des variables tableaux ici :

http://silkyroad.developpez.com/vba/tableaux/

cordialement,

Didier
29/12/2009, 21h14
Anthony75
Oui j'ai bien essayé d'utiliser Ubound comme suit:
Code:

1 2 3 4 'Check if the two Matrix have the same size If Ubound(X,1)= Ubound(Y,1)Then If Ubound(X,2)= Ubound(Y,2) Then
mais dans ce cas il m'affiche que la variable X est incompatible avec Ubound. Elle provient d'une range sous Excel. alors que Y est calculée dans la fonction précédente et compatible avec Ubound.
En fait Ubound fonctionne pour les tableaux VBA seulement alors que X.rows.count fonctionne seulement pour les range provenant d'excel.
Pas très reglementaire de mettre Ubound sur une variable et .rows/columns.count sur l'autre. N'y a t'il pas un moyen de formaliser les deux?

Merci de ta réponse quand même Didier
29/12/2009, 23h23
mercatog

Bonsoir,
Tout d'abord, si tu peux déclarer et renommer tes variables convenablement, tu peux t'apercevoir de ce qu'est range et ce qui est tableau

Code:

Function OLSStderror(Y As Range, X As Range)

Code:

Function MAdd(W As Range, Z As Variant, Coeff As Single)

...etc
30/12/2009, 13h32
Anthony75

J'ai bien compris ton point et je te remercie mais le problème est que j'ai programmé ces fonctions pour deux utilités.

La première vise à pouvoir les utiliser sous excel directement ce qui nécessite d'utiliser "As range" et "X.rows.count" par exemple. Elles deviennent inutilisables sous VBA directement.

La seconde est que je veux les utiliser dans des procèdures de types macros qui font intervenir de nombreuses matrices recalculées (tableaux) ce qui nécessite d'utiliser "As variant" et "Ubounb(X,1)". Elles deviennent inutilisables sous excel directement.

Ne peut-on pas les uniformiser?

il me reste l'option de mettre une fonction préablable qui transforme les range en tableaux VBA mais qui va sérieusement alourdir le temps de calcul. :s

Merci de ton aide quand même
30/12/2009, 14h04
Didier Gonard

Bonjour,

Citation:

ces fonctions pour deux utilités.

Donc soit tu programmes 2 fonctions différentes, un filtre dans l'appelante décidant qui appeler, soit tu les construit de façon que suivant un filtre donné ce ne soit pas les même lignes de code qui interagissent, le tronc commun étant identique ?

Tu peux avoir un select case dans une fonction sans problème....

Soit encore dans ton code si la source est un range, tu le traduit en array et l'appel de la fonction qui ne traite alors que des array se fait derrière...

cordialement,

Didier
30/12/2009, 15h17
Anthony75
Merci Didier pour tes conseils. :)

Citation:

Soit encore dans ton code si la source est un range, tu le traduit en array et l'appel de la fonction qui ne traite alors que des array se fait derrière...

t'as une petite idée de comment je pourrais faire ça? Est ce qu'on peut directement traduire une range en array? sinon je peux faire un filtre du style:
Code:

1 2 3 4 if vartype(X) = "Range" then 'change to an array end if
Merci

Anthony
30/12/2009, 16h58
Didier Gonard
Bonjour,

Citation:

Est ce qu'on peut directement traduire une range en array? sinon je peux faire un filtre du style:

Oui, c'est tout l'intérêt de la chose :
Code:

1 2 3 4 5 Sub ContTab() Dim tboExemple As Variant tboExemple = Range("A1:D100").Value End Sub
te retourne un tab à 2 dimentions ;)

dans le même ordre d'idée, si tu mets ceci à la suite, tu as l'inverse tout aussi pratique ;)

Code:

Range("F1:I100").Value = tboExemple

cordialement,

Didier

Merci Didier,

You are a VBA Wizzard!!!

Du coup j'ai fait ce petit bout de code en amont:
Code:

1 2 3 4 5 6 7 8 9 10 11 ' Function createMatrix(Z As Range) ' Create an array matrix from a range Dim nr, nc As Integer nr = Z.rows.Count nc = Z.Columns.Count Dim X As Variant ReDim X(nr, nc) As Variant X = Z.Value createMatrix = X End Function
Merci pour ton aide et joyeuse année à toi! :ccool: