Situation du stock à une date donnée
1. Formulaire Frm_Situation_Stock
Ce formulaire permet :
-
de saisir une date de référence : date à laquelle on souhaite calculer la valeur du stock,
-
de recopier l’ensemble des fiches de l’onglet Stock dans un nouvel onglet,
-
de supprimer les fiches sans date de vente ou avec une date d’achat antérieure à la date saisie et de mettre en forme le tableau,
-
de calculer la valeur du stock correspondant à la date de référence (en modifiant la formule de calcul du nombre d’années de dépréciation) et de l’afficher en bas du tableau.
|
N° |
Nom du contrôle |
Description |
|
1. |
txtDate |
Zone de texte |
|
2. |
btSituStock |
Bouton de commande |
2. Code VBA du formulaire Frm_Situation_Stock
Option Explicit
' Saisie de la date de référence
Private Sub txtDate_Change()
txtDate = FormateDate(txtDate)
End Sub
Private Sub txtDate_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = IntChar(KeyAscii)
End Sub
Private Sub btSituStock_Click()
' Contrôle de la date
If Not IsDate(txtDate) Then
MsgBox "Date incorrecte"
txtDate.SetFocus
Exit Sub
End If
' Génération tableau de situation
Tableau_Situation_Stock (txtDate) ...
Conditions générales d'utilisationCopyright - © Editions ENI ||Politique de protection des données du groupe ENI