Listbox en cascade

Re : Listbox en cascade

Bonjour

a priori


Dans votre classeur la variable ici nommée MaVal se nomme Val; Val étant le nom d'une fonction VBA, il vaut mieux éviter ....

A+

Re : Listbox en cascade

Paf à dit:

Bonjour

a priori

Code:

Private Sub CommandButton1_Click()
 Dim MaVal As Integer, i As Integer, j As Integer
 ListBox2.Clear
 For i = 0 To ListBox1.ListCount - 1
    MaVal = ListBox1.List(i, 1)
    If MaVal = 1 Or MaVal = 2 Then
        ListBox2.AddItem ListBox1.List(i, 0)
        ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(i, 1) ' ou = MaVal
    End If
 Next
End Sub

Dans votre classeur la variable ici nommée MaVal se nomme Val; Val étant le nom d'une fonction VBA, il vaut mieux éviter ....

A+

Cliquez pour agrandir...

Bonjour et merci pour votre réponse car elle m'a mis sur la voie que j'ai du adapter car, où alors j'en ai omis une subtilité, mais dans mon cas elle ne fonctionnait pas tel quel aussi voici ce que j'ai adapté:

Private Sub CommandButton1_Click()
Dim MaVal, I As Integer, J As Integer
ListBox2.Clear
J = 0
For I = 0 To ListBox1.ListCount - 1
MaVal = ListBox1.Column(1, I)
If MaVal = 1 Or MaVal = 2 Then
ListBox2.AddItem
ListBox2.Column(0, J) = ListBox1.Column(0, I)
ListBox2.Column(1, J) = ListBox1.Column(1, I)
J = J + 1
End If
Next
End Sub

Encore un grand merci.
Cordialement
Bernard