Comment faire nue addition de valeurs numérique avec plusieurs TextBox ?Résolu

Question

Bonjour,

Je suis débutant en VBA Excel. Je cherche à effectuer une addition de valeurs numériques de plusieurs Texbox pour ensuite l'afficher, soit dans un TextBox ou autre chose.
J'ai réussi à obtenir mon additio par le code suivant

Range("A16") = TextBox1.Value
Range("A17") = TextBox2.Value
Range("A18") = Cells(16, 1) + Cells(17, 1)
TextBox5.Enabled = False
TextBox5.Value = Cells(18, 1)

Ce code fonctionne mais je souhaiterais ne pas passer par les cellules du logiciel Excel. Si quelqu'un peut m'indiquer une solution.

Merci.

jrivet · Accepted Answer

SAlut,
Essaie 
TextBox5.Value = CInt(TextBox1.Value) + CInt(TextBox2.Value)

@+: Ju£i?n
Pensez: Réponse acceptée

cs_DARKSIDIOUS · Answer

Ceci devrait marcher :

TextBox5.Value = TextBox1.Value + TextBox2.Value

Ou sinon :
TextBox5.Value = Val(TextBox1.Value) + Val(TextBox2.Value)

jrivet · Answer

Re,
>[auteurdetail.aspx?ID=13557 DARKSIDIOUS]: ceci TextBox5.Value = TextBox1.Value + TextBox2.Value ne ferait il pas plutot une concaténation de chaine?

@+: Ju£i?n
Pensez: Réponse acceptée

hvb · Answer

meme si cela n'en est pas une concaténation...
ces très mauvaises habitudes de conversions implicites ne sont pas à prendre.

Hvb a.k.a Batto 
http://batto.info/ ^^x
bato.ltd .at. gmail.com

jrivet · Answer

Re,
> [auteurdetail.aspx?ID=16938 hvb], je n'ai pas compris ce que tu as voulu dire

@+: Ju£i?n
Pensez: Réponse acceptée

hvb · Answer

j'ai voulu dire que faire TextBox5.Value = TextBox1.Value + TextBox2.Value  ...
C'EST DEGUEULASSE.
J'allais dans ton sens en fait...

Hvb a.k.a Batto 
http://batto.info/ ^^x
bato.ltd .at. gmail.com

sylvanoGE · Answer

Tout d'abord, merci pour vos réponses très rapides.

Après quelques essais, je vous informe de mes essais

la solution TextBox5.value = TextBox1.value + TextBox2.value concatène les deux valeurs numériques.
la solution TextBox5.Value Val(TextBox1.Value) + Val(TextBox2.Value) fonctionne pour les nombres entier de même que TextBox5.Value CInt(TextBox1.Value) + CInt(TextBox2.Value)

Comme s'est la première fois que je demande de l'aide sur un forum, j'ai oublié de données des infromations. Je travail avec des nombres décimaux.

Merci

jrivet · Answer

Salut,
Dans ce cas utilises CDec à la place de CInt

@+: Ju£i?n
Pensez: Réponse acceptée

cs_MPi · Answer

En plus de CDec, tu peux utiliser CSng ou CDbl qui conservent les décimales
J'opterais pour ce dernier...

MPi

sylvanoGE · Answer

Merci jrivet, CDec est la solution.
Donc pour être clair, la solution est

TextBox5.Value =   CDec(TextBox1.Value) + CDec(TextBox2.Value)

Cette ligne permet de faire une addition (et non une concaténation) de chiffre numérique décimaux et l'affiche dans la TextBox5

Quelques explications : la concaténation est due au fait que les TextBox (ainsi que les InputBox) renvoie avec   TextBox.value   un chaîne de caractères (string). La fonction CDec permet de convertir un élément en une variable numérique décimale. Il ne faut pas oublier auparavant de tester si TextBox.value est un chiffre par la fonction IsNumeric(TextBox1.Value)   = True

Merci pour toutes vos réponses.

jrivet · Answer

Re,
Si tu estimes que ton problème est résolu pense à appuyer sur le bouton réponse acceptée sur le OU les post qui t'on aide

@+: Ju£i?n
Pensez: Réponse acceptée

Comment faire nue addition de valeurs numérique avec plusieurs TextBox ?

11 réponses

Votre réponse

Discussions similaires