Private Sub Valider_Click()
Dim reponse As Variant
Dim dl1 As Long
Dim cellule As Range
Dim trouve As Boolean
If Type_fourn.ListIndex = -1 Then Exit Sub
If Désignation.ListIndex = -1 Then
With Sheets(Type_fourn.Value)
'
'expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)
Do
reponse = Application.InputBox(Prompt:="Veuillez indiquer le stock minimum", Type:=1, Default:="")
Select Case reponse
Case ""
MsgBox "vous n'avez pas indiquez le stock mini!" & Chr(13) & "recommencez!", vbCritical, ""
Case False
Exit Sub
Case 0 ' à modifier si le stock mini est obligatoire
'Call MsgBox("Réponse erronée", vbExclamation, "")
Exit Do
Case Else
Exit Do
End Select
Loop
dl1 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("a" & dl1).Value = Désignation.Value
.Range("b" & dl1).Value = reponse
.Range("c" & dl1).Value = Qté_entrée.Value
End With
Else
With Sheets(Type_fourn.Value)
.Range("c" & lig).Value = .Range("c" & lig).Value + Qté_entrée.Value
End With
End If
With Sheets("Mouvements")
dl1 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For Each cellule In .Range("a1:a" & dl1)
If cellule = Désignation.Value Then
dl1 = cellule.Row
trouve = True
Exit For
End If
Next cellule
'dercol = [IV3].End(xlToLeft).Column
If trouve = True Then ' mise à jour du stock
.Range("B" & dl1).Value = Qté_entrée.Value
.Range("C" & dl1).Value = Date_entrée.Value
Else ' ajout d'une désignation
.Range("A" & dl1).Value = Type_fourn.Value
.Range("B" & dl1).Value = Désignation.Value
.Range("C" & dl1).Value = Label2.Caption
.Range("D" & dl1).Value = Qté_entrée.Value
.Range("E" & dl1).Value = Date_entrée.Value
.Range("j" & dl1).Value = CCur(Label3.Caption) + CCur(Qté_entrée.Value)
End If
End With
' mise à jour stock
Unload Me
End Sub
