Remplissage de combobox

[tesmiro]

Bonjour à tous,
Ma question est la suivante: Comment remplir le combobox2 en fonction du combobox1. Le combobox1 est alimenté par la colonne A et en fonction du choix dans celui ci le combobox2 aura pour item la colonne D.
Exemple : si je selectionne "Lise" dans le combobox1 les items du combobox2 seront "Alpha" et "omega"

 

[Excel_lent]

Re : Remplissage de combobox

Bonsoir,

Es-tu sûr te ton exemple ?
Le fichier joint peut te donner des idées.

@+

 

[Hervé]

Re : Remplissage de combobox

bonsoir

un essai de réponse à travers ces codes

sans doublons pour la combobox1 (attention tu as un espace apres le 2ème lise) :

Private Sub userform_initialize()
Dim data As New Collection
Dim el
Dim i As Integer

For i = 1 To Range("a65536").End(xlUp).Row
    On Error Resume Next
    data.Add Cells(i, 1), CStr(Cells(i, 1))
    On Error GoTo 0
Next i

For Each el In data
    ComboBox1.AddItem el
Next el

End Sub

Private Sub ComboBox1_Click()
Dim i As Integer

ComboBox2.Clear

For i = 1 To Range("a65536").End(xlUp).Row
    If Cells(i, 1) = ComboBox1 Then
        ComboBox2.AddItem Cells(i, 4)
    End If
Next i
End Sub

salut

 

[tesmiro]

Re : Remplissage de combobox

Merci pour vos reponses,
Je me suis planté dans les colonnes,
Autrement vos deux solutions fonctionnent bien, c'était tous con, en me creusant les méninges j'aurais pu trouver, j'étais parti sur un truc plus compliqué!
Du coup, je n'ai plus le problème des doublons.
à la prochaine.