Calculs valeurs combobox

Résolu/Fermé
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - Modifié par surplus le 16/03/2014 à 04:55
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 18 mars 2014 à 14:16
Bonjour,
je voudrais faire une addition ou multiplication entre un textbox et un combobox
j'ai declare dans l'userform les variables
Option Explicit
Private Const T1 As Double = 64
Private Const T2 As Double = 67
Private Const T3 As Double = 72
mon combobox liste 3 choix T1,T2,T3
si je prends un textbox et je fais textbox1=T1 celui ci marquera 64
comment faire pour avoir

"textbox2"="textbox3" x "combobox1" d'apres la valeur T1,T2,T3

merci de votre aide car je planche grave

11 réponses

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
16 mars 2014 à 08:30
Bonjour,

essaie avec :
textbox2= cbdl(textbox3) * cbdl(combobox1)

eric
1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 mars 2014 à 14:09
Re,

fichier modifie:

https://www.cjoint.com/?DCsogSqEXuA

il y a quand meme des incoherences, vous affichez trois taux de TVA (entre autres) et vous faites faites des calculs TTC avec un taux ecrit en dur (1,2) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
Modifié par surplus le 16/03/2014 à 13:52
bonjour
ca me marque une erreur
"cbdl " est en cause
"erreur de compilation Sub ou function non definie"
J ai corrigé l'erreur en fait C'est cdbl et non cbdl qu'il fallait marquer la j'ai plus d'erreur mais ca bloque toujours ca calcule pas
surplus
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
16 mars 2014 à 13:47
Bonjour,

Essaie avec "CDbl"

A+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
16 mars 2014 à 14:51
mais ca bloque toujours ca calcule pas
Sûr qu'avec une bonne boule de cristal on devrait avancer.

448 posts et c'est tout ce que tu es capable de fournir comme explications ???
Tu en es encore à ce qu'on doive t'implorer pour avoir un fichier ?
Je rêve là !
Et bien non, je préfère abandonner tout de suite.
Bonne journée

eric
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
16 mars 2014 à 20:15
bonsoir
je pensais que la solution était simple pour ça j'ai pas mis le fichier
eriiic merci quand même
bonne soirée
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 mars 2014 à 09:06
Bonjour,

Tu n'aurais pas oublié Value!!!!!!!!!!

TextBox2.Value = TextBox1.Value * ComboBox1.Value
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
Modifié par surplus le 17/03/2014 à 13:55
Bonjour
meme avec value ça le fait pas
a bientot
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 mars 2014 à 14:04
Mets ceci:

Private Sub UserForm_Initialize()
ComboBox1.AddItem (T1)
ComboBox1.AddItem (T2)
ComboBox1.AddItem (T3)
TextBox1.Value = T1
End Sub


Cela fonctionne très bien chez moi.
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
17 mars 2014 à 19:46
Bonjour
en fait je l'ai fait comme tu fais ca marche c'est lors des additions entre textbox que ça bloque
additionne textbox1 avec un autre et ça bloquera
je vous mets le fichier en exemple si vous voulez
https://www.cjoint.com/?DCrtTVJ6Ic1
merci
a bientôt
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
18 mars 2014 à 08:07
Essaie cela pour additionner 2 textBox:

TextBox3.Value = Val(CStr(TextBox1.Value)) + Val(CStr(TextBox2.Value))
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
18 mars 2014 à 08:32
Pour que cela fonctionne il faut mettre un point pour les décimales. Avec les virgules cela arrondi. Vois ce qui t'intéresse?
0
Bonjour

les chifre sur une textbox aime pas du tout les virgule il faut un point

TextBox2.Value = val(TextBox1.Value )* val(ComboBox1.Value)

A+

Maurice
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
17 mars 2014 à 20:57
Bonjour
TextBox2.Value = val(TextBox1.Value )* val(ComboBox1.Value)
ca me met pas d'erreur mais toutes les cellules affichent 0,00
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 18/03/2014 à 11:21
Bonjour a tous,

Ce que veut faire Surplus ne marche pas en VB,VBA. Il veut utiliser la selection d'une combobox (ex:"T1") en nom de variable T1 declaree en const T1 as double=64, peu importe la declaration ca ne marche pas.

Surplus:
Pourquoi declarer des variables T1 ..... et vous ecrivez TextBox61="64,00" qui correspond a T1. Si pas modifiable alors ??????

Il faut utiliser soit un tableau THT(3) et idem pour les autres (TVA et TTC), soit prendre en compte ce que vous ecrivez dans les textboxs mais en donnant des noms a ces textboxs qui puissent etre utilises en tant que variables ex: TxtHTT1, TxtHTT2 etc en fonction de l'index des comboboxs


De toute facon li faudrait nommer vos objets parce que TextBox507 ca parle pas beaucoup

A+
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
18 mars 2014 à 12:18
bonjour
le textbox61 et les autres sont fixes ils sont la pour rappeller le taux de MO j'airais pu mettre des labels pareil
text box 507 parce que j'ai recopié un fichier qui portait deja des textbox du meme nom
c est pour ça j'ai renommé haut pour etre sur de pas avoir de conflit
ça a une importance du moment qu'ils sont repérés?
de toutes façon si c est pas fesable pas grave je mettrai les chiffres reels
A+++
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 mars 2014 à 13:38
Re,

Ce que vous demandez est parfaitement faisable, je vous modifie votre fichier.

A+
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
18 mars 2014 à 14:16
Re
merci
1.2 correspond a 20 %
le calcul est pas correct x100/20 = x1.2
trois taux de tva car si on vends tel ou tel article la tva n'est pas la meme
les 2 autres ne sont pas actualises mais pour le moment la tva 20 % m interesse
le reste on verra
merci de ta patience
a+++
0