Microsoft 365 Resultat de Calculs multiples dans textbox

[eric72]

Bonjour à tous,

Je rencontre un problème de calcul de differentes textbox avec le resultat dans une textbox "CoutRevient",
j'aimerais qu'à chaque saisie "CoutRevient" se mette à jour, même si une cellule reste à 0 (exemple, il y a un pot mais sans emballage , le calcul se fait quand même) mais je désespère un peu !!!
Cela concerne le Userform
Quelqu'un peut-il m'aider?
Merci beaucoup
Eric

 

[eric72]

c'est bien ce qu'il me semble, mais alors à quel endroit le mettre, dois je créer un module?

 

[eric72]

Et ça :
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
je dois le mettre dans le code de l'Userform, désolé je suis un vrai boulet!!!
Merci
Eric

 

[Dranreb]

Après le chargement des données.
Oui dans l'UserForm. Je les aurais plutôt mis à la fin mais peu importe.

 

[eric72]

donc dans un module que j'appelle à chaque fois?
je ne suis pas très doué.
Merci

 

[Dranreb]

Non, dans l'UserForm c'est bien. Il faut juste vérifier s'il y a quelque chose dans les TextBox avant de faire le calcul et sinon l'y mettre d'abord. Utilisez Mnt pour tout transfert de montant. Pour des quantités une autre paire de Property serait plus indiquée avec CDbl au lieu de CCur et sans "€" dans le Format.

 

[eric72]

ok et par quel moyen peut on vérifier? Par si PRPlante <>0 par exemple?

 

[Dranreb]

Par des espions.

 

[eric72]

Et ce code ci
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))
il faut bien que je le mette dans un module non?
Désolé je ne comprends pas, cela vous ennuie-t-il de l'insérer dans mon fichier (sans vouloir abuser)?
Merci

 

[Dranreb]

Pourquoi dans un module; dans l'UserForm lorsque le calcul doit être fait.

 

[eric72]

j'ai fait comme ça:

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 = ""
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))

End Property
Private Property Get Mnt(ByVal TBx As MSForms.TextBox)
On Error Resume Next
Mnt = CCur(TBx.Text)
If Err Then Mnt = Empty
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))

End Property

Mais ça ne fonctionne pas!!!
désolé
Eric

 

[eric72]

peut être dans un évènement particulier de l'Userform?

 

[Dranreb]

Quand vous avez récupéré les infos.
Dans le fichier c"était dans une ComboBox_Change, il y avait un Vlookup et puis rien, il ne servait à rien puis que rien de ce qu'il pouvait avoir trouvé n'était récupéré.

 

[eric72]

je ne suis pas assez spécialiste et du coup je ne sais pas comment cela se traduit "Quand vous avez récupéré les infos"
je connais les sub, les private sub mais c'est tout

 

[Dranreb]

Vous connaissez quand même aussi les affectations, non ?

 

[eric72]

non pas du tout