Discussion :

[SEBJAK]

Bonjour

Je suis entrain d'adapter un fichier excel pour gérer la vente lors de représentations d'une association.
je coince lorsque j'essaye d'annuler une opération
(Difficile d'expliquer sans joindre mon fichier)

lorsque j'ajoute un élément à l'adition, j'utilise ce code

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
31
32
 
Private Sub CommandButton10_Click()
TextBox1 = "Bière"
 
If 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 (TextBox2 & " x " & TextBox1)
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

pour alimenter une BDD temporaire et une listbox

J'aimerai créer un bouton pour permettre de supprimer la ligne selectionnée dans la listbox et aussi dans la BDD

pour le moment j'ai ca

Code :

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

1
2
3
4
 
Private Sub CommandButton32_Click()
Me.ListBox1.RemoveItem Me.ListBox1.ListIndex
End Sub

qui fonctionne pour supprimer la ligne dans la listBox, mais je ne sais pas comment faire la suppression dans la BDD

D'avance merci bcp pour votre aide

[SEBJAK]

Bonjour

Quelqu'un aurai une piste pour m'aider à avancer ?

Merci