Userform

Bonjour,

Novice en VBA, j'aimerais savoir les formules nécessaires pour que mon UserForm, suivant l'élément et la quantité saisi par l'utilisateur, déduise les valeurs du stock présentent dans une feuille excel.

Merci d'avance pour votre aide

Bonjour

A essayer en mettant ces deux codes dans l'userform

Private Sub UserForm_Initialize()
'Macro Dan - 28/04/16
Dim plage As Range
With Sheets("Feuil1")
    Set plage = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
    ComboBox1.List() = plage.Value
End With
End Sub

et

Private Sub CommandButton1_Click()
'Macro Dan - 28/04/16
Dim lg As Integer
With Sheets("Feuil1")
    On Error Resume Next
    lg = WorksheetFunction.Match(ComboBox1.Value, .Columns("A:A"), 0)
    If lg > 0 Then
        .Range("B" & lg) = .Range("B" & lg) - TextBox1.Value: TextBox1 = ""
    End If
End With
End Sub

Si ok et terminé, merci de cliquer sur l V vert à coté du bouton éditer lors de votre réponse afin de clôturer le fil

Crdlt