Insérer les éléments de deux listbox dans une troisième

Hasco à dit:

Bonjour,

Voici un exemple:

Code:

Private Sub RemplirCombobox3()
    Dim i As Integer
    Dim t
    With ComboBox3
        .Clear
        'Ajouter Combobox1 d'un coup
        .List = ComboBox1.List
        'charger dans un tableau les items de combobox2
        t = ComboBox2.List
        'Parcourir le tableau
        For i = 0 To UBound(t)
            'Ajouter les éléments du tableau à combobox3
            .AddItem t(i, 0)
        Next i
    End With
End Sub

A+

Cliquez pour agrandir...