Option Explicit
Private WithEvents CLsF As ComboBoxLiées, LCouF As Long, TVLF()
Private Sub UserForm_Initialize()
Set CLsF = New ComboBoxLiées
CLsF.Plage [TblSuivisFacturation]
CLsF.Add Me.CBxRefcommande, 1
CLsF.Add Me.CBxFournisseur, 4
CLsF.Add Me.CBxRefFacturation, 11
CLsF.CouleurSympa
CLsF.Actualiser
End Sub
Private Sub GarnirCommande()
Me.TBxDate.Text = TVLF(1, 2)
Me.TBxEnregistrepar.Text = TVLF(1, 3)
Me.TBxFaistransport.Text = TVLF(1, 10)
End Sub
Private Sub GarnirCommande()
Me.TBxDate.Text = TVLF(1, 2)
Me.TBxEnregistrepar.Text = TVLF(1, 3)
Me.TBxDelailivraison.Text = TVLF(1, 5)
Me.TBxTotalHT.Text = TVLF(1, 6)
Me.TBxDatelivestime.Text = TVLF(1, 7)
Me.TBxBL.Text = TVLF(1, 8)
Me.TBxdatelivconfirme.Text = TVLF(1, 9)
Me.TBxFaistransport.Text = TVLF(1, 10)
Me.TBxdatefacturation.Text = TVLF(1, 12)
'Me.TBxdatelimite.Text = TVLF(1, 13)
End sub
Private Sub CBnValiderF_Click()
TVLF(1, 2) = CDate(Me.TBxDate.Text)
TVLF(1, 3) = Me.TBxEnregistrepar.Text
TVLF(1, 5) = Me.TBxDelailivraison.Text
TVLF(1, 6) = CCur(Me.TBxTotalHT.Text)
TVLF(1, 7) = CDate(Me.TBxDatelivestime.Text)
TVLF(1, 8) = Me.TBxBL.Text
TVLF(1, 9) = CDate(Me.TBxdatelivconfirme.Text)
TVLF(1, 10) = CCur(Me.TBxfraisdeport.Text)
TVLF(1, 12) = CDate(Me.TBxdatefacturation.Text)
TVLF(1, 13) = CDate(Me.TBxdatelimite.Text)
If LCouF = 0 Then
CLsF.ValeursVers TVLF
CLsF.Lignes.Add.Range.Value = TVLF
CLsF.Actualiser
Else
CLsF.Lignes(LCouF).Range.Value = TVLF
End If
End Sub
.DataBodyRange.Resize(LR, 13).Value = TR
Private Sub CBnValiderF_Click()
TVLF(1, 2) = CDate(Me.TBxDate.Text)
TVLF(1, 3) = Me.TBxEnregistrepar.Text
TVLF(1, 5) = Me.TBxDelailivraison.Text
TVLF(1, 6) = CCur(Me.TBxFaistransport.Text)
TVLF(1, 7) = CDate(Me.TBxDatelivestime.Text)
TVLF(1, 8) = CCur(Me.TBxTotalHT.Text)
TVLF(1, 9) = Me.TBxBL.Text
TVLF(1, 10) = CDate(Me.TBxdatelivconfirme.Text)
TVLF(1, 11) = CCur(Me.TBxfraisdeport.Text)
TVLF(1, 13) = CDate(Me.TBxdatefacturation.Text)
TVLF(1, 14) = CDate(Me.TBxreglementeffectue.Text) '=> ligne se met en surbrillance jaune par laquel il faut obligatoirement une valeur je pense lors de l'ajout des autres infos
If LCouF = 0 Then
CLsF.ValeursVers TVLF
CLsF.Lignes.Add.Range.Resize(, 14).Value = TVLF
CLsF.Actualiser
'Me.LabNbfournisseur = CLsF.Lignes.Count
'Set DicF = DicoSujet(CLsF.Item(CBxFournisseur).SujetBdD)
Else
CLsF.Lignes(LCouF).Range.Resize(, 14).Value = TVLF
End If
End Sub