Option Explicit
Dim WithEvents CL As ComboBoxLiés
Dim TLgn() As Long
Private Sub UserForm_Initialize()
Set CL = New ComboBoxLiés
CL.Plage FListe.Rows(2)
CL.CorrespRequise = True
CL.Add Me.CbxTRACK, "A"
CL.Add Me.CbxSTATUS, "C"
CL.Add Me.CbxGROUP, "AD"
CL.Actualiser
End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
Select Case NbrLgn
Case 0: Me.LabInfo.Caption = "Faites vos choix."
Case 1: Me.LabInfo.Caption = "Un seul élément."
Case Else: Me.LabInfo.Caption = NbrLgn & " éléments."
End Select
Me.BtnSynth.Enabled = NbrLgn > 0
End Sub
Private Sub CL_Résultat(Lignes() As Long)
TLgn = Lignes
End Sub
Private Sub BtnEffacer_Click()
CL.Nettoyer
End Sub
Private Sub BtnSynth_Click()
Dim Te(), Le&, Ts(), Ls&, C&
Te = CL.PlgTablo.Resize(, 30).Value
ReDim Ts(1 To UBound(TLgn), 1 To 14)
For Ls = 1 To UBound(TLgn)
Le = TLgn(Ls)
For C = 1 To 4: Ts(Ls, C) = Te(Le, C): Next C
Ts(Ls, 5) = Te(Le, 6): Next Ls
FSynth.[A2:F50000].ClearContents
FSynth.[A2].Resize(UBound(Ts, 1), 5).Value = Ts
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = 1
End Sub