Additionner un TextBox et un Label Résolu

Question

Bonjour !

Je vous explique mon probl&#232;me : J'ai une valeur dans un TextBox : 12, et une autre dans un Label1 : 34. J'ai une macro dans laquelle je rentre : Label2 = TextBox + Label1. Et l&#224;, le r&#233;sultat n'est pas 46 mais 1234 (les nombres &#224;  la suite). Pouvez-vous me dire comment faire pour additionner ces deux valeurs ? Et me dire par la m&#234;me occasion comment faire les soustractions, les divisions et les multiplications...

Merci.

jrivet · Answer

Salut,
La propriete par defaut de label est caption (le contenu) celle du textbox est text alors lorsque tu fais Label2 label1 + textbox (en fait tu fait contenu du label deux Contenu du label1 et contenu du text a la suite)

Pour additioner les valeurs du contenu:

Label2.caption = cstr(cint(Textbox.text) + Cint(Label1.caption))

Et voila
5idem pour les soustraction division....

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jpleroisse · Answer

Bonjour,

.

Private Sub Command1_Click()

Label1 = 34

Text1.Text = 12

Label2 Val(Label1) + Val(Text1.Text) 'Val valeur

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

lenemmasque · Answer

Je valide les deux, parce que les deux fonctionnent...
Merci beaucoup !

crenaud76 · Answer

A noter qu'il vaudrait mieux eviter l'utilisation de Val() et préféré celle de CInt() pour des raison de sécurité.

jrivet · Answer

Re,

> Crenaud76: Tout a fait d'accord. (petite "erreur" de ma part)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

lenemmasque · Answer

Pour quelle raison ?

jrivet · Answer

Salut,

Val() est plus adaptee que Cint() pour plusieurs raison:

Si text.text = 50000 : Cint(Text.text) genere une erreur car un entier en VB6 a la valeur max de: 32767.

Ensuite val te renvoie une valeur de type Double (possibilite de valeur beaucoup plus grande)
Mais en plus si par exemple (tire de la MSDN) Text.text = "    1615 17e si&#232;cle" Val te renvoie 161517 (d'accord ca peu etre a double tranchant.)

Voila en esperant avoir pu t'aider un peu

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

crenaud76 · Answer

C'et bien pour cela que je conseillais d'utiliser plutot CINT() à la place de Val(), qui ne bronche pas si ce qu'on lui file en argument ne représente pas un nombre !!
Si le Int ne suffit pas, au lieu de CInt(), on peut utiliser CLng() ou CDbl() par exemple.

CR

Additionner un TextBox et un Label

8 réponses

Discussions similaires