Appel des fonctions à partir d'un module

Version imprimable

Voir 40 message(s) de cette discussion en une page

Après c'est tout je pense que ça doi être pareil pour les profil et tout...
Et mettre la disposition comme je veux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Exemple pour 1client ayant 2profil à faire traiter : 
-Le Client : "Popo" 
-Sa référence "987" 
 
-Pour un profil : "Bati" 
Tôle ==> 1.8 
Carrée ==> 2.12 
 
-Toutes les pièces font : "3.92" m² 
-Avec un Ensemble est de : "2" 
-Le développé de toutes les pièces représente : "7.84" m² 
 
-Pour un profil : "Caillebotis" 
Rond ==> 0.8 
HEA ==> 0.521 
 
-Toutes les pièces font : "1.321" m² 
-Avec un Ensemble est de : "2" 
-Le développé de toutes les pièces représente : "2.642" m² 
-Pour ce même client : Un développé de "10.482" m² (7.84 + 2.642)

21/03/2007, 11h02
rv26t

L'appel de "totG" se fait dans form3

la première fois tu appelles avec 7.84 (traitement du premier profil saisie)
la deuxième fois tu appelles avec 2.642 (traitement du deuxième profil saisie)

Tu auras ainsi ton total de 10.482

Pour les traitements de tes profils, c'est ton analyse qui t'indique comment faire, moi je ne sais pas. Là ce n'est pas du vb, c'est du fonctionnel.

pour simplifier, utilise une procedure pour le calcul (puisque ça tu connais)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim dblTotal As Double '------------------------- Public sub dblTotal = 0 end sub '------------------------- 'but : réalise la somme ' Entrée : Valeur = le nombre à ajouter Public sub TotalG(Valeur As Double) dblTotal = dblTotal + valeur End sub '------------------------- ' but : donne le résultat ' Renvoie : le total Public Function DonneTotal As double DonneTotal = dblTotal End Function
dans form3
Chaque fois que la saisie est validée =>

Code:

Call TotalG(...) (... représente ta variable ou la zone de saisie contenant le nombre)

Quand les saisies sont finie
Code:

1 2 monresultat = DonneTotal() ' tu as le résultat pour en faire ce que tu veux call InitialiseTotal ' pour d'autre calcul
la fonction te renvoie le résultat
Tu as là toutes les explications

Voir 40 message(s) de cette discussion en une page