Incrémenter une listbox clic

Bonjour,

Je désire réaliser une caisse enregistreuse où le clic sur un bouton permet d’incrémenter la listbox .

_ Ex: je click sur le bouton du Coca, la listbox indique "Coca x1" et si je click à nouveau, elle affiche alors "Coca x2".

Actuellement, je gère cela avec un pad numérique.

Voici mon code:

Private Sub CommandButton41_Click()
TextBox1 = "Autre Soda"

If TextBox1 = "" Or TextBox2 = "" Then
    MsgBox "Vous devez impérativement remplir la quantitée et l'article avant de valider", vbInformation
    Exit Sub
End If
dlf_bdd = Sheets("BDD").Range("a" & Rows.Count).End(xlUp).Row
Set Table = Sheets("BDD").Range("b2:c" & dlf_bdd)
With Sheets("Temp")
    dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1
    .Range("a" & dlf) = Date
    .Range("b" & dlf) = CDbl(TextBox2)
    .Range("c" & dlf) = TextBox1
    .Range("d" & dlf) = .Range("b" & dlf) * Application.WorksheetFunction.VLookup(.Range("c" & dlf), Table, 2, 0)
End With
ListBox1.AddItem (TextBox1 & " x " & TextBox2)
TextBox1 = ""
TextBox2 = ""

With Sheets("Temp")
    dlf = .Range("a" & Rows.Count).End(xlUp).Row
    If dlf > 1 Then
        For i = 2 To dlf
            Total = Total + .Range("d" & i)
        Next i
    End If
End With
TextBox4 = Format(Total, "Currency")
End Sub

-> Textbox2 affiche le nombre du pad

Merci beaucoup

Bonjour

Tu devrais joindre ton fichier complet...

Bye !

Salut,

Merci pour ta réponse, je mets ça de suite.

PS: je mets un fichier avec moins d'élément car le fichier final est trop volumineux.