Problème d'addition de label (VBA / EXCEL)

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:

---

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.

Bonjour,

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

Code:

---

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:

---

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

---

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

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:

---

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

---

A+

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

Code:

---

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:

---

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.

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 ?

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

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:

---

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:

---

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

---

Citation:

---

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 :

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



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

---

Vu qu'un label n'a pas de propriété Locked qu'on puisse mettre à False, si dreamerforever ne s'est pas planté, il peut s'agir de valeurs prédéterminées à l'initialisation de l'usf, ( qui viennent de cellules etc.) qui représentent des valeurs à ne pas modifier dans l'usf justement et qu'il a choisi de mettre en label.
Ensuite, pour une raison indéterminée, il veut pouvoir sommer ces valeurs pour autre choses.

A lui de dire le contexte de sa question et si ça concerne une saisie numérique dans une textbox.

cordialement,

Didier

En fait ce sont des labels car il y avait un autre calcul derrière... Enfin peu importe le principe est que cela marche.

Je vous remercie pour vos réponses en vous souhaitant une bonne continuation ;)


dreamerforever