Comment passer en VBA l'adresse d'un tableau,en argument d'une fonction ?(d'1 dll C#)

[russel92]

Bonjour tout le monde !

Mon titre n'est pas clair alors je m'explique:
J'ai ecris une petite fonction a titre d'exemple TRANSFORMTAB dans ma dll C# (dll qui sert de bibliotheques de sous-fonctions que j'appelle dans mon VBA) , ma fonction prend en argument l'adresse d'un tableau et sa taille, et rajoute 1000 à chacun de ses elements; => mais je n'arrive pas a utiliser ma fonction dans mon VBA excel ...

*************** CODE DLL

Code C :

1
2
3
4
5
6
7
8
9
       //public unsafe void transformTab(long* tab,long maxi)
 
        public void transformTab(long []monTab ,long maxi)
        {
            for (int i = 0; i < maxi; i++)
            {
                monTab[i] = i + 1000;
            }
        }

************** CODE VBA

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function transformTab Lib _
"D:\FinanceLib\FinanceLib\bin\Debug\FinanceLib" _
(ByRef monTab As Long, ByVal maxi As Long)
 
Private Sub CmdCsharp_Click()
 
    Dim i, tabVBA(1 To 5) As Long
    Dim fi As Object
    Set fi = CreateObject("FinanceLib.FinanceClass")
    For i = 1 To 5
        tabVBA(i) = i
    Next i
    Call fi.transformTab(tabVBA(1), 5)
End Sub

En apellant en argument juste le 1er element du tableau, VBA me met cette erreur :

"call fi.transformTab(tabVBA(1), 5)"

ERREUR D'EXECUTION '5'
ARGUMENT OU APPEL DE PROCEDURE INCORRECT

Et en apellant en argument juste le nom du tableau comme adresse, VBA me met cette erreur :

"call fi.transformTab(tabVBA, 5)"

ERREUR D'EXECUTION '13'
INCOMPATIBILITE DE TYPE

***********************************

Ma declaration par reference en VBA est-elle correcte ?
Ou bien faudrait-il changer mon code C# ?

Merci à tous pour vos remarques …

Russel

[gruget]

Bonjour,
justement je me posait cette question ce matin
j'ai pas du tout testé et je sais pas vraiment faire appel à une dll en C mais déja, je remplacerais ces différentes lignes :

Code :

1
2
3
Private Declare Function transformTab Lib _
"D:\FinanceLib\FinanceLib\bin\Debug\FinanceLib" _
(ByRef monTab As Long, ByVal maxi As Long)

Code :

Dim i, tabVBA(1 To 5) As Long

Code :

Call fi.transformTab(tabVBA(1), 5)

par

Code :

1
2
3
Private Declare Function transformTab Lib _
"D:\FinanceLib\FinanceLib\bin\Debug\FinanceLib" _
(ByRef monTab() As Long, ByVal maxi As Long)

Code :

1
2
Dim i as long
Dim tabVBA(5) As Long

Code :

Call fi.transformTab(tabVBA(), 5)

maintenant c'est juste des réflexions sur la défintion des tableaux
rémi

[ouskel'n'or]

Déjà, si tu appelles une fonction, ta sub attend un résultat

Code :

Result = LaFonction(LeTableau)

Déjà, là tu as sans doute... (pt être même nécessairement) une erreur.
Ensuite, si, dans ta fonction, tu attends un tableau, je ne sais pas ce que dit le c++ mais en VBA, la fonction attend la variable tableau sans les dimensions.

Code :

Function LaFonction(LeTableau)

fonction dans laquelle on récupère les dimensions du tableau

Code :

1
2
3
4
NbItem = Ubound(LeTableau)
'ou
For i = 0 to Ubound(LeTableau)
     '...

Si ça peut t'aider...
A+

[russel92]

Merci Gruget et Ouskel'n'or, j'ai essayé ce que vous avez dit, mais ca n'a rien changé ... :-(
Au fait ma dll n'est pas écrite en C ni en C++ mais en Csharp, elle contient d'autres fonctions simples (comme somme (long a,long b) par ex. qui marchent bien lorque je les appelle de la meme maniere dans VBA)
Le probleme reste de passer a tranformTab( ) un tableau de donnees sur lequel il va travailler ...
J'ai essaye ceci en Csharp: (je lui passe un objet en argument plutot qu'un tableau de long) :

Code c :

1
2
3
4
5
6
7
8
9
10
11
12
public object transformTab(ref object monTab, long maxi)
        {
            long[] tabLocal = monTab as long[];
 
            for (int i = 0; i < maxi; i++)
            {
               tabLocal[i] = i*2;
            }
 
            monTab = tabLocal;
            return monTab;
        }

et en VBA:

Code :

1
2
3
Private Declare Function transformTab Lib _
"D:\projets-Kingbo\FinanceLib\FinanceLib\bin\Debug\FinanceLib" _
(monTab As Object, ByVal maxi As Long) As Object

*************
mais ca bug toujours, avec la declaration proposée par Gruget, c'est idem ...

Merci si vous trouvez qq chose

[ouskel'n'or]

A quoi te sert de créer un objet ? Tu ne peux pas simplement l'appeler avec ses paramètres ? La syntaxe de Gruget devrait alors fonctionner... (?)

[russel92]

Re-Bonjour, j'ai tjs le meme probleme pour passer mon tableau dim tab(1 to 5) as long à une fonction de ma DLL-Csharp qui va traiter le tableau ( par exemple en multipliant chaque element par 2)
Il parait qu'il y a un probleme de transtypage, que VBA stocke les adresses des tableaux en SAFEARRAY et le probleme c'est que je n'ai pas de SAFEARRAY en visual C#
Ouskel'n'or en passant juste l'adresse du tableau a la fonction il ne reconnait pas l'adresse , voila pourkoi il faudrait (peut etre ) encapsuler tout mon tableau dans un objet que j'enverrai à ma DLL C-sharp

**********CODE DLL C-SHARP :

Code c :

1
2
3
4
5
6
7
public void multTab(long []monTab ,long maxi)
        {
            for (int i = 0; i < maxi; i++)
            {
                monTab[i] = 2*monTab[i];
            }
        }

**********CODE VBA :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function transformTab Lib _
"D:\FinanceLib\FinanceLib\bin\Debug\FinanceLib" _
(ByRef monTab() As Long, ByVal maxi As Long)
 
Private Sub Cmd()
 
    Dim i, tabVBA(1 To 5) As Long
    Dim fi As Object
    Set fi = CreateObject("FinanceLib.FinanceClass")
    For i = 1 To 5
        tabVBA(i) = i
    Next i
    Call fi.multTab(tabVBA(), 5)
End Sub

[AlainTech]

russel92,

Veux-tu bien utiliser les balises [code] quand tu postes du code?

Je n'ai pas envie de le faire pour toi à chaque fois.

Merci

[ouskel'n'or]

Désolé mais je ne peux pas t'aider. Simplement une chose, "en principe", quand on fait appel à fonction, on attend quelque chose et ton call me gène.
Result = Lafonction me paraîtrait plus orthodoxe.
pour le reste, à part écrire ta fonction en VBA...