Discussion :

[dreamerforever]

Bonjour,

J'ai cherché sur Internet sans réelle solution. Je souhaite additionner des label le souci est que quelque soit le nombre ce dernier est entier.

Exemple : si on saisit 3.5555, j'obtiens 3 au total.

Voici une partie de mon code :

Code :

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

1
2
somme = Round(Val(label01) + Val(label02) + Val(label03),2)
total.Caption = somme

En attente de vos réponses, je vous remercie par avance.

[JPierreM]

Bonjour,

Essaie dans un premier temps de mettre les labels au format suivant :

Code :

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

1
2
3
4
5
Label1.Value = Format(Label1.Value, "#,##0.00")
.
.
.
LabelN.Value = Format(LabelN.Value, "#,##0.00")

Puis de faire l’addittion

Code :

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

total.Caption = Format(CDbl(Label1.Value) + . . . + CDbl(LabelN.Value), "#,##0.00")

J’ai déjà utilisé cela avec des TextBox

[dreamerforever]

Je viens de tester cette réponse et je vous en remercie.

Code :

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

1
2
3
4
5
Label1.Caption= Format(Label1.Caption, "#,##0.00")
.
.
.
LabelN.Caption= Format(Label1.Caption, "#,##0.00")

J'ai remplacé Value par Caption car il y avait une erreur de compilation idem pour le reste du code :

Code :

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

total.Caption = Format(CDbl(Label1.Caption) + . . . + CDbl(LabelN.Caption), "#,##0.00")

Malheureusement, cela ne résout pas le problème car en fait le compilateur indique une incompatibilité de type.


Merci pour votre patience et vos réponses.

[dreamerforever]

Je sais d'où vient le problème. Je me suis rendu dans les paramètres régionaux afin de remplacer la virgule par un point. Si j'applique cette méthode, le calcul est juste. Cependant, il me faudrait une solution sans avoir à passer par les paramètres régionaux.

Avez-vous une idée ?

[Didier Gonard]

Bonjour,



vois du côté de la fonction replace pour changer la virgule en point avant traitement tutoriel de Sylkyroad ou aide vba.


cordialement,

Didier

[laetitia]

bonjour tous pourquoi tu utilises des labels il faut utiliser des textboxs bien plus de possibilitées..... de plus val accepte que le point!!
exemple basique avec 3 textboxs un bouton tu rentres des valeurs dans textbox 2 & 3 clic sur commandbutton tu as le resultat

Code :

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

1
2
3
Private Sub CommandButton1_Click()
TextBox3 = (CDbl(TextBox1) + CDbl(TextBox2))
End Sub

si tu veus limiter la frappe a une expression numerique tu peus rajouter ces codes

Code :

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

1
2
3
4
5
6
Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger)
If InStr("0123456789.", Chr(keyAscii)) = 0 Then keyAscii = 0
End Sub
Private Sub textBox2_keyPress(ByVal keyAscii As MSForms.ReturnInteger)
If InStr("0123456789.", Chr(keyAscii)) = 0 Then keyAscii = 0
End Sub

[Gorfael]

Salut dreamerforever et le forum
Un dépannage demande qu'on puisse connaître le problème et le contexte : un extrait omet le contexte
testes ça, en espèrant que somme est déclarée en variable Double

Code :

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

1
2
somme = Round(cdbl(label01) + cdbl(label02) + cdbl(label03),2)
total.Caption = somme

A+