Formule excel

jeanpierre à dit:

Re,

Je comprends mieux mais toujours est-il que l'on perd complètement l'historique des opérations.

Dans ton code :

Private Sub B_Validation_Click()
Dim y As Long
y = SpinButton1
With Sheets("Feuil3")
.Cells(y, 1) = EntréeSortie.Value
.Cells(y, 2) = CDate(Calendar1)
.Cells(y, 3) = DésignationArticle
Select Case EntréeSortie.ListIndex
Case 0
.Cells(y, 4) = Quantité.Value
Case 1
.Cells(y, 4) = 0 '- Quantité.Value
End Select
End With
IniUsf '<---------

End Sub
Sub IniUsf() '<---------
With Sheets("Feuil3")
dL = .Range("A65000").End(xlUp).Row
End With
SpinButton1.Max = dL + 1
SpinButton1 = dL + 1
End Sub

supprime sur la ligne rouge : - Quantité.Value, ou comme je l'ai fait mets mettre une apostrophe devant le -

Jean-Pierre

Cliquez pour agrandir...

Private Sub B_Validation_Click()
Dim y As Long
y = SpinButton1

With Sheets("Feuil3")
  .Cells(y, 1) = EntréeSortie.Value
  .Cells(y, 2) = CDate(Calendar1)
  .Cells(y, 3) = DésignationArticle
  [COLOR="Red"]Select Case EntréeSortie.ListIndex
    Case 0
      Qté = Quantité.Value
    Case 1
      Qté = 0 - Quantité.Value
  End Select
  .Cells(y, 4) = .Cells(y, 4) + Qté[/COLOR]
End With
[COLOR="Red"]Quantité = ""[/COLOR]
IniUsf '<---------

End Sub