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

 

[patricktoulon]

oui ok mais a quel moment ca doit etre calculé

 

[patricktoulon]

allo!!

 

[eric72]

l'idéal serait que ca se calcule au fur et à mesure qu'un prix de revient soit rempli, mais ça c'est dans l'idéal!!!

 

[patricktoulon]

c'est fait

 

[eric72]

Et il restera juste la marge (sous le prix de vente) qui correspond à ca:
Me.Marge.Value = (CDbl(Me.PrixVente) - CDbl(Me.CoutRevient)) / CDbl(Me.CoutRevient)) En Pourcentage
Merciiiii

 

[eric72]

Patrick,
Dans 10 minutes je dois aller bosser, je pourrais regarder de temps en temps peut être.
Sinon on finalise ça Mardi si tu peux!!!
1000 Mercis
Eric

 

[patricktoulon]

je fini marge centrale là et ce sera fait dans la classe aussi LOL
JE T ENVOIE L EPROUVETTE DANS 5 MINUTES

 

[patricktoulon]

purée non c'est pas bon j'ai des soucis avec le"€" qui rend en string dans mon array
je vais trouver la combine

 

[eric72]

si c'est trop galère tu les vires!!!

 

[patricktoulon]

non pas question on abandonne pas

 

[patricktoulon]

je te fait signe dès que j'ai une solution propre

 

[patricktoulon]

i'me a best codeur
voila ma sub marge centrale dans la classe

Public Sub calMargCentrale()
Dim V, I&
V = Array(UsF.PRPlante, UsF.PRPot, UsF.PRPlaque, UsF.TxtPrMO, UsF.PRChromo, UsF.PREntourage, UsF.PREtiquette, UsF.PRCdt, UsF.PREmballage, UsF.PRAccess, UsF.PRTransport)
For I = 0 To UBound(V)
If V(I) = "" Then V(I) = 0 Else V(I) = CDbl(Replace(V(I), " €", ""))
Next
UsF.CoutRevientMargeCentrale = Application.WorksheetFunction.Sum(V) ' * Sheets("Données").Range("ac2")
End Sub

 

[ChTi160]

Bonsoir eric
Bonsoir Patrick (merci de tes encouragements Lol)
Moi j'aime bien ainsi et ça supprime ces problèmes de String !
à voir si utile
Bonne fin de Soirée
Jean marie

 

[patricktoulon]

Bonjour Eric

les news

classe ("mestextboxfram") fini ( toujours qu'une seule😂 )code opérationnel a 100% OK

1. inscription et désinscription(quand effacement dans textbox) OK
2. calcul et textbox avec formats OK
3. marge centrale OK
4. coût de revient (avec gestion d'erreurs des sous opérations divized by zéro quand textbox vide) OK

reste a faire :

1. bouton ajouter
2. bouton modifier
3. bouton supprimer
4. remplissage de la combo jaune de recherche( sans doute pour le mode modification)
5. prix de vente
6. marge

j'attends de tes nouvelles pour mettre au point les choses sur ce qui reste a faire
😉

 

[eric72]

Bonjour Patrick,
Tu es un Big Boss, super.
Pour les bouton ajouter et Modifier il faut a la fois que ça aille dans l'onglet "Produit" DANS "BdProduit", mais aussi dans l'onglet "Données" dans "TbProduit" mais uniquement "le Libellé", le "Code Article", le "Prix de vente" et le "Conditionnement".
Je dois partir en week-end dans 5 minutes donc si tu préfères on voit ça mardi matin...
Et puis il faut te reposer!!!
Super!!!
Merci beaucoup
Eric