Discussion :

[vilaf]

Bonjour,

quelqu'un peut-il m'expliquer pourquoi, dans une macro, la formule suivante affiche bien le résultat de l'opération mathématique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 prod = TextBox1.Value * TextBox2.Value
 Label1.Caption = prod

(p.ex. si je saisi 10 dans la TextBox1 et 2 dans la TextBox2, la Label1 affiche 20)

alors que la formule suivante effectue la concaténation des chaînes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 somme = TextBox1.Value + TextBox2.Value
 Label1.Caption = somme

(p.ex. si je saisi 10 dans la TextBox1 et 2 dans la TextBox2, la Label1 affiche 102).

Et surtout, comment afficher le résultat de l'addition dans la label (12 pour l'exemple précédent) ?

Merci d'avance.

[aalex_38]

A mon avis il faut passer par des variables

[zandru]

Bonjour,

je mettrais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

somme = CDec(TextBox1.Value) + CDec(TextBox2.Value)

Pour imposer le format décimal aux valeurs des textbox (décimal ou autre évidemment )

[vilaf]

Merci zandru, votre solution a résolu le problème.

aalex, passer par des variables ne résout rien , merci quand même.

[aalex_38]

aalex, passer par des variables ne résout rien , merci quand même.

Evidemment la méthode de Zandru est bien meilleure, cependant ceci fonctionne chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim var1 As Long
Dim var2 As Long
 
var1 = TextBox3.Value
var2 = TextBox4.Value
 
resulte = var1 + var2
MsgBox resulte

[garion28]

ce qui rentre dans un textbox ressort en type string, c'est donc pour ca que ca concatène (le + est un des opérateur de concaténation au même titre que le &)
si tu met tes valeur dans une variable de type numérique comme aalex_38 l'a fait, ca ne les concatènera pas


le vba est plutot un language pèpère qui ne se pose pas trop de question sur certain point