Sub SAISIE_OP()
Load UsfBNP
UsfBNP.TxtCEJOUR = Format(Now, "dd/mm/yyyy") '---------------------------------------CEJOUR 1
UsfBNP.CmbCOMPT.List = Sheets("DONNÉES").Range("A2:A6").Value '-----------------------COMPT 2
With Application.WorksheetFunction
UsfBNP.TxtJOUROP = .Text(Now, "yymmdd") & "-" & .Text(.CountIf(Range("C:C"), .Text(Now, "yymmdd") & "-*") + 1, "00")
End With
UsfBNP.TxtNUMORD.Value = "" '--------------------------------------------------------NUMORD 4
UsfBNP.CmbBENEFI.List = Sheets("DONNÉES").Range("C2:C35").Value '--------------------BENEFI 5
UsfBNP.CmbMOYENS.List = Sheets("DONNÉES").Range("B2:B8").Value '---------------------MOYENS 6
UsfBNP.TxtCHNUM.Value = "" '----------------------------------------------------------CHNUM 7
UsfBNP.TxtDEBIT.Value = "" 'Format(TxtDEBIT.Value, "0.00 €") '------------------------DEBIT 8
UsfBNP.TxtCREDIT.Value = "" '--------------------------------------------------------CREDIT 9
UsfBNP.TxtSOLDE.Value = "" '----------------------------------------------------------SOLDE 10
UsfBNP.TxtREMARQ.Value = "" '--------------------------------------------------------REMARQ 11
UsfBNP.TxtLIVRAI.Value = Format(Now, "dd/mm/yyyy") '---------------------------------LIVRAI 12
UsfBNP.ChbPOINTA.Value = "" '--------------------------------------------------------POINTA 13
UsfBNP.Show
End Sub