XL 2010 Remise et ajout de quantité

Mody200 à dit:

Regarde la pièce jointe 1195688
Bonsoir
Quelqu'un peut-il m'aider... J'ai ce code pour ajouter ou soustraire du stock (Sheet1) d'une Listbox mais cliquer sur le bouton de commande ne fait rien.
Tout ce dont j'ai besoin, c'est que les éléments accumulés dans la zone de liste soient ajoutés à mon inventaire enregistré sur la feuille 1.

Private Sub Procesar_Click()

Dim Uf As String

Dim I As Integer

Dim J As Integer

With Hojal

Uf = Range("A" & Rows.Count).End(xlUp).Row

For I = 0 To ListBox1.ListCount - 1

For J= 2 To Uf

If.Cells(J, 1) = ListBox1.List(I, 0) Then

.Cells(J, 2) .Cells(J, 2) + 1 =

End If

Next J

Next I

End With

End Sub

Cliquez pour agrandir...

Dim Uf As String

Dim Uf As integer

Mody200 à dit:

If.Cells(J, 1) = ListBox1.List(I, 0) Then

Cliquez pour agrandir...

If .Cells(J, 1) = 1*ListBox1.List(I, 0) Then

If .Cells(J, 1) = val(ListBox1.List(I, 0)) Then

Et déclarer les trois variables en Long.

Cliquez pour agrandir...

Staple1600 à dit:

Un peu comme ce que suggérait le message#3, non ?

Cliquez pour agrandir...

Gégé-45550,​

Staple1600,​

TooFatBoy​

Private Sub Procesar_Click()
Dim Uf As Integer
Dim i As Long
Dim J As Long
With Sheet1
Uf = .Range("A" & Rows.Count).End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
For J = 2 To Uf
If .Cells(J, 1) = Val(ListBox1.List(i, 0)) Then
      If Me.OptionButton1 = True Then
        .Cells(J, 3) = .Cells(J, 3) + Val(ListBox1.List(i, 3))
        .Cells(J, 5) = .Cells(J, 5) + Val(ListBox1.List(i, 3))
      ElseIf Me.OptionButton2 = True Then
        .Cells(J, 3) = .Cells(J, 3) - Val(ListBox1.List(i, 3))
        .Cells(J, 6) = .Cells(J, 6) + Val(ListBox1.List(i, 3))
      End If
End If
Next J
Next i
End With
End Sub