Discussion :

[yasquare]

Bonjour,
J'ai un petit problème avec une dll. En effet, j'aimerais manipuler des matrice avec des dll a fin de faire des calculs matriciels sous Excel. Pour cela j'ai commencé par une simple dll:

Code :

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

1
2
3
4
// in : matrix , out : matrix
LPSAFEARRAY FAR *  __stdcall Optimization(LPSAFEARRAY FAR *variance){ 
    return variance;
}

et je l'appelle sous VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Declare Function Optimization Lib "Optimization.dll" (integerArray() As Variant) As Variant
    Sub test1()
       Dim a() As Double
       ReDim a(1 To 3, 1 To 3) As Double
           For u = 1 To 3
               For v = 1 To 3
                   a(u, v) = 0
               Next
           Next
    bb = Optimization(a())
    End Sub

Comme vous pouvez le voir, c'est très simple; par contre quant je compile il me sort cette erreur : " Expression trop complex" (i.e. bb = Optimization(a()) )
Merci d'avance.

Ya²

[Delbeke]

Je ne connais pas la solution; mais je peux donner plusieurs pistes
le type variant de vb,je ne pense pas que ce soit la bonne façon de passer des variables vers une dll. j'essyareais plutot de declarer en long

Déclarer un tableau, pas nescessairement une bonne idée non plus, je pense, il doit suffire de passer un pointeur sur le tableau

Je verrais bien donc quelque chose comme

Code :

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

Declare Function Optimization Lib "Optimization.dll" (integerArray As Long) as Long

Pour compenser, si c'est toi qui a ecrit la dll en C++, il serait interessant de passer en plus le nombre d'elements du tableau
Ce qui ferait alors un definition de type

Code :

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

Declare Function Optimization Lib "Optimization.dll" (integerArray As Long, ByVal cCount1 As Long,, ByVal cCount2 As Long) as Long

En faisant l'appel de la fonction, on passerait alors le premier element du tableau

Code :

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

bb = Optimization(a(0,0),3,3)

[yasquare]

J'ai fait comme vous m'avez conseillé mais ça marche toujours pas :

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
double **  __stdcall Optimization(double**variance, int  dim1, int  dim2){
 
	int i, j;
	double** weight_optim;
	for (i=0; i<dim1; i++)
	{
		for (j=0; i<dim2; i++)
		{
			variance[i][j]=1;
		}
	}
	weight_optim=variance;
    return weight_optim;
 
}

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Declare Function Optimization Lib "Optimization.dll" (integerArray As Double, ByVal cCount1 As Double, ByVal cCount2 As Double) As Double
 
 
    Sub test1()
       Dim a() As Double
       ReDim a(0 To 2, 0 To 2) As Double
           For u = 0 To 2
               For v = 0 To 2
                   a(u, v) = 0
               Next v
           Next u
    tt = Optimization(a(0, 0), 3, 3)
    End Sub