Option Explicit
Private WithEvents CL As ComboBoxLiées
Private TLgn() As Long
Private Sub UserForm_Initialize()
Set CL = Création.ComboBoxLiées
CL.Plage Feuil2.[B3:I3], True
CL.Add ComboBox2, 2
CL.Add ComboBox3, 5
CL.Add ComboBox4, 6
CL.Add ComboBox5, 7
CL.Actualiser
End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
ListBox2.Clear
End Sub
Private Sub CL_Résultat(Lignes() As Long)
Dim TDon(), TLBx(), LLBx, LDon
TLgn = Lignes
TDon = CL.PlgTablo.Value
ReDim TLBx(1 To UBound(TLgn), 1 To 2)
For LLBx = 1 To UBound(TLBx, 1)
LDon = TLgn(LLBx)
TLBx(LLBx, 1) = TDon(LDon, 1)
TLBx(LLBx, 2) = TDon(LDon, 2)
Next LLBx
ListBox2.List = TLBx
End Sub
Private Sub CL_SujBdDPersoSVP(ByVal CBM As CBxL.ComboBoxMmbr)
CBM.SujetBdD = SujetMotsClés(CL.PlgTablo.Columns(2), ",")
End Sub
=$C3&SI($D3<>"";", "&$D3&SI($E3<>"";", "&$E3;"");"")
Private Sub UserForm_Initialize()
Set CL = Création.ComboBoxLiées
CL.Plage Feuil2.[B3:J3], True
CL.Add ComboBox2 ' Colonne non précisée.
CL.Add ComboBox3, 5
CL.Add ComboBox4, 6
CL.Add ComboBox5, 7
CL.Actualiser
End Sub
Private Sub CL_SujBdDPersoSVP(ByVal CBM As CBxL.ComboBoxMmbr)
CBM.SujetBdD = SujetMotsClés(CL.PlgTablo.Columns(9), ",")
End Sub
Private Sub ListBox2_Click()
TextBox42.Text = ListBox2.Text
End Sub
Private Sub ListBox2_Click()
Dim LCou As Long, TVLgn()
LCou = TLgn(ListBox2.ListIndex + 1)
TVLgn = CL.PlgTablo.Rows(LCou).Value
TextBoxLambda.Text = TVLgn(1, UneDesColonnes)
etc.
End Sub