Additionnez des Combo dans une text

[MacMac]

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

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

Merci de Pouvoir m'aidez

MacMac..........

 

[Yaloo]

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]

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 :

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]

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+