Bonjour,
Pour ajouter une quantité, mettre le nombre en positif et pour retrancher, et bien en négatif (moins devant le nombre) !
Private Sub B_modif_Click()
With Sheets("STOCK").Cells(ComboBox1.ListIndex + 2, 6)
.Value = .Value + Me.TextBox2.Text * 1 '*1 pour convertir string en nombre
End With
End Sub
Pour suppression d'un enregistrement :
Private Sub B_SUPP_Click()
Sheets("STOCK").Cells(ComboBox1.ListIndex + 2, 6).EntireRow.Delete
End Sub