Private Sub CBnValiderC_Click()
If LCouC = 0 Then ReDim TVLC(1 To 1, 1 To 11)
TVLC(1, 4) = TVLF(1, 2)
TVLC(1, 2) = ValeurTBx(Me.TBxCmdDate, vbDate)
TVLC(1, 3) = Me.TBxCmdEnregistrepar.Text
TVLC(1, 5) = Me.CBxDelaislivraison.Text
TVLC(1, 6) = ValeurTBx(Me.TBxMontant, vbCurrency)
TVLC(1, 7) = ValeurTBx(Me.TBxCmddatelivraisonestime, vbDate)
TVLC(1, 8) = Me.CBxRefArticle.Text
TVLC(1, 9) = Me.CBxDsgnArticle.Text
TVLC(1, 10) = ValeurTBx(Me.TBxCmdQtecmd, vbDouble)
TVLC(1, 11) = ValeurTBx(Me.TBxPrixUnitHT, vbCurrency)
If LCouC = 0 Then
CLsC.ValeursVers TVLC
MsgBox "ClsC.Plgtablo: " & CLsA.PlgTablo.Rows.Count & " lignes, Adresse=" _
& CLsC.PlgTablo.Address(External:=True), vbInformation, "Débogage"
CLsC.Lignes.Add.Range.Resize(, 11).Value = TVLC
'Dim LRs As ListRows, LRw As ListRow, Rng As Range 'essais pour chanter la ligne CLsC.Lignes.Add.Range.resize(,11).value=TVLC
'Set LRs = CLsC.Lignes
'Set LRw = LRs.Add
'Set Rng = LRw.Range
'Rng.Resize(, 11).Value = TVLC
CLsC.Actualiser
Rem. Refaire un Dictionary ? Refiltrer quelque chose ? On verra !
Else
CLsC.Lignes(LCouC).Range.Resize(, 11).Value = TVLC '11=nombre de colonnes contenant des constantes
End If
End Sub
Private Sub CBnValiderC_Click()
If LCouC = 0 Then ReDim TVLC(1 To 1, 1 To 11)
TVLC(1, 4) = TVLF(1, 2)
TVLC(1, 2) = ValeurTBx(Me.TBxCmdDate, vbDate)
TVLC(1, 3) = Me.TBxCmdEnregistrepar.Text
TVLC(1, 5) = Me.CBxDelaislivraison.Text
TVLC(1, 6) = ValeurTBx(Me.TBxMontant, vbCurrency)
TVLC(1, 7) = ValeurTBx(Me.TBxCmddatelivraisonestime, vbDate)
TVLC(1, 8) = Me.CBxRefArticle.Text
TVLC(1, 9) = Me.CBxDsgnArticle.Text
TVLC(1, 10) = ValeurTBx(Me.TBxCmdQtecmd, vbDouble)
TVLC(1, 11) = ValeurTBx(Me.TBxPrixUnitHT, vbCurrency)
If LCouC = 0 Then
CLsC.ValeursVers TVLC
MsgBox "ClsC.Plgtablo: " & CLsA.PlgTablo.Rows.Count & " lignes, Adresse=" _
& CLsC.PlgTablo.Address(External:=True), vbInformation, "Débogage"
'CLsC.Lignes.Add.Range.Resize(, 11).Value = TVLC
Dim LRs As ListRows, LRw As ListRow, Rng As Range 'essais pour chanter la ligne
Set LRs = CLsC.Lignes
Set LRw = LRs.Add
Set Rng = LRw.Range
Rng.Resize(, 11).Value = TVLC
CLsC.Actualiser
Rem. Refaire un Dictionary ? Refiltrer quelque chose ? On verra !
Else
CLsC.Lignes(LCouC).Range.Resize(, 11).Value = TVLC '11=nombre de colonnes contenant des constantes
End If
End Sub