Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
'fonction appelante
Public Function résultatCalculs(ByRef ResultatCalcul As DataSet1.ResultatCalculDataTable, ByVal longueurSep As System.Double, ByVal largeurSep As System.Double, ByVal epaisseurSep As System.Double)
'
'
'
     Call calcul(ResultatCalcul, Cartons, Intercalaires, longueurSep, largeurSep, epaisseurSep)
'les paramètres cartons et intercalaires ne passent pas. ils correspondent tous 2 à des tables du dataset1...
'
'
end function
 
'procédure appelée
    Public Sub calcul(ByRef ResultatCalcul As DataSet1.ResultatCalculDataTable, ByVal longueurSep As System.Double, ByVal largeurSep As System.Double, ByVal epaisseurSep As System.Double, ByVal Cartons As DataSet1.CartonsDataTable)



s'il y a besoin de précisions ... ya qu'à demdander
merci d'avance