Private Sub CBnValiderA_Click()
TVLA(1, 6) = ValeurTBx(Me.TBxLongueurcolisage, vbDouble)
TVLA(1, 7) = ValeurTBx(Me.TBxLargeurcolisage, vbDouble)
TVLA(1, 8) = ValeurTBx(Me.TBxHauteurcolisage, vbDouble)
TVLA(1, 9) = ValeurTBx(Me.TBxACréele, vbDate)
TVLA(1, 10) = ValeurTBx(Me.TBxANotes)
TVLA(1, 11) = ValeurTBx(Me.TBxADelaislivraison)
TVLA(1, 12) = ValeurTBx(Me.TBxAFraistransport)
TVLA(1, 13) = ValeurTBx(Me.TBxAFacturation)
TVLA(1, 14) = Me.CBxModedegestion.Text
TVLA(1, 15) = ValeurTBx(Me.TBxInfosColisage, vbDouble)
TVLA(1, 16) = ValeurTBx(Me.TBxMinicommande, vbDouble)
TVLA(1, 17) = ValeurTBx(Me.TBxPrixUnitHT, vbCurrency)
TVLA(1, 18) = ValeurTBx(Me.TBxStockmini, vbDouble)
TVLA(1, 19) = ValeurTBx(Me.TBxDateSI, vbDate)
TVLA(1, 20) = ValeurTBx(Me.TBxSI, vbDouble)
TVLA(1, 21) = ValeurTBx(Me.TBxPrixUnitHTSI, vbCurrency)
If LCouA = 0 Then
CLsA.ValeursVers TVLA
CLsA.Lignes.Add.Range.Resize(, 21).Value = TVLA
CLsA.Actualiser
Me.LabNbArticle = CLsA.Lignes.Count
Set DicA = DicoSujet(CLsA.Item(CBxRefArticle).SujetBdD)
Else
'CLsA.Lignes(LCouA).Range.Value = TVLA 'pour rapatrier toute les valeur mais supprimes supprimes les formules des colonnes
CLsA.Lignes(LCouA).Range.Resize(, 21).Value = TVLA '21=nombre de colonnes contenant des constantes
End If
End Sub
Private Sub CBnValiderF_Click()
TVLF(1, 3) = Me.CBxGroupe.Text
TVLF(1, 4) = Me.TBxAdresse.Text
TVLF(1, 5) = Me.TBxCP.Text
TVLF(1, 6) = Me.TBxVille.Text
TVLF(1, 7) = Me.TBxPays.Text
TVLF(1, 8) = Me.TBxNom.Text
TVLF(1, 9) = Me.TBxPrénom.Text
TVLF(1, 10) = Me.TBxTel.Text
TVLF(1, 11) = Me.TBxFax.Text
TVLF(1, 12) = Me.TBxPortable.Text
TVLF(1, 13) = Me.TBxEmail.Text
TVLF(1, 14) = Me.TBxSiteinternet.Text
TVLF(1, 15) = ValeurTBx(Me.TBxCréele, vbDate)
TVLF(1, 16) = Me.CBxDelaislivraison.Text
TVLF(1, 17) = Me.CBxFraistransport.Text
TVLF(1, 18) = ValeurTBx(Me.TBxMontant, vbCurrency)
TVLF(1, 19) = Me.CBxFacturation.Text
TVLF(1, 20) = Me.TBxNote.Text
If LCouF = 0 Then
CLsF.ValeursVers TVLF
CLsF.Lignes.Add.Range.Value2 = TVLF ' . value2 => ancienne version d'excel ne changeant par le format
CLsF.Actualiser
Me.LabNbfournisseur = CLsF.Lignes.Count 'comptage nombre de fournisseur
Set DicF = DicoSujet(CLsF.Item(CBxFournisseur).SujetBdD)
Else
CLsF.Lignes(LCouF).Range.Value = TVLF
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) => bon format de date qui s'affiche avec une case origine dans le tableau en format standard :/
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) => bon format de date qui s'affiche avec une case origine dans le tableau en format standard :/
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
CLsC.Lignes.Add.Range.Resize(, 11).Value = TVLC ' a mettre en commentaire si soucis et passer les 5 lignes qui suivent en activation
'Dim LRs As ListRows, LRw As ListRow, Rng As Range commentaire à mettre pour tester si dysfonctionnement commande
'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