Regueiro
XLDnaute Impliqué
Bonsoir le Forum
J'aimerais alimenter me.combobox.2 avec
Merci pour votre Aide
J'aimerais alimenter me.combobox.2 avec
Les données ci-dessous : | Ce que je veux dans le combobox.2 |
---|---|
HFSHS 40 / 2.6 HFSHS 40 / 3.2 HFSHS 40 / 4 HFSHS 40 / 5 HFSHS 50 / 2.6 HFSHS 50 / 3.2 HFSHS 50 / 4 HFSHS 50 / 5 HFSHS 50 / 6.3 HFSHS 60 / 2. | HFSHS 40 HFSHS 50 HFSHS 60 |
Private Sub ComboBox1_click() TAB1 = [TAB_HFSHS].Value Set d = CreateObject("Scripting.Dictionary") Select Case Me.ComboBox1 Case "Finis à Chaud - EN 10 210-2" For Each c In TAB1 temp = "" temp = Left(c, InStrRev(c, "/") - 1) 'MsgBox temp 'OK mais pas dans le Combobox.2 If UCase(c) Like temp Then d(c.Value) = "" Next c temp = d.keys Me.ComboBox2.List = temp 'Me.ComboBox2.RowSource = "TAB_HFSHS" 'Me.ComboBox2.List = TAB1 'OK Case "Finis à Froid - EN 10 219-2" Me.ComboBox2.RowSource = "TAB_CFSHS" End Select End Sub |
Merci pour votre Aide