Discussion :

[granbapt]

Bonjour,

Après plusieurs recherches, notamment sur ce forum, je bloque toujours sur le problème que je vous soumets, en espérant ne pas faire doublon avec une autre discussion qui m'aurait échappée...

J'ai codé une fonction codée en C/C++ qui prend deux nombres en paramètres et renvoie un nombre, et il faudrait que cette fonction soit exploitable sous excel : l'utilisateur entre par exemple les valeurs des paramètres dans deux cellules et le résultat calculé par la fonction est alors affiché dans une troisième cellule.
J'ai cru comprendre avec mes premières recherches qu'il fallait passer par la création d'une DLL contenant ma fonction (ce que j'ai fait avec Visual Studio), mais c'est maintenant dans l'exploitation de cette DLL que j'échoue.

Étant un grand novice dans l'utilisation d'excel, je me retrouve face à un obstacle de taille. Je me suis penché sur des tutos et des FAQ, mais je n'ai pas vraiment le temps de me former à excel pour l'instant, le but étant juste de permettre à des personnes qui n'utilisent qu'excel de pouvoir utiliser ma fonction.

Pourriez-vous m'aider en m'indiquant la marche à suivre ou en m'orientant vers une documentation relative à cela ?

Merci d'avance à tous.

[granbapt]

J'ai un peu avancé sur le sujet mais j'ai besoin d'un coup de pouce.
J'ai essayé de créer une macro destinée à utiliser la fameuse DLL, voici le code :

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
16
17
18
19
20
21
22
23
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 28/05/2012 par T0134406
'
Private Declare Function MyFunc Lib "MyFuncDLL.dll" (ByVal y As Double) As Double
 
Public Function MyFuncVBA(x As Double, y As Double) As Double
MyFuncVBA = MyFunc(x, y)
End Function
 
Dim Param1 As Double, Param2 As Double, Result As Double
 
Param1 = Range("A2").Value
Param2 = Range("A3").Value
 
Result = MyFuncVBA(Param1, Param2)
 
Range("B2").Value = Result
 
'
End Sub

Comme vous pouvez vous en douter si j'en parle ici, ça ne fonctionne pas (apparemment, c'est l'inclusion de la fonction qui doit poser probleme car le message d'erreur de compilation est "seuls des commentaires peuvent apparaitre après End Sub, End Function ou End Property"). Comme c'est la première fois que je fais ça et que j'ai programmé cette macro en glanant ce que je pouvais sur différents documents d'initiation, je me retrouve un peu bloqué.
J'aurais bien besoin de vos conseils pour terminer et savoir comment faire fonctionner tout ça...

Merci d'avance à tous ceux (et celles) qui pourront y jeter un oeil.

PS: dois-je déplacer cette discussion dans la partie dédiée particulièrement aux macros et à VBA ?

[kiki29]

Salut, voir par exemple ici

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
Option Explicit
 
Private Declare Function MyFunc Lib "MyFuncDLL.dll" (ByVal y As Double) As Double
 
Public Function MyFuncVBA(x As Double, y As Double) As Double
    MyFuncVBA = MyFunc(x, y)
End Function
 
Sub tst()
Dim Param1 As Double, Param2 As Double, Result As Double
    Param1 = Range("A2").Value
    Param2 = Range("A3").Value
    Result = MyFuncVBA(Param1, Param2)
    Range("B2").Value = Result
End Sub

[granbapt]

Merci pour ces corrections ! Je n'avais en effet pas du tout compris comment cela se structurait.


J'ai maintenant deux autres questions :

1. Où dois-je placer le fichier MyFuncDLL.dll pour qu'Excel le trouve?
2. Comment faire pour que la macro soit toujours active sans avoir besoin de lancer son exécution manuellement (et ainsi que le resultat change automatiquement lorsqu'on modifie les valeurs des paramètres) ?