Userform VBA Liste en cascade

[juju12]

Bonjour à tous!!

J'ai un problème sur VBA pour les listes en cascades!

je ne sais pas faire!

Chaque DAS à des produits. Je voudrais faire une liste en cascade en fonction de chaque DAS.
Je met mon Excel en joint.

Merci d'avance )

 

[Bebere]

Re : Userform VBA Liste en cascade

bonjour Juju
bienvenue

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

 

[Spinzi]

Re : Userform VBA Liste en cascade

Bonjour,

as-tu recherché dans le forum ? Il y a plein de topics qui parlent de cette problématique ...
Si tu ne connais pas la bible, tu devrais trouver ton bonheur ici : Menus en cascade