Discussion :

[senso19]

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.

De plus, je n'arrive pas à faire fonctionner le bouton "Supprimer ligne".

Auriez vous la solution svp?

Voici le code avec le PAD numérique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton24_Click()
TextBox1 = "Coca Cola"
 
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

[unparia]

Bonjour

Juste pour te signaler que tu trouveras du plus complet encore dans cette discussion :
https://www.developpez.net/forums/d1...reateur-macro/
Et le tout, sans que l'utilisateur n'ait à saisir quoi que ce soit (tout se fait par des clics).