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

 

[Dranreb]

Pourtant il y e a plein dans votre UserForm. C'est tout ce qui est de la forme VariableOuPropriété = Expression

 

[eric72]

Je crois que je vais stopper là mes recherches, je suis un bricoleur qui récupère des exemples à droite à gauche mais ne suis pas encore capable de bien assimiler le vocabulaire technique.
Je pensais que vous pourriez me mettre un exemple, ça serait beaucoup plus simple à comprendre mais ça n'est pas grave.
Merci quand même de m'avoir consacré tout ce temps mais je n'y arriverais pas avec ces seules explications.
Eric

 

[eric72]

Si seulement vous aviez accepté de modifier mon code!!!

 

[Dranreb]

Non. Je n'interviens que sur des UserForm utilisant cette ressource :

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

 

[eric72]

alors dans ce cas comment fait-on pour passer par cette ressource?

 

[eric72]

Je dois m'absenter
Merci
Eric

 

[Dranreb]

Il y a de nombreux exemples sur ce site.
On peut utiliser le complément qui s'installe sur accord à l'ouverture du fichier téléchargé ou on peut installer les modules de service à même le projet du classeur d'application.

 

[Dranreb]

Bonjour.
En attendant, pour vous faire patienter, peut être que cette procédure vous ferait avancer ?

Private Sub CalculCoutRevient()
   Mnt(CoutRevient) = Mnt(PRPlante) + Mnt(PRPot) + Mnt(PRPlaque) + Mnt(TxtPrMO) + Mnt(PRChromo) _
      + Mnt(PREntourage) + Mnt(PRCdt) + Mnt(PREmballage) + Mnt(PRAccess) + Mnt(PRTransport)
   End Sub

À invoquer, si c'était bien ce que vous vouliez, à chaque fois que vous changez une des TextBox de l'expression.

 

[eric72]

Bonjour et merci
Mais ça ne fonctionne que si toutes les textbox sont remplies, si elles sont à 0 ca bug!!!
Merci quand même
Eric

 

[Dranreb]

Certainement pas, ça met 0 si aucune n'est remplie !

 

[eric72]

oui mais si certaines sont remplies et pas d'autre!!!

 

[Dranreb]

Il prend 0 pour celles qui ne le sont pas. Ou plus exactement Empty, qui est pris comme 0 dans des calculs, contrairement à un texte vide qui fait une incompatibilité de type.