bonjour à tous,
voici un exemple de userform avec combobox en cascade avec des listes nommées
http://cjoint.com/?gecEjkcTnA
Private Sub UserForm_Initialize()
With Me.ComboBox1
.RowSource = Names("List_A").RefersTo
End With
Me.ComboBox2.RowSource = ""
Me.ComboBox3.RowSource = ""
End Sub
Private Sub ComboBox1_Change()
With Me.ComboBox2
.RowSource = Names("" & Me.ComboBox1).RefersTo
.ListIndex = 0
End With
End Sub
Private Sub ComboBox2_Change()
On Error GoTo fin
With Me.ComboBox3
.RowSource = Names("" & Me.ComboBox2).RefersTo
.ListIndex = 0
fin:
If Err.Number <> 0 Then .RowSource = "": .Text = "": Err.Clear
End With
End Sub