bonjour à tous,

j'ai :
1 formulaire de tenue de stock basé sur ma feuille STOCK
1 formulaire de détail d'un article qui me donne pour chaque article de la feuille STOCK,

1 formulaire d'entrée en stock
1 formulaire de sortie de stock
Je voudrais que lors de la validation d'1 entrée ou d'1 sortie de stock le formulaire de saisie ENTREE ou SORTIE mettent automatiquement à jour les champs du formulaire
  • Qté en stock
  • Nombre total d'entrée
  • Nombre total de sorties


Pour le moment je dois fermer les formulaires puis rouvrir pour avoir la mise à jour
Que dois je mettre pour obtenir cette mise à jour auto ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub UserForm_Activate()
 
QteTotaleReservee = Range("STOCK!J" & Lig).Value
Reference = Range("STOCK!A" & Lig).Value
QtéEnStock = Range("STOCK!K" & Lig).Value
Désignation = Range("STOCK!F" & Lig).Value
Fournisseur = Range("STOCK!B" & Lig).Value
 
 
End Sub
 
Private Sub B_ValiderEntree_click()
 
Dim DerLig As Long
 
 
With Worksheets("ENTREES")
DerLig = .Range("A65536").End(xlUp)(2).Row
Range("A" & DerLig).Select
 
Sheets("ENTREES").Range("A" & DerLig) = Format(Me.Reference, "")
Sheets("ENTREES").Range("B" & DerLig) = Me.Désignation
Sheets("ENTREES").Range("C" & DerLig) = Format(Me.QteEntree, "0")
Sheets("ENTREES").Range("D" & DerLig) = Format(Me.NrCde, "0")
Sheets("ENTREES").Range("E" & DerLig) = Format(Me.DateEntree, "dd mmm yyyy")
Sheets("ENTREES").Range("F" & DerLig) = Me.Fournisseur
 
 
End With
 
End Sub
d'avance merci pour vos lumières !
Françoise