Re Pompaero le forum
si tu veux modifier il faut aussi mettre à jour la listbox et les colonnes prix total alors voilà a tester pour toi
et tu me rediras
a+
papou
Private Sub CommandButton10_Click()
Dim i As Long, j As Long
Dim tabArticles() As Variant
Dim nbLignes As Long
nbLignes = ThisWorkbook.Sheets("Panier").Range("A65536").End(xlUp).Row
tabArticles = ThisWorkbook.Sheets("Panier").Range("A1:R" & nbLignes + 1).Value
For i = 1 To nbLignes
If tabArticles(i, 6) = Me.Lst_Panier Then
If MsgBox("Voulez vous MODIFIER l'enregistrement de l'article ?", _
vbQuestion + vbYesNo, "Modification") <> vbYes Then Exit Sub
tabArticles(i, 5) = Me.TextBox1.Value
tabArticles(i, 12) = Me.TextBox2.Value
tabArticles(i, 16) = Me.TextBox1.Value * tabArticles(i, 13)
Me.Lst_Panier.List(Me.Lst_Panier.ListIndex, 1) = Me.TextBox1.Value
Me.Lst_Panier.List(Me.Lst_Panier.ListIndex, 3) = Me.TextBox2.Value
Me.Lst_Panier.List(Me.Lst_Panier.ListIndex, 5) = tabArticles(i, 16)
Exit For
End If
Next i
ThisWorkbook.Sheets("Panier").Range("A1:R" & nbLignes + 1).Value = tabArticles
End Sub