Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

calculs multiples et auto dans userform

pierolefou

XLDnaute Nouveau
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…