XL 2019 Bouton Supprime on remet en stock

RoyalP · 11 Août 2019

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 · 11 Août 2019

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 · 11 Août 2019

patricktoulon à dit:

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 · 11 Août 2019

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 · 11 Août 2019

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 · 11 Août 2019

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 · 11 Août 2019

patricktoulon à dit:

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 MERCIIIIIIIII

patricktoulon · 11 Août 2019

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 · 11 Août 2019

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

XL 2019 Bouton Supprime on remet en stock

RoyalP

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

RoyalP

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

RoyalP

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

RoyalP

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

RoyalP

XLDnaute Occasionnel

Discussions similaires