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
| Private Sub btnAjout_Click()
Application.ScreenUpdating = False
Sheets("AR Distributeur").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = Val(txtArc)
ActiveCell.Offset(0, 1) = Val(cboExercice)
ActiveCell.Offset(0, 2) = CDate(txtDateARC)
ActiveCell.Offset(0, 3) = Format(txtDateModif, "DD/MM/YYYY")
ActiveCell.Offset(0, 4) = Val(cboDept)
ActiveCell.Offset(0, 5) = cboGroupement
ActiveCell.Offset(0, 6) = cboDistributeur
ActiveCell.Offset(0, 7) = txtVendeur
ActiveCell.Offset(0, 8) = cboRubrique
ActiveCell.Offset(0, 9) = cboFamille
ActiveCell.Offset(0, 10) = cboModele
ActiveCell.Offset(0, 11) = txtProduit
ActiveCell.Offset(0, 12) = Val(txtCA)
ActiveCell.Offset(0, 13) = Val(txtActionCom)
ActiveCell.Offset(0, 14) = cboCommande
ActiveCell.Offset(0, 15) = txtRefDistri
ActiveCell.Offset(0, 16) = cboSAndG
ActiveCell.Offset(0, 17) = Format(txtDateLivraison, "DD/MM/YYYY")
MsgBox "Votre AR : " & ActiveCell & " a bien été ajouté", vbInformation + vbOKOnly, "CONFIRMATION"
Sheets("TDB Activitée").Activate
Range("A1").Select
ActiveWorkbook.RefreshAll
End Sub
Private Sub btnQuitter_Click()
ActiveWorkbook.RefreshAll
Unload Me
ActiveWorkbook.Save
End Sub
Private Sub UserForm_Click()
End Sub |
Partager