faire une addition avec un label

[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 :
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

 

[pierrejean]

Re : faire une addition avec un label

bonjour fabian123
peut-etre

Private Sub ValeurTotale()

Dim Val_Total As Double
Dim j As Double
j = [COLOR=red]Cdbl([/COLOR]Label1.Caption[COLOR=red])
[/COLOR]Val_Total = Val[COLOR=red]_[/COLOR]Total + j

Label2.Caption = Format(Val_Total, "0.00")

End Sub

 

[fabian123]

Re : faire une addition avec un label

Bonjour pierrejean,

merci pour ton aide, mais ca ne fonctionne pas, je devrais peut etre essayer de faire autrement...

 

[pierrejean]

Re : faire une addition avec un label

Re

peux-tu poster un fichier exemple STP