Userform VBA Liste en cascade

Private Sub ComboBox2_Change()

' Liste_deroulante Macro
'

'
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Particulier;Professionel"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Private Sub ComboBox4_Change()
If Me.ComboBox4 <> "" Then
Me.ComboBox5.Clear
c = Me.ComboBox4.ListIndex + 2 'colonne das
l = Feuil3.Cells(100, c).End(xlUp).Row
If l > 2 Then
Me.ComboBox5.List = Feuil3.Range(Feuil3.Cells(2, c), Feuil3.Cells(l, c)).Value
Else
Me.ComboBox5.AddItem Feuil3.Cells(2, c)
End If
End If
End Sub

' Pour le bouton Quitter
Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox4.List = Application.Transpose(Feuil3.Range("B1:E1").Value) 'das
End Sub

Cliquez pour agrandir...