Additionnez des Combo dans une text

MacMac · 12 Février 2012

Bonjour le Forum ,

Voila j'essaye additionnez des combo et avoir le résultat dans une textBox dynamiquement mais impossible a obtenir le résultat souhaitez

je me sert de se morceau de code et arrive pas a identifiez ou est l'erreur

Code:

Private Sub TextBox23_Change()
TextBox23.Text = CDbl(ComboBox_J22.Text) + CDbl(ComboBox_K22.Text)
End Sub

Merci de Pouvoir m'aidez

MacMac..........

Yaloo · 12 Février 2012

Re : Additionnez des Combo dans une text

Bonjour MacMac,

Ta ligne de code ne devrait-elle pas être plutôt dans :

Private Sub Combobox_J22_Change()

et

Private Sub Combobox_k22_Change()

A+

Robert · 12 Février 2012

Re : Additionnez des Combo dans une text

Bonjour MacMac, Yaloo, bonjour le forum,

D'accord avec Yaloo sue le premier point. Ensuite, la conversion en donnée de type Double d'une chaine de caractère vide (= "") provoque un bug... On peut donc attribuer lors de l'initialisation de l'UserForm des valeurs nulles au comboboxes :

Code:

Me.ComboBox1.Value = 0
Me.ComboBox2.Value = 0

Ça fonctionne mais il peut encore y avoir des problèmes si on supprime la valeur dans l'une des comboboxes.

Un petit fichier exemple :

Yaloo · 12 Février 2012

Re : Additionnez des Combo dans une text

Salut Robert, le forum,

En effet, ta remarque est tout à fait pertinente, tout dépend dans ce que l'on a dans l'initialisation.

A+

Additionnez des Combo dans une text

MacMac

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Pièces jointes

Yaloo

XLDnaute Barbatruc

Discussions similaires