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