Microsoft 365 Resultat de Calculs multiples dans textbox

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2021

• #31

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Octobre 2021

• #32

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Octobre 2021

• #33

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2021

• #34

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Octobre 2021

• #35

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 5 Octobre 2021

• #36

Je dois m'absenter
Merci
Eric

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2021

• #37

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Octobre 2021

• #38

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

VB:

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.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 6 Octobre 2021

• #39

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Octobre 2021

• #40

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 6 Octobre 2021

• #41

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Octobre 2021

• #42

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.

 

Vote positif 0 Vote négatif