Pb de syntaxe

Bonjour,

Je débute et j'ai un soucis pour créer une macro sous VB Excel. Voici ce que je cherche a faire:

Dans mon premier module, j'aimerai passer deux arguments à la subroutine suivante:

Code:

---

1 2 3

Sub calcul_deformation_global(debut As Integer, fin As Integer) ..... End Sub

---

et mettre dans la subroutine principale:

Code:

---

1 2 3 4 5

Sub calcul .... calcul_deformation_global (1,10) ... End Sub

---

Sauf que la syntaxe de "calcul_deformation_global (1,10)" ne lui plait pas.
Bien sur, je vais appeller plusieurs fois la subroutine calcul_deformation_global avec des arguments différents.


Merci à tous pour votre aide.

Est ce que ta sub calcul_deformation_global renvoie bien une valeur (j'imagine que c'est pour être réutilisée derrière.. non ?) Si c'est pas le cas alors il serait intéressant de nous montrer ton code. Si ce n'est pas le cas commence par la.

Merci de t'interessé à mon problème, peaceandloveman01

Je joins le détail de ma sub ci dessous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub calcul_deformation_global(debut As Integer, fin As Integer)   ReDim mat_inter(7, 6, 6) As Double ReDim produit(7, 6) As Double Dim i As Integer   For i = debut To fin   produit = produit_matrice6616(grand_mi, F_grand_Xn_extremité, i)   For j = 1 To 6 Worksheets("Affichage").Cells(j + 7 * i + 3, 82).Value = produit(i, j) Next j   For j = 1 To 6 D_grand_Xn(i, j) = produit(i, j) Next j   Next i   End Sub

---

Cette Sub ne renvoie rien car j'ai definit D_grand_Xn en public (Public D_grand_Xn(7, 6) As Double).
Je précise qu'Excel attend derrière "ligne calcul_deformation_global (1,10)" un = quelque chose.
Le problème est le même si je remplace "Sub calcul_deformation_global(debut As Integer, fin As Integer)" par "Function calcul_deformation_global(debut As Integer, fin As Integer)"

Je rajoute la fonction produit_matrice6616 au cas où...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function produit_matrice6616(A() As Double, B() As Double, k As Integer) As Double() ' Multiplie une matrice 6*6 par une 1*6 (car k est fixé)   Dim i As Integer Dim j As Integer ReDim produit(7, 6) As Double     For i = 1 To 6 produit(k, i) = 0 For j = 1 To 6 produit(k, i) = produit(k, i) + A(k, i, j) * B(k, j) Next j Next i produit_matrice6616 = produit End Function

---

Citation:

---

calcul_deformation_global (1,10)" un = quelque chose

---

Si tu utilise ça comme instruction alors c'est normal que ça ne marche pas. Tu ne peut pas dire à une fonction qui calcule d'être égal à qqch. Sous vba, lorsque tu veux qu'une variable soit égale à quelque chose c'est:

Code:

---

variable = methode_de_calcul(i,j)

---

Et non l'inverse comme il semblerait que tu fais...

Je me suis mal fait comprendre.
Quand je valide la ligne "calcul_deformation_global (1,10)", Excel ouvre une fenetre me disant:
"Erreur de compilation
Attendu : ="

En fait, je suis d'accord avec toi, cette sub fait un calcul et ne peut pas être égale à quelque chose.

Pour info, si:
- je remplace en dur dans cette sub début par 1 et fin par 10
- et que j'écris calcul_deformation_global sans rien derrière dans la sub principale
ca marche.
Dès que j'essaie de passer ces 2 paramètres (début et fin) cela ne plus!
Que faire?

Quand tu écris des procédures ou des fonctions, n'oublie pas de mettre les balises codes, c'est beaucoup plus lisible pour nous de passer derrière :)

Tu peux éditer tes messages pour le faire, ça serait bien :) merci :)

bonjour,

Citation:

---

Sub calcul_deformation_global(debut As Integer, fin As Integer)
.....
End Sub

et mettre dans la subroutine principale:

Sub calcul
....
calcul_deformation_global (1,10)
...
End Sub

---

si tu veux que ta procedure te renvoie une valeure celle ci doit etre une fonction et non pas une sub

Code:

---

1 2	valeur = calcul_deformation_global(debut As Integer, fin As Integer)

---

il me semble que d apres ce que tu nous a montré calcul.... est une sub

Patbou,

Ma sub ne renvoie rien (en fait, elle fait des calculs sur une variable déclarée en public) donc cela ne devrait pas poser de problème. Pour info, j'ai quand même essayé de remplacer sub par function et ca ne marche pas non plus.

là, j'avoue ne pas trop comprendre ce qui bloque. Tu pourrais nous envoyer le fichier excel si possible ? Je pense qu'on y verra un peu plus clair

Ci joint le programme. Merci d'avance pour indulgence (la programmation n'est pas très propre car j'ai déjà du contourner des problèmes de syntaxe).

Bonjour à tous

bon en mettant Call devant cà mache, par contre tu as d'autre erreurs plus loin, our tu lance ta macro avec 1 seul argument alors qu'elle en attend 2

bonne journée

Bonjour,

