XL 2010 Remise et ajout de quantité

[Mody200]

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 Long
Dim I As Integer
Dim J As Integer

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) =ListBox1.List(I, 0) Then
.Cells(J, 2) = .Cells(J, 2) + 1
End if
Next J
Next I
End With
End Sub

 

[Gégé-45550]

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

Bonsoir
Essayez de modifier

Dim Uf As String

en

Dim Uf As integer

Cordialement,

 

[Staple1600]

Bonsoir le fil

@Gégé-45550
A jour, il faudra revenir pour plutôt dire
Dim Uf As Long
non ?
Car un jour, à force de compter les Rows, ceux-ci ne seront plus Intègres, mais Long oui


OK, je sors

PS: J'avais jamais vu l'interface d'Excel en version espagnole
Au moins Visual Basic, c'est pareil dans toutes les langues

 

[TooFatBoy]

Bonjour,

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

Peut-être (à tester) à remplacer par ceci :

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

ou par ceci :

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

Et déclarer les trois variables en Long.

 

[Staple1600]

Bonsoir @TooFatBoy

Et déclarer les trois variables en Long.

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

 

[TooFatBoy]

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

Oui, un peu, sauf qu'il faudrait logiquement le faire pour les trois variables comme dit en #4, et non uniquement pour la variable Uf.

 

[Staple1600]

Re

Si on parle logique, la logique aurait voulu qu'on conseille au demandeur de joindre un fichier Excel plutôt que deux JPG.

Pourtant Mody200 sait joindre de l'Excel dans ses fils

 

[TooFatBoy]

Vu la simplicité de sa macro, peut-être s'est-il logiquement dit que joindre un fichier n'était pas absolument indispensable dans un premier temps.

 

[Mody200]

Merci pour votre aide à tous les deux

Gégé-45550,​

Staple1600,​

TooFatBoy​

La procédure a fonctionné pour moi
Mais il reste une chose
Parce que j'ai ajouté un magasin avec une quantité en stock
Il s'agit de mettre à jour la quantité d'entrées et de sorties en fonction du magasin auquel il appartient
Parce que le code produit est similaire pour chaque magasin

Obligatoire pour ajouter la combobox 1
Avec le code
Parce qu'il symbolise le nom du magasin

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

est similaire à celui des magasins

 

[Mody200]

Merci pour votre aide à tous les deux
Gégé-45550,
Staple1600,
TooFatBoy
La procédure a fonctionné pour moi
Mais il reste une chose
Parce que j'ai ajouté un magasin avec une quantité en stock
Il s'agit de mettre à jour la quantité d'entrées et de sorties en fonction du magasin auquel il appartient
Parce que le code produit est similaire pour chaque magasin

Obligatoire pour ajouter la combobox 1
Avec le code
Parce qu'il symbolise le nom du magasin

 

[Dranreb]

Bonjour.
J'ai bien envie de lier vos ComboBox via mon système de gestion automatique …
Mais ne pourrait-on pas simplifier tout ça et reporter immédiatement la modification dans la base mais sur une seule ligne à la fois ?