Pb avec une textbox

Bonjour,

J'ai un petit soucis au niveau d'une textbox:
En fait j'ai une textbox dans laquelle j'entre une valeur (textbox_1) , j'ai également une combobox dans laquelle je choisi une des valeurs proposées (combobox_1) et je voudrais avoir le résultat de la valeur textbox_1 * combobox_1 dans une textbox (textbox_2). Voici le code mais malheureusement celà ne marche pas...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub textbox_1_change() CA = textbox_1 End Sub   Private Sub combobox_1_change() Pi = combobox_1 End sub   Private sub textbox_2_change result = Pi * CA End sub

---

Merci.

Bonne journée.

Bonjour

Citation:

---

Envoyé par arnold95

Voici le code mais malheureusement celà ne marche pas...

---

Qu'est-ce qui ne marche pas ?

Tu multiplies quoi ? Des chiffres ? Peut-être un problème de conversion de données, de quel type sont tes variables ?

Philippe

Bonsoir,

Citation:

---

et je voudrais avoir le résultat de la valeur textbox_1 * combobox_1 dans une textbox (textbox_2).

---

Donc il est normal que ton code ne donne rien le change du textbox2 n'a jamais lieu.

Essaies un truc du genre, ou comme tu a fais, mais lié à l'évènement qui a lieu : le change du textbox1 ;)

Code:

---

1 2 3

Private Sub TextBox1_Change() TextBox2 = ComboBox1 * TextBox1 End Sub

---

Ou pour coller à ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub combobox_1_change() Pi = combobox_1 End sub   Private Sub textbox_1_change() CA = textbox_1 result = Pi * CA TextBox2 = result End Sub

---

tu peux jouer sur la proprièté visible des objets pour imposer un ordre de saisie ;)


ou encore, si tu as lié ta textbox2 à une cellule nommée "result"via sa propriété ControlSource, tu peux avoir :

Code:

---

1 2 3 4 5

Private Sub textbox_1_change() CA = textbox_1 Range("result") = Pi * CA ' alias : ComboBox1 * TextBox1 ' ce qui affichera la textbox2 comme voulue End Sub

---

Didier