Microsoft 365 Resultat de Calculs multiples dans textbox

Dranreb

XLDnaute Barbatruc

• 28 Septembre 2021

• #2

Bonjour.
Vous pourriez avoir intérêt à adopter ces procédures property :

VB:

Private Property Let Mnt(ByVal TBx As MSForms.TextBox, ByVal RHS As Variant)
   On Error Resume Next
   TBx.Text = Format(RHS, "0.00 €")
   If Err Then TBx.Text = ""
   End Property
Private Property Get Mnt(ByVal TBx As MSForms.TextBox)
   On Error Resume Next
   Mnt = CCur(TBx.Text)
   If Err Then Mnt = Empty
   End Property

Exemples d'utilisation :

Code:

Mnt(CoutRevient) = Mnt(PrixPlantePlusCher) * Mnt(TransPlante) + Mnt(PrixPlantePlusCher) + Mnt(PrixPot)

Code:

Cells(derligne, 16) = Mnt(PrixAchatPlante)

 

Dernière édition: 28 Septembre 2021

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Septembre 2021

• #3

Bonjour DranReb,
Merci pour votre réponse mais je ne comprend spas du tout ou mettre ce code, de plus cela doit fonctionner pour toutes les textbox commencant par PR, pouvez-vous m'indiquer ou placer ces codes.
Merci beaucoup pour votre aide
Eric

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Septembre 2021

• #4

Ben vous le mettez à la fin par exemple, puis dans le reste du code vous n'accédez plus nulle part autrement à ces TextBox qu'à travers ce Mnt(TextBox), aussi bien en entrée qu'en sortie.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Septembre 2021

• #5

Ou alors vous utilisez mon objet ControlsAssociés. Il se charge des conversions numériques dans les deux sens.
Mon CmboBoxLiées, lui, permettrait d'éviter la colonne "Nom Complet"

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Septembre 2021

• #6

Je crois avoir trouvé une solution toute bête, dans initialize du Usf si je met toutes les textbox=0
il semble que le calcul se fasse correctement, est ce que cette solution est valable pour vous?
Merci
Eric

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Septembre 2021

• #7

Non, ça empêchera toujours le calcul en cas de composante manquante. Tandis que la Property Get Mnt gère le cas où le texte de la TextBox ne peut être converti en nombre.

 

Vote positif 0 Vote négatif

Solution

E

eric72

XLDnaute Accro

• 28 Septembre 2021

• #8

ah ok alors j'essaie tout ça et vous redis
Merci encore
Eric

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Septembre 2021

• #9

Re Bonjour,
En fait j'ai conservé ma solution car je n'ai pas réussi avec la vôtre (oups la honte), cela fonctionne bien par contre j'ai crée un autre userform pour modifier le sproduits et là, la mise à jour des calculs ne se fait pas!!!
Merci beaucoup pour votre dévouement.
Eric

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Septembre 2021

• #10

Qu'est ce que vous avez essayé qui n'a pas réussi ?

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Octobre 2021

• #11

Bonjour Dranreb,
je viens de m'apercevoir que je ne vous avais pas répondu, 1000 excuses!!!
j'ai toujours un gros problème de calcul mais bon!!!
j'ai mis un post à ce sujet, je ne sais pas si je peux vous en parler ici (charte)
Bonne soirée
Cordialement
Eric

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Octobre 2021

• #12

J'ai essayé votre code mais je ne dois pas le mettre ou il faut, au cas ou je vous joins mon fichier!!!
mERCI
Eric

 

Pièces jointes

• Fiche Produit test calcul 2.xlsm

  344 KB · Affichages: 5

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2021

• #13

Bonjour.
C'est touffu tout ça. Pouvez vous m'indiquer une suite de manœuvres précises avec lesquelles ça ne marche pas ?

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Octobre 2021

• #14

Bonjour,
Déjà je ne suis pas sur de mettre votre code au bon endroit, exemple je l'ai mis dans une combobox change

Private Sub CbTransporteur_Change()
On Error Resume Next
Me.TransPlante = Application.VLookup(CbTransporteur, Sheets("Données").Range("TbTransporteur"), 2, 0)
PRPlante = (PrixAchatPlante * TransPlante) + (PrixAchatPlante * CoeffPlante)
Mnt(CoutRevient) = (Mnt(PrixAchatPlante) * Mnt(TransPlante)) + Mnt(PrixAchatPlante) + Mnt(PrixPot) + (Mnt(PrixPlaque) / Mnt(NbPlantePlaque)) _
+ (Mnt(TxtCoutHrMO) * Mnt(TxtTempsMO)) + Mnt(PrixChromo) + Mnt(PrixEntourage) + Mnt(PrixEtiquette) + Mnt(PrixCdt) + Mnt(TxtSoie) _
+ Mnt(TxtCordelette) + Mnt(TxtEtiquetteCarton) + Mnt(Mousseline) + Mnt(Kraft) + Mnt(DsSmith) + Mnt(TxtPrixAccessoire) + (Mnt(PoidsPlante) * Mnt(PrixKgPlante))

On Error GoTo 0
End Sub
et mon "CoutRevient" ne se calcule pas!!!
J'espère être assez clair
Merci
Eric

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2021

• #15

Ben alors moi non plus je ne peux pas savoir s'il est au bon endroit.
Là c'est effectué quand une ComboBox change. C'est bizarre dans la mesure ou d'habitude on rapatrie d'abord des données dans les TextBox avant de faire des calculs avec …

 

Vote positif 0 Vote négatif