Microsoft 365 Calcul TEXTBOX dans Userform

[eric72]

Bonjour,
Je cherche à faire des calculs de Textbox dans un Userform en sachant qu'elles ne sont pas toujours toutes renseignées à chaque fois, malgré cela j'aimerais que le calcul se fasse quand même en tenant compte de celles renseignées, donc j'ai adapté ce code mais ça ne va pas.
Ou est la boulette?
Merci à tous

 

[eric72]

Je t'ai usé Patrick?

 

[patricktoulon]

non il faudra te lever de bonne heure pour ça
j'ameliore la conception
donc pour emballage
au click sur les combo ca met le prix blaco et "1" dans quantité sinon c'est pas cohérent le calcul avec le visuel

et si j'efface le Qte(1 ou 2 ou 3) ça efface le blaco et la combo correspondante

 

[eric72]

ah ok, et le calcul et se met à jour si on supprime quantité?

 

[patricktoulon]

oui ca c'est fini depuis un moment deja
dans la classe je l'avais prévu hier deja
aujourd'hui j'ajoute seulement les condition et la gestion d'erreur du CDBL SUR UN TEXTBOX VIDE
30 sec je te fait une demo

 

[patricktoulon]

demo

 

[eric72]

Je crois que quand on supprime le transporteur dans "plante" le calcul ne se remet pas à jour!!!

Le reste à l'air top.

 

[patricktoulon]

ok je verifie ça

 

[patricktoulon]

ya qu'a demander
quand on concoit bien on peut facilement apporter des modifs

 

[eric72]

Toutes les frames sont ok alors?
Il n'y a plus que le cout de revient et le cout de revient marge centrale, mdrrrr!!!

 

[patricktoulon]

allez pour le fun tu préfère avoir vide quand je supprime le transporteur ou "0,00 €"

 

[eric72]

vide c'est aussi bien parce que s'il y a un prix d'achat et un coeff, ça n'est pas logique que ça soit 0, sinon ça devrait être prix achat*coeff

 

[patricktoulon]

ok

bon c'est quoi ta marge central
la formule avec les nom des textboxs si possible

 

[eric72]

CoutRevientMargeCentrale = (PRPlante + PRPot + PRPlaque + TxtPrMO + PRChromo + PREntourage + PREtiquette+ PRCdt + PREmballage + PRAccess+ PRTransport) * Sheets("Données").Range("ac2")

et

CoutRevient= ((CDec(Me.PrixAchatPlante) * CDec(Me.TransPlante)) + CDec(Me.PrixAchatPlante))+ (CDec(Me.PrixPot))+(CDbl(Me.PrixPlaque) / CDbl(Me.NbPlantePlaque))+(CDbl(Me.TxtCoutHrMO) * CDbl(Me.TxtTempsMO))+CDbl(Me.PrixChromo)+CDbl(Me.PrixEntourage)+CDbl(Me.PrixEtiquette)+(CDbl(PrixCdt) + CDbl(TxtSoie) + CDbl(TxtCordelette) + CDbl(TxtEtiquetteCarton))+(CDbl(Mousseline) + CDbl(Kraft) + CDbl(DsSmith))+CDbl(TxtPrixAccessoire)+(CDbl(PoidsPlante) * CDbl(PrixKgPlante))

Bonne chance

 

[patricktoulon]

ok je tente le marge central
il faut conditionner la gestion d'erreur des cdbl sur txtbox vide

et a quel moment ca doit etre calculé????????

 

[eric72]

en fait c'est l'addition des (PRIX REVIENT)* Taux comm centrale (en ac2 feuille Données)