retirer un element d'une listbox et le déduire d'un labelRésolu

Question

Bonjour,

voici mon souci. 

j'ai une listbox2 de deux colonnes, une pour l'article l'autre pour le prix.
j'ai un label qui fait le total des pris de ma liste.
lorsque je doubleclique sur un article , je le retire de la liste et je souhaiterais qu'il se déduise de mon total (logique!)
j'ai essayé ceci, mais il me déduit seulement le prix de la première ligne et lorsqu'il retire le dernier élément de la liste, il plante, il n'affiche pas zéro...
et concernant les chiffres, y a t il moyen d'afficher dans le label le prix avec deux décimal (par exemple 20,00  et pas 20)?
voici mon code:

option explicit

Private Sub Listbox2_Dblclick(ByVal Cancel As MSForms.ReturnBoolean)
'enlève la ligne sélectionnée
ListBox2.RemoveItem (ListBox2.ListIndex)
'déduit la somme du total
Label6.Caption = Label6.Caption - ListBox2.List(0, 1)

Merci à vous!

Lunikmarty · Accepted Answer

Dim ligneSelectionne As Integer
   
    'Récupération de l'index de la ligne
    ligneSelectionne = ListBox2.ListIndex

    'Déduit de la somme total (prix avec deux décimal)
    Label6.caption = Format(Label6.caption - ListBox2.List(ligneSelectionne,1), "00.00")

    'Suppression de la ligne dans la liste

    ListBox2.RemoveItem (ligneSelectionne)

cs_Fabian123 · Answer

merci!!!

Retirer un element d'une listbox et le déduire d'un label

2 réponses

Votre réponse

Discussions similaires