Discussion :

[fabian123]

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 :

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

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

[ucfoutu]

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)

[cafeine]

Hello,

d'où vient ValTotal ?

[AlainTech]

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

Code :

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

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 :

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

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

[ucfoutu]

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 :

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

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....

[AlainTech]

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

[ucfoutu]

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 :

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

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