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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
Dim ligne
Private Sub AjoutCommande_Initialize()
Me.Choixdoc.RowSource = "Documents!N2:N" & Sheets("Documents").[n65000].End(xlUp).Row
End Sub
Private Sub Choixdoc_Change()
ligne = Me.Choixdoc.ListIndex + 2
Me.Nomdoc = Sheets("Documents").Cells(ligne, 13)
Me.datemaj = Sheets("Documents").Cells(ligne, 18)
Me.Quantitédispo = Sheets("Documents").Cells(ligne, 16)
Me.Langue = Sheets("Documents").Cells(ligne, 1)
End Sub
Private Sub bValider3_Click()
'--- Positionnement dans la base des destruction
ligne = Sheets("Destructions").[a65000].End(xlUp).Row + 1
'--- Transfert Formulaire dans la base des destructions
Sheets("Documents").Cells(ligne, 3) = Me.Choixdoc
Sheets("Documents").Cells(ligne, 1) = Me.Langue
Sheets("Documents").Cells(ligne, 2) = Me.Nomdoc
Sheets("Documents").Cells(ligne, 4) = Me.Quantité
Sheets("Documents").Cells(ligne, 5) = Me.Emplacement
Sheets("MDocuments").Cells(ligne, 6) = Date 'date du jour
'--- Transfert Formulaire dans la liste des documents
Sheets("Documents").Cells(ligne, 13) = Me.Nomdoc
Sheets("Documents").Cells(ligne, 20) = Me.Quantitéjetée
Sheets("Documents").Cells(ligne, 19).FormulaR1C1 = "=SUM(RC[-4])-RC[-1]"
xQ = Sheets("Documents").Cells(ligne, 19).Value
Sheets("Documents").Cells(ligne, 16) = xQ
Me.Quantitédispo = Sheets("Documents").Cells(ligne, 4)
Me.datemaj = Date
Me.Quantitéjetée = ""
Sheets("Documents").Cells(ligne, 19).ClearContents
Sheets("Documents").Cells(ligne, 20).ClearContents
End Sub
Private Sub bQuitter3_Click()
Unload Me
Sheets("accueil").Select
End Sub |
Partager