calculs dans userform par privatesub change

[pierolefou]

Hello les "excellents"

J’ai un problème dont je n’arrive pas à trouver la solution, ni sur ce site ni (encore moins) dans mes neurones !

Le fichier, allégé de beaucoup de choses, est ici :

Cijoint.fr - Service gratuit de dépôt de fichiers

A priori voici les bouts de code qui ne vont pas. (je les ai repéré dans le code VBA, userform « cableinformatiquecuivre », en descendant à 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 général se mette é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

 

[pierolefou]

Re : calculs dans userform par privatesub change

Tout le monde est en vacances ?

pierrejean ? BrunoM45 ? Yeahou ? BERRACHED said ? les autres ???

Eh oh ! la plage ! la montagne, vous m'entendez ?

hihi

Que les rares présents se penchent sur mon cas, siou plé...