Option Explicit
Public Ws_Source As Worksheet
Private Sub CBn_Init_Click()
OkClean = True
If NBrOpt = 0 Then Exit Sub
NBrOpt = 0
'* ******************
RecupTabGen 'function
'* ******************
RecupListe UsF_Recherche.LstB_Filtre, Tabtemp, Alim_Combo(Tabtemp, TabStrSearch)
End Sub
Private Sub CBn_Quitter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialise()
'Set Ws_Source = Worksheets("SAISON")
''******************************
'T = TBl_General(Ws_Source)
With UsF_Recherche
For ii = 1 To 4 'Pour chacun des combobox de recherche
ReDim Preserve CmboBox(1 To ii) 'on redimmensionne le tableau qui va permettre de récupéré _
et d'entrer les combobox dans la Classe
Set m_CmbB = Me.Controls("CBx_" & ii) 'on récuépere le combobox dans la variable
m_CmbB.Tag = Choose(ii, "1|1", "2|2", "3|3", "3|6") 'on colle le numero de la colonne dans le tag du Combo
' MsgBox m_CmbB.Tag
'on attribue le CmbBox au tableau de la classe GroupeCmbBox
Set CmboBox(ii).GroupeCmbBox = m_CmbB
Next
With .LstB_Filtre
.ColumnCount = 6
.ColumnWidths = "105;30;160,30;30;160" '528
End With
'******************************
RecupTabGen
'******************************
' Alim_Combo Tabtemp, TabStrSearch 'Function
'********************
RecupListe .LstB_Filtre, Tabtemp, Alim_Combo(Tabtemp, TabStrSearch) 'Function
'********************
' With .CBx_1 'Saisons
' .AddItem "<<TOUTES>>"
' .List(.ListCount - 1, 1) = "*"
' For Lgn = 1 To UBound(T, 1)
' .Text = T(Lgn, 1)
' If .ListIndex = -1 Then
' .AddItem Trim(T(Lgn, 1))
' .List(.ListCount - 1, 1) = Trim(T(Lgn, 1))
' End If
' Next Lgn
' .ListIndex = 0
' End With
' With .CBx_2 'Lieux Domicile/Exterieur
' .ColumnCount = 2
' .ColumnWidths = "1;0"
' .AddItem "<<TOUS>>"
' .List(.ListCount - 1, 1) = "3|6" 'Les deux Colonnes
'
' .AddItem "Domicile"
' .List(.ListCount - 1, 1) = "3|3" 'Dimicile Colonne 3
'
' .AddItem "Exterieur"
' .List(.ListCount - 1, 1) = "6|6" 'Exterieur Colonne 6
' .ListIndex = 0
' End With
End With
End Sub