Discussion :

[walf80]

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 :

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
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)

[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.

[rv26t]

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

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Quand les saisies sont finie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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