Calculs valeurs combobox

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
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. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

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

    eric
    1
  2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  3. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
     
    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
  4. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Essaie avec "CDbl"

    A+
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  7. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
     
    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
  8. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

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

    TextBox2.Value = TextBox1.Value * ComboBox1.Value
    0
    1. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      Bonjour
      meme avec value ça le fait pas
      a bientot
      0
  9. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      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. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Essaie cela pour additionner 2 textBox:

      TextBox3.Value = Val(CStr(TextBox1.Value)) + Val(CStr(TextBox2.Value))
      0
    3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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
  10. foo
     
    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. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      Bonjour
      TextBox2.Value = val(TextBox1.Value )* val(ComboBox1.Value)
      ca me met pas d'erreur mais toutes les cellules affichent 0,00
      0
  11. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

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

      A+
      0
  12. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
     
    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