Private Sub UserForm_Initialize()
Set CL = New ComboBoxLiées
CL.Plage FVol.Rows(2)
CL.Add Me.CBxClient, "B"
CL.Add Me.CBxObjectif, "J"
CL.Add Me.CBxReprésentant, "M"
CL.Add Me.CBxZone, "i"
CL.Add Me.CBxCA2015, "J"
CL.Add Me.ComboBoxrang, "A"
'CL.Add Me.ComboBox1, "G" <== Sorti
CL.CouleurSympa
CL.Actualiser
Me.ComboBox1.List = SujetCBx(CL.PlgTablo.Columns("G"))(0)
End Sub
'
Private Sub ComboBox1_Change()
Dim TL() As Long, DateFin As Date, TDates(), LE&, LS&
ReDim TL(1 To CL.PlgTablo.Rows.Count)
On Error Resume Next
DateFin = ComboBox1.Value
If Err Then CL.AfficherTout: Exit Sub
On Error GoTo 0
TDates = CL.PlgTablo.Columns("G").Value
For LE = 1 To UBound(TDates, 1)
If TDates(LE, 1) <= DateFin Then LS = LS + 1: TL(LS) = LE
Next LE
ReDim Preserve TL(1 To LS)
CL.FiltrerLignes TL
End Sub