Discussion :

[joker.benj]

Bonjour,

Je suis en train d'essayer d'écrire une macro assez lourde qui faire l'interface entre un logiciel externe (Femap v10) et Excel.
Mon but est de faire un macro qui appartient au code d'un onglet, afin d'avoir la possibilité de copier cette onglet entre les différents fichiers Excel et être sûr que le code suit.

Ce qui me complique la tâche, c'est que j'ai crée un type de donnée personnalisé (sous forme d'un arbre) et que j'ai besoin de fonction ou sous-procédures pour modifier des variables de ce nouveau type de donnée.

Et forcément, j'ai des erreurs de compilation. Il semblerait que je ne puisse modifier ces données personnalisée dans des fonctions, même en utilisant un module.

Est-ce que quelqu'un a une solution magique?
Merci pour votre aide,
BenJ

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
Public Type Edge_Matrix
    node As Long
    Neighbour() As Long
End Type
 
Public Type Vector
    x As Double
    y As Double
    z As Double
End Type
 
Sub Get_Center(ID1 As Vector, ID2 As Vector, ByVal outV As Vector)
' Calculate the coordinates of the center between 2 points.
 
    outV.x = (ID1.x + ID2.x) / 2
    outV.y = (ID1.y + ID2.y) / 2
    outV.z = (ID1.z + ID2.z) / 2
 
End Sub

[el_slapper]

mmmh, du code dupliqué, voilà une source habituelle de soucis.

Est-ce que tes déclarations sont dupliquées? Si oui, pas la peine de chercher plus loin la source de tes ennuis.

Si non, si sur un seul EXCEL tu as une seule déclaration, tu as un autre problème : le ByVal. ByVal signifie que tu passes la valeur, et qu'elle ne sera pas changée dans la procedure. Ton code compile correctement si tu mets ta sortie en ByRef. Et surtout, il sera juste. Même si il compilait, ton code actuel ne te donnerait pas la réponse. Juste avec ByRef, c'est du tout cuit.

Mais c'est, à mon sens, suboptimal. une fonction est plus adaptée :

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
 
Function GetCenter(ID1 As Vector, ID2 As Vector) As Vector
    GetCenter.x = (ID1.x + ID2.x) / 2
    GetCenter.y = (ID1.y + ID2.y) / 2
    GetCenter.z = (ID1.z + ID2.z) / 2
End Function
 
Sub Main()
    Dim Vecteur1 As Vector
    Dim Vecteur2 As Vector
    Dim Vecteur3 As Vector
    Vecteur1.x = 4
    Vecteur1.y = 4
    Vecteur1.z = 4
    Vecteur2.x = -2
    Vecteur2.y = 2
    Vecteur2.z = -2
    Vecteur3 = GetCenter(Vecteur1, Vecteur2)
    MsgBox (Vecteur3.x & "/" & Vecteur3.y & "/" & Vecteur3.z)
End Sub

Sinon, un objet serait encore mieux, mais ça peut être du boulot de transférer les modules de classes d'un classeur à l'autre.