Calculs valeurs combobox

Résolu
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

  1. Contributeur
    Bonjour,

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

    eric
    1
    1. 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
      1. 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
        1. Contributeur
          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
          1. 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
            1. Contributeur
              Bonjour,

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

              TextBox2.Value = TextBox1.Value * ComboBox1.Value
              0
              1. Bonjour
                meme avec value ça le fait pas
                a bientot
                0
            2. Contributeur
              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
              1. 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
              2. Contributeur
                Essaie cela pour additionner 2 textBox:

                TextBox3.Value = Val(CStr(TextBox1.Value)) + Val(CStr(TextBox2.Value))
                0
              3. Contributeur
                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
            3. 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
              1. Bonjour
                TextBox2.Value = val(TextBox1.Value )* val(ComboBox1.Value)
                ca me met pas d'erreur mais toutes les cellules affichent 0,00
                0
            4. 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
              1. 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
              2. Re,

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

                A+
                0
            5. 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