selection liste selon valeur dans combobox

[phileasdav]

Bonjour a tous

je cale sur un probleme pourtant simple qui consiste a selectionner une liste par rapport a une valeur d'une autre liste .

ci joint le fichier avec mon code qui ne fonctionne pas
merci d'avance
a++

 

[Cousinhub]

Re : selection liste selon valeur dans combobox

Bonjour,

une solution parmi d'autres...

Private Sub ComboBox1_Change()
Me.ComboBox2.Clear
Me.ComboBox2.List = Sheets("feuil1").Range(Me.ComboBox1).Value
End Sub

Private Sub UserForm_initialize()
Dim DerLig As Long
Dim I As Byte
With Sheets("feuil1")
    ComboBox1.List = .Range("B3:B" & .[B65000].End(xlUp).Row).Value
    For I = 5 To .[IV2].End(xlToLeft).Column
        DerLig = .Cells(65000, 5).End(xlUp).Row
        .Range(.Cells(3, I), .Cells(DerLig, I)).Name = .Cells(2, I).Value
    Next I
End With
End Sub

 

[phileasdav]

Re : selection liste selon valeur dans combobox

merci beaucoup mais ça ne fonctionne pas avec mon code !!
il y aurait il une autre solution our ce type de probleme?

 

[phileasdav]

Re : selection liste selon valeur dans combobox

Re.......tt le monde

précision sur mon probleme toujours pas résolu!!
les listes ne sont pas toutes de la meme longueur .

a bientot

 

[Cousinhub]

Re : selection liste selon valeur dans combobox

Re-,

essaie en remplaçant le 5 par I :

DerLig = .Cells(65000, 5).End(xlUp).Row

par :

DerLig = .Cells(65000, I).End(xlUp).Row

 

[phileasdav]

Re : selection liste selon valeur dans combobox

super, ça marche

merci