addition a partir d'un label

Bonjour,

voici mon souci:

j'ai un userform avec les objets suivants:

une listbox
un commandbutton
deux labels

la listbox a 2 colonnes une avec les articles et l'autre avec leurs prix.
le total de ces prix est affiché dans un label (label1)
lorsque l'utilisateur appuie sur le bouton, il vide la listbox et remet le label1 à zéro.
je souhaiterais, qu'en plus le total du label1 viennent se placer dans le label2 et qu'ils s'additionnent à chaque clique de bouton...

voici ce que j'ai fait comme procédure et que j'appelle dans le commandbutton_click. Mais, il m'affiche toujours 0,00 il n'additionne rien!

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ValeurTotale()   Dim Val_Total As Double Dim j As Double j = Label1.Caption Val_Total = ValTotal + j   Label2.Caption = Format(Val_Total, "0.00")   End Sub

---

Citation:

---

voici ce que j'ai fait comme procédure et que j'appelle dans le commandbutton_click. Mais, il m'affiche toujours 0,00 il n'additionne rien!

---

Tu devrais rechercher parmi de toutes récentes dicussions relatives à l'utilisation de la fonction Val ou de la fonction CCur (selon que ce que tu as dans le Label utilises comme séparateur décimal le point ou la virgule) ;)

Hello,

d'où vient ValTotal ?

Mise à part la question pertinente de cafeine, ce ne serait pas plus simple comme ça:

Code:

---

1 2 3

Private Sub ValeurTotale() Label2.Caption = Format(Val(Label1.Caption) + Val(Label2.Caption), "0.00") End Sub

---

?

Et comme je sens venir la question suivante, une petite gestion des virgules dans les labels:

Code:

---

1 2 3 4

Private Sub ValeurTotale() Label2.Caption = Format(Val(Replace(Label1.Caption, ",", ".")) _ + Val(Replace(Label2.Caption, ",", ".")), "0.00") End Sub

---

Bonsoir,

C'est là tout le problème des transformations automatiques de VB (valeurs VB vers Label, msgbox, etc...)

La méthode (son Edit) d'AlainTech est sans faille, mais elle impose une discipline dont l'oubli ici ou là dans le code (en exploitant la valeur du label affichant le total, par exemple) peut générer des erreurs.

Utiliser une virgule comme séparateur puis Ccur peut également être source d'ennui ou de complications du code ailleurs.

L'idéal est de ne travailler qu'avec des nombres utilisant le point comme séparateur décimal.
Mais, nous interrogeons-nous immédiatement, comment le faire puisque VB va transformer spontanément ce point en virgule dans le Caption du Label ?

L'idée est que la fonction Str, elle, ne pratique pas cette modification d'office et garde donc le séparateur point.

Nous nous en servons donc ainsi :

Code:

---

1 2 3 4

Private Sub Command1_Click() Label1.Caption = "1.2" Label2.Caption = Str(Format(Val(Label1.Caption) + Val(Label2.Caption), "0.00")) End Sub

---

on verra, en cliquant plusieurs fois, que l'addition se fait tout en gardant le point comme séparateur décimal.
Toute autre opération utilisant la valeur contenue dans Label2 pourra donc ainsi se faire très simplement par l'utilisation de Val(Label2.Caption)

Ce n'est que mon avis....

Mais tu perds l'affichage "local"...

Oui, je perds l'affichage "local" (mais c'est mon choix entre deux maux)

Ceci dit, voilà comment j'ai ménagé une fois la chèvre (ma secrétaire) et le choux (l'intérêt général) :

Code:

---

1 2 3 4 5

Private Sub Command1_Click() Label1.Caption = "1.2" Label2.Tag = Str(Format(Val(Label1.Caption) + Val(Label2.Tag), "0.00")) Label2.Caption = Val(Label2.Tag) End Sub

---

;)