Microsoft 365 Calcul TEXTBOX dans Userform

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2021

• #151

oui ok mais a quel moment ca doit etre calculé

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2021

• #152

allo!!

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 29 Octobre 2021

• #153

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!!!

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2021

• #154

c'est fait

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 29 Octobre 2021

• #155

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 29 Octobre 2021

• #156

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2021

• #157

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2021

• #158

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 29 Octobre 2021

• #159

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2021

• #160

non pas question on abandonne pas

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2021

• #161

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2021

• #162

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

VB:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 29 Octobre 2021

• #163

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

 

Pièces jointes

• Testeuro.gif

  47.7 KB · Affichages: 11

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2021

• #164

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 30 Octobre 2021

• #165

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

 

Vote positif 0 Vote négatif