Addition de label [Résolu]

Signaler
Messages postés
20
Date d'inscription
samedi 13 mai 2006
Statut
Membre
Dernière intervention
29 octobre 2008
-
Messages postés
20
Date d'inscription
samedi 13 mai 2006
Statut
Membre
Dernière intervention
29 octobre 2008
-
bonjour a tous
je dispose de 2 labels numeriques  avec 2 decimal
est il possible de les additionner
et de voir le resultat dans un troisieme label
ex : label1 10,55    label2 12,00     label3=22,55

merci d' avance

6 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Essaie ceci

Label3 = CDbl(Label1) + CDbl(Label2)

MPi²
Messages postés
20
Date d'inscription
samedi 13 mai 2006
Statut
Membre
Dernière intervention
29 octobre 2008

merci MPi
ta reponse me convient parfaitement
et cela marche
encore Merci

TextBox1_KeyUp
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Salut [auteur/TOMMARIANNE/773019.aspx tommarianne]

Les labels contiennent des valeurs chaines de caractères ( String en anglais) dans leurs propriétés Caption
Pour additionner leus valeurs il faut utiliser la fonction Val
La fonction str$ transforme un valeur numérique en une chaine de caractères

Exemple
dim total as double
Label1.caption = "10,55"
Label2.caption = "12,00"
total = val(label1.caption) + val(label2.caption)
Label3.caption = str$(total) 
 
GRENIER Alain
Messages postés
20
Date d'inscription
samedi 13 mai 2006
Statut
Membre
Dernière intervention
29 octobre 2008

merci GALAIN pour ta reponse rapide
mais les decimales ne sont pas prises en compte
est ce possible ?
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Remplace les virgules par des points dans tes labels

Exemple
dim total as double
Label1.caption = "10.55"
Label2.caption = "12.00"
total = val(label1.caption) + val(label2.caption)
Label3.caption = str$(total) 
 
GRENIER Alain
Messages postés
20
Date d'inscription
samedi 13 mai 2006
Statut
Membre
Dernière intervention
29 octobre 2008

merci encore
mais mon probleme viens que

A1 et A2 sont sous forme monétaire pour être utilisés dans d' autres calculs
dans les textbox je rentre des nombres entiers

Private Sub TextBox1_Change()
label1 = Format(TextBox1.Value * Sheets("DEBUT").Range("A1"), "00.00 ?")
End Sub

Private Sub TextBox2_Change()
label2 = Format(TextBox2.Value * Sheets("DEBUT").Range("B1"), "00.00 ?")
End Sub

d' ou mon probleme de virgule dans les labels 1 et 2
pour les additionner dans le label3 avec les décimales