résultat d'une procédure appeléeRésolu

Question

'appel procédure calcul








Call
 calcul(resultatcalculrow, frmEmballage.txtLong.Text, frmEmballage.txtLarg.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)


'appel procédure calcul avec longueur et largeur séparateur inversée






Call
 calcul(resultatcalculrow2, frmEmballage.txtLarg.Text, frmEmballage.txtLong.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)


'recherche de la valeur la moins chère afin de l'insérer dans coutTotalMetre de la table ResultatCalcul
if
'je dois pouvoir récupérer les valeur des 2 lignes de procédures séparément afin de pouvoir les comparer ... et là ... je nage ... 
end if

Renfield · Accepted Answer

a = calcul(resultatcalculrow, frmEmballage.txtLong.Text, frmEmballage.txtLarg.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)

b = calcul(resultatcalculrow2, frmEmballage.txtLarg.Text, frmEmballage.txtLong.Text, frmEmballage.txtEp.Text, cartonRow, intercalaireRow)

If a > b Then 
   ...
End If 

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cpattin · Answer

j'enlève le call ?????

cpattin · Answer

sans le call, ça ne fonctionne plus

Molenn · Answer

Pour que cela fonctionne comme cela Renfield, il ne faut pas que ce ça soit une fonction (juste une question, je n'ai pas vérifié ^^) ?

Parce que le plus simple, si ta procédure le permet (on ne connait pas son contenu), c'est de faire une fonction. Si ta procédure aboutit à une valeur unique au final, transforme là en fonction, et tu met en sortie de ta fonction le résultat : 

Public Function Calcul(....)

   calcul = résultat de ton traitement

End Function

Comme ça, il te suffira ensuite dans ton code de mettre le résultat dans une variable avec le code de Renfield

A= Calcul(.....)

Si tu restes en procédure, le plus simple est de déclarer des variables publiques, ou au moins commune à ton module, que tu renseignes dans ta procédure.
Comme ça, tu auras de quoi les comparer. Tu déclares 2 variables et suivant l'arguement, tu remplis différemment 
Un truc du style : 

If argument = resultatcalculrow then
   a = toto
   else
   b = toto
end if

Molenn

Renfield · Answer

cool

ca veux dire quoi, ne fonctionne plus ?

calcul est bien une fonction ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cpattin · Answer

procédure

mortalino · Answer

Beh voilà, Private ~~Sub~~ Function calcul(..) As Type Et le code de Renfield fonctionnera @++

( Nouveau forum : Exclusivement Office & VBA

cpattin · Answer

merci à tous !!

Résultat d'une procédure appelée

8 réponses

Votre réponse

Discussions similaires