je suis en train d'analyser ton code. Merci de nous l'avoir envoyé car personnellement, j'y vois déjà beaucoup plus clair !!! :D
Ceci dit ton codage est bourré de bug. :evilred: Par exemple, tu définis la sub calcul_deformation_global avec deux variables integer. Mais lorsque tu fais appel à cette fonction, tu ne mets qu'une seule variable "k" en paramètre. Il t'en manque une... :( Et malgré mes connaissances dans le domaine que tu traites dans ce fichier, j'avoue ne pas suffisamment comprendre ton code pour te dire quelle autre variable mettre. :roll: J'éspère que tu t'y retrouveras. Je te conseille par ailleurs de mettre des noms encore plus explicites pour tes variables. quitte à mettre des noms allongés style "raideur_poutre_X". 8O

Petite question perso: tu bosse dans quelle domaine? C'est du calcul de structure que tu fais? Parce que si c'est le cas je ne suis pas sur que Excel soit le meilleur logiciel pour faire ce genre de calcul. Tu devrais plutôt le faire sous MatLab ... :?

Allez je retourne examiné à la loupe ton code. Bon courage et bonne journée !:yaisse2:

Cordialement,

Lyonel

Encore une chose: pour la fonction calcul_deplacement_local tu dois absolument mettre une variable devant egale à ce que la fonction retourne ....

ta fonction construction_matrice_Bin est censée te renvoyer quoi comme matrice? :roll: Et puis tu écris:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Function construction_inverse_somme_matrice_Bin(n As Integer, Bin As Double) As Double() ' Construction de la matrice somme des Bin sert au calcul de RXn ReDim A(6, 6) As Double For i = 1 To 6 For j = 1 To 6 A(i, j) = 0 Next j Next i For i = 1 To n A = A + construction_matrice_Bin(Nin, mi) Next i construction_inverse_somme_matrice_Bin = inverse_matrice(ByVal A) End Function

---

or tu définis ainsi ta fonction: Function construction_matrice_Bin() c'est à dire sans paramètres alors le "Nim,mi" est de trop ;) . Revois peut-être ta méthode de calcul ou modifie la définition de la fonction....

Ensuite dans ta sub calcul tu demande:

Code:

---

1 2 3 4 5 6 7 8 9

' Chargement des données Chargement   ' Calcul de toute les matrices carrée Mi avec transformation en une matrice cubique construction_matrice_Mi     ' Calcul de toutes les matrices Bin= Nin.Mi.transpose(Nin) avec transformation en une matrice cubique construction_matrice_Bin

---

Résultat, suivant comment tu définis tes fonctions, recherche dans tout le projet les endroits ou tu les appelles pour le faire correctement (avec paramètres ou sans, c'est toi qui voit) Essaie d'être un peu plus "rigoureux" dans ta façon de coder. Prends peut-être des notes sur les fonctions et leur définition pour savoir comment les utiliser comme il faut derrière :oops: Ca marche bien la prise de note. Ca permet plus de clareté d'esprit et moins d'erreur d'inattention. Ceci dit je ne veux pas faire de morale mais juste donner des conseils pour éviter ce genre de problèmes. Essaie ton code à chaque fois que tu peux pour être sur que ça fonctionne...

Essaie de modifier un peu tout ce que je t'ai présenter et tiens nous au courant. Faut que je retourne bosser donc à + et bon courage !!! :lol:

Cordialement,
lyonel

Bon j'analyse tes remarques et je corrige mon programme et on en reparle lundi.

Lorsque l'on passe plus d'un paramètre à une procédure (Sub), il faut supprimer les parenthèses.

Si une procédure est utilisée pour calculer un résultat, il vaut mieux la transformer en fonction (Function).

Salut à tous,
Désolé de ne pas avoir répondu plus tôt, mais j'ai eu un imprévu lundi.

Peaceandloveman01,
1- C'est "normal" que j'ai un fois deux variables et une fois une seule variable comme paramètre quand j'appelle calcul_deformation_global car avant je passais un seul paramètre (l'autre était en dur) et c'est lorsque j'ai voulu en mettre 2 que le compilateur n'a pas aimé (et d'où l'ouverture de ce fil) et j'ai pas eu le temps de finir de mettre à jour l'appel dans le corps principal du programme.

2- pour le passage des paramètres dans construction_matrice_Bin(Nin, mi), ca marche (résultat ok) donc je ne me suis pas posé de question. Mais je vais examiner le sujet.

3- Je travaille sur le calcul simple de poutres encastrés aux deux extrémités soumis à de la dilatation thermique. L'ancien calcul se faisait dans une feuille excel, mais lorsqu'on rajoute des supports intermédiare, le calcul se corse et il faut faire du calcul itératif, d'où le recours au VB.

Citation:

---

Envoyé par AlainTech

Lorsque l'on passe plus d'un paramètre à une procédure (Sub), il faut supprimer les parenthèses.

---

-> peux-tu, STP, me mettre un exemple.

A tous,
L'un d'entre vous aurait-il un exemple, simple (accessible à un ingé mécanicien de base, sans forms et autres joyeuseté du même genre, juste du calcul scientifique avec des commentaires bien clair). J'ai cherché mais je n'ai pas encore trouvé ce genre de chose.

Merci encore pour votre aide.
Skiff

Citation:

---

Envoyé par skiff

-> peux-tu, STP, me mettre un exemple.

---

Appel d'une procédure avec 2 paramètres:

Code:

---

MaSub Param1, Param2

---

Appel d'une fonction avec 2 paramètres:

Code:

---

ResultatAttendu = MaFonction(Param1, Param2)

---