Discussion :

[arnold95]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

Bonjour

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

[Didier Gonard]

Bonsoir,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
TextBox2 = ComboBox1 * TextBox1
End Sub

Ou pour coller à ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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