XL 2019 Bouton Supprime on remet en stock

RoyalP

XLDnaute Occasionnel
Hello les zamis, je suis en train de faire un petit gestionnaire de stock/facturation etc, pour l'instant ça fonctionne bien mise à part que je n'arrive pas à faire le retour en stock d'un produit supprimé dans la facture ni d'afficher le stock restant dans le listbox1!! je vous met mon fichier épuré.
Merci de votre aide
 

Pièces jointes

  • classeur_test.xlsm
    118 KB · Affichages: 31

patricktoulon

XLDnaute Barbatruc
bonjour
peut etre cela
VB:
Private Sub Limpiar_Click()
    Dim index&
    index = Me.ComboBox1.ListIndex + 8 + 1
     With Sheets("Base produits"): .Cells(index, "E") = .Cells(index, "E") + Val(txtcant.Value): End With
     Me.ComboBox1 = Empty
     Me.cmbpro = Empty
     Me.txtcant = Empty
End Sub
 

RoyalP

XLDnaute Occasionnel
bonjour
peut etre cela
VB:
Private Sub Limpiar_Click()
    Dim index&
    index = Me.ComboBox1.ListIndex + 8 + 1
     With Sheets("Base produits"): .Cells(index, "E") = .Cells(index, "E") + Val(txtcant.Value): End With
     Me.ComboBox1 = Empty
     Me.cmbpro = Empty
     Me.txtcant = Empty
End Sub

j viens de tester ca marche pas il me garde toujours le stock deduit
limpar c'est pour faire une reinitialisation mais ca n'enleve pas le produit selectionner dans le listbox1
eliminar c'est pour supprimer un produit à selectionner dans le listbox1 je pense que ce serais plutot dans celui ci qu'il faut travailler

Merci encore de ton aide
 

patricktoulon

XLDnaute Barbatruc
ok
ca devrait faire l'affaire
VB:
Private Sub Limpiar_Click()
    Dim valeur, index&, NBunité&
    index = ListBox1.ListIndex
    If index <> -1 Then valeur = ListBox1.List(index, 2): NBunité = Val(ListBox1.List(index, 4))
    MsgBox NBunité & "  " & valeur & " a remmetre "    'message juste pour verif
    With Sheets("Base produits")
        .Activate
        Set c = .Range("A:A").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            .Cells(c.Row, "E") = Val(.Cells(c.Row, "E")) + NBunité
        End If
    End With
    Me.ComboBox1 = Empty
    Me.cmbpro = Empty
    Me.txtcant = Empty
End Sub
 

RoyalP

XLDnaute Occasionnel
ok
ca devrait faire l'affaire
VB:
Private Sub Limpiar_Click()
    Dim valeur, index&, NBunité&
    index = ListBox1.ListIndex
    If index <> -1 Then valeur = ListBox1.List(index, 2): NBunité = Val(ListBox1.List(index, 4))
    MsgBox NBunité & "  " & valeur & " a remmetre "    'message juste pour verif
    With Sheets("Base produits")
        .Activate
        Set c = .Range("A:A").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            .Cells(c.Row, "E") = Val(.Cells(c.Row, "E")) + NBunité
        End If
    End With
    Me.ComboBox1 = Empty
    Me.cmbpro = Empty
    Me.txtcant = Empty
End Sub

NICKEL , j'ai juste du la mettre dans la boucle eliminar :D MERCIIIIIIIII
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla