calculs multiples et auto dans userform

[pierolefou]

Je repose mon problème (déposé il y a deux trois jours en pleine nuit (hum...)) en espérant qu'une âme charitable doublée d'un esprit brillant m'aidera à le solutionner..

Le fichier incriminé, est téléchargeable ici :

"http://www.cijoint.fr/cjlink.php?file=cj200808/cijiwvmxBt.xls"

J'ai repéré les bouts de code qui ne vont pas dans le code VBA de l'userform « cableinformatiquecuivre », (descendare à plus de la moitié du code)

J’ai réussi à faire en sorte que les totaux se fassent automatiquement sur changement de certains champs, MAIS :

Je voudrais que le TOTAL GENERAL et Le PU Main d'oeuvre se mettent également à jour :
- lorsque je modifie la quantité
- lorsque je modifie la remise fournisseur


ALORS qu’est-ce qui cloche ? ai-je omis des choses importantes ? ai-je faux de bout en bout dans ma démarche ?


Private Sub TextBox7_Change()
'% de REMISE FOURNISSEUR

TextBox11 = Format(100 - Val(TextBox7), "0")
'% payé

TextBox10 = Format(CDbl(TextBox6) * (Val(TextBox11) / 100), "0.00")
'Prix UNITAIRE ACHAT FO

TextBox35 = Format(CDbl(TextBox10) * Val(Replace(Me.coeff, ",", ".")), "0.00")
'Prix UNITAIRE de VENTE FOURNITURES

TextBox13 = Format(CDbl(TextBox35) * Val(qt), "0.00")
'Prix TOTAL FOURNITURES
'Je ne sais pas comment faire pour automatiser le total général (textbox27)
End Sub


Private Sub qt_Change()
'LIGNE PRODUIT
TextBox11 = Format(100 - Val(TextBox7), "0")
'% PAYé
TextBox10 = Format(CDbl(TextBox6) * (Val(TextBox11) / 100), "0.00")
'Prix UNITAIRE D'ACHAT FOURNITURES
TextBox35 = Format(CDbl(TextBox10) * Val(Replace(Me.coeff, ",", ".")), "0.00")
'Prix UNITAIRE de VENTE FOURNITURES
TextBox13 = Format(CDbl(TextBox35) * Val(qt), "0.00")
'Prix TOTAL FOURNITURES

'LIGNE MAIN D'OEUVRE
TextBox25 = Format(Val(TextBox101) * Val(TextBox102), "0.00")
TextBox31 = Format(CDbl(TextBox25) * Val(qt), "0.00")


'TOTAL GENERAL
TextBox27 = Format(CDbl(TextBox13) + CDbl(TextBox31), "0.00")
'TOTAL GENERAL
End Sub

POUR ESSAYER :
ouvrir le fichier
1/ feuille bordereau, cliquer le smiley
2/ nouveau produit
3/ cable informatique cuivre
4/ choisir produit (les lignes vides ne doivent pas générer d'erreur, mais rendre les champs invisible : j'ai commencé mais pas terminé le boulot )
5/ modifier les champs à fond blanc

On voit que la mise à jour n'est pas faite sur tout les champs...
VOILA LE BLEME !

merci d'avance pour votre aide

Piérolefou