Bonjour à toutes et à tous,


J'ai une TextBox1 qui vaut 3 ou 6 suivant certaines conditions.
Ma TextBox 2 vaut 10 ou 20 suivant certaines conditions et sera à comparer avec la TextBox3.

La TextBox3 correspond au total de 5 ComboBox.

Voici mon programme :





Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ComboBox1_Change()
TextBox3 = val(TextBox1) + val(ComboBox1) + val(ComboBox2) + val(ComboBox3) + val(ComboBox4) + val(ComboBox5)
End Sub
Private Sub ComboBox2_Change()
TextBox3 = val(TextBox1) + val(ComboBox1) + val(ComboBox2) + val(ComboBox3) + val(ComboBox4) + val(ComboBox5)
End Sub
Private Sub ComboBox3_Change()
TextBox3 = val(TextBox1) + val(ComboBox1) + val(ComboBox2) + val(ComboBox3) + val(ComboBox4) + val(ComboBox5)
End Sub
Private Sub ComboBox4_Change()
TextBox3 = val(TextBox1) + val(ComboBox1) + val(ComboBox2) + val(ComboBox3) + val(ComboBox4) + val(ComboBox5)
End Sub
Private Sub ComboBox5_Change()
TextBox3 = val(TextBox1) + val(ComboBox1) + val(ComboBox2) + val(ComboBox3) + val(ComboBox4) + val(ComboBox5)
End Sub

Voici mon problème :
La fonction "val" ne prend pas en compte les nombres décimaux comme 1,5 par exemple. Seule la partie entière est prise en compte.

Je vous remercie d'avance pour vos réponses.

Novice72