Bonjour , je cherche à faire des combobox en cascade ...
Cad dés qu'un combobox a un de ces items sélectionnés alors
un autre combobox jusque là invisible s'affiche .
Voici ce que j'aie fait mais je rencontre un bug ...
Cad dés qu'un combobox a un de ces items sélectionnés alors
un autre combobox jusque là invisible s'affiche .
Voici ce que j'aie fait mais je rencontre un bug ...
Code:
Private Sub ComboBox1_Change()
If Analyselitt.ComboBox1.Value = "st Dizier" Then
Call allumecombo(2)
End If
End Sub
Private Sub UserForm_initialize()
With Analyselitt.ComboBox1
.AddItem "st Dizier"
.AddItem "Compiegne"
.AddItem "Chalons"
End With
End Sub
Private Sub CommandButton1_Click()
Analyselitt.Hide
End Sub
Private Sub allumecombo(numindex As Integer)
Dim combo_dyna As Control
'Set combo_dyna = Me.Controls.Add("Forms.ComboBox." & numindex, "Combobox2", Visible = True) '
Set combo_dyna = Me.Controls("ComboBox" & numindex)
With combo_dyna
.Top = 70
.Left = 0
.Width = 400
.AddItem "RECTOR"
.AddItem "KP1"
.AddItem "GUIRAUD"
End With
End Sub