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.

images/N14RI15.png

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)  ...
couv_RI21EXCV.png

Découvrez 

le livre :

Aussi inclus dans nos :

Précédent
Gestion des retours de prêt
Suivant
Mise à jour des liens hypertexte sur les photos