XL 2019 Bouton Supprime on remet en stock

[RoyalP]

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

 

[patricktoulon]

bonjour
peut etre cela

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]

bonjour
peut etre cela

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]

heu.. rien pigé la ......ta listbox est vide et rien ne la remplie chez moi
il faudrait peut etre finir alors ton montage de ton usf
la en l'etat je peux rien pour toi (je sais même pas ce qui doit aller dans cette listbox)

 

[RoyalP]

en faite sur l'userform quand il se lance tu sélectionnes le client, en dessous tu sélectionnes le produit, tu clique sur facturer ça s'affiche dans le listbox1
j'aurais peut être du l'expliquer avant désolé.

 

[patricktoulon]

ok
ca devrait faire l'affaire

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]

ok
ca devrait faire l'affaire

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 MERCIIIIIIIII

 

[patricktoulon]

oui c'est vrai je n'ai pas changer de bouton désolé
pense a le supprimer de la listbox aussi listbox1.remove(index) j'ai pas regardé si tu l'avais fait

 

[RoyalP]

ok je vais le faire merci encore je galéré depuis 17h dessus