XL 2019 Bouton Supprime on remet en stock

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...