Additionner plusieurs TextBoxRésolu

Question

Bonjour à tous, Dans mon mon UserForm3, je veux additionner plusieurs TextBox pour afficher le résultat dans un autre TextBox. Voici mon code:

Private Sub CommandButton2_Click() TextBox25.Text = CStr(CDec(TextBox16.Text * TextBox15.Text) + CDec(TextBox18.Text * TextBox17.Text) + CDec(TextBox20.Text * TextBox19.Text) + CDec(TextBox22.Text * TextBox21.Text) + CDec(TextBox24.Text * TextBox23.Text)) TextBox26.Text = CStr(CDec(TextBox25.Text) * (7 / 100)) TextBox27.Text = CStr(CDec(TextBox25.Text) * (6 / 100)) TextBox28.Text = CStr(CDec(TextBox25.Text) + CDec(TextBox26.Text) + CDec(TextBox27.Text)) End Sub

Mon problème est que s'il y à un des TextBox de vide, il me met en érreur. (Voir en rouge) Comment faire pour qu'il ignore les TextBox vides? Merci de votre aide!!

avyrex1926 · Accepted Answer

Merci pour vos réponse.

Finallement, j'ai donnée une valeur par défaut à tous les TextBox concernées et ça marche nickel.

Merci beaucoup!!!!!!

cs_MPi · Answer

Le mieux est d'utiliser des variables qui reçoivent les valeurs des différents Textbox.
Si le textbox est vide, tu lui refiles 0 (à la variable) et ça devrait bien fonctionner.

MPi

Additionner plusieurs TextBox

2 réponses

Votre réponse

Discussions similaires