XL 2019 Bouton Supprime on remet en stock

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
79
Affichages
20 K
Retour