Discussion :

[deubelte]

Bonjour
est il possible de retourner via une fonction codée dans DLL en C++ un tableau dans un programme VBA?
Je veux faire par exemple:

Dim f(1 to 10)

f=Funct(arg1,arg2,arg3...)


ou Funct est une fonction codée dans une DLL en C++?
Sans utiliser les SAFEARRAY.
En fait, Funct devra tout simplement renvoyer un pointeur.

J'ai fait un programme, en VBA,
dans lequel j'ai déclaré la fonction Function de ce style:

Declare Function Func Lib "C: \Users\....." Alias "_XL@16" (by val arg1, byval ar2...) as long

mais ca me renvoie comme erreur:
"Impossible d'affecte à un tableau. "

On dirait qu'on peut pas transmetrtre de tableau de C++ en VBA, alors que l'inverse est possible.

Merci
Pierre

[Médinoc]

Pour transmettre un tableau C++ à VBA, il faudrait que VBA sache le gérer.
Or, VBA ne sait gérer que les SAFEARRAY, donc avec ton critère de ne pas les utiliser, ça se mord la queue...

[deubelte]

ok ,

regarde le message:

void __stdcall trierTableau(int *base, unsigned *num);
Voila ce que tu dois prendre dans ta dll et NENNI SAFEARRAY ou autre lenteur.
Du cote VB:
Declare Sub Lib trierTableau "SpeedVb.dll" (pArray As Long, nElem As Long)
et tu l'appelles ainsi
trierTableau lArray(0), 501
en passant l'adresse de l'elem 0 a la dll.

j'ai l'impression qu'il passe dans la fonction trierTableau le premier element du tableau lArray(0)
ensuite, tous les autres seront accessible sur vba en faisant
lArray(1),...

[Médinoc]

Mais là, tu passes le tableau à la fonction C ou C++, pas l'inverse.

Mais bien sûr, le tableau est modifiable. Seule sa longueur est fixe.

De plus, je déclarerais plutôt ça comme suit:

Code C++ :

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

void __stdcall trierTableau(int *base, unsigned num);

Code VB :

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

Declare Sub Lib trierTableau "SpeedVb.dll" (ByRef pArray As Long, ByVal nElem As Long)

Quand on est habitué au C ou C++ et qu'on code en VB, toujours préciser si chaque paramètre est ByRef ou ByVal: Ça documente le code.

[Melem]

Avec int * base on devrait plutôt déclarer dans VB : ByVal pArray As Long. On place dans pArray l'adresse du premier élément du tableau (c'est-à-dire VarPtr(t(1)) si l'indice du tableau commence par 1 ...). Je précise également que le int du C se déclare Long et non Integer (short) sous VB (mais je peux me tromper ^^).

EDIT : Je n'ai pas lu le post plus haut. Si on passe simplement t(1) et non VarPtr(t(1)), alors on utilise ByRef et non ByVal en effet. D'ailleurs c'est plus simple avec ByRef (mais un peu trop haut niveau pour moi ).

[deubelte]

est-ce que les Safearray demandent de charger des librairies spéciales dans VBA et lesquels?

Est-ce que ca demande de faire des DLL Spéciales? Genre des DLL COM?

[Médinoc]

Pour les safearray, je ne sais pas exactement, mais pour les strings, je sais que VB suppose que toutes les chaînes sont "ANSI" pour des fonctions "normales": Il faut faire un objet COM pour avoir droit à des vraies BSTR.

Si tu n'as pas d'histoire de chaînes, tu peux peut-être essayer en utilisant simplement un safearray dans ta DLL, sans changer grand-chose d'autre...