Listbox en cascade

[bernardrustrel]

Bonjour à tous
dans le fichier joint je voudrais alimenter la listbox2 à partir de la listbox1 en faisant un tri.
En clair, en cliquant sur le bouton, il faudrait que n'apparaisse sur la listbox2 que les lignes ou figure en colonne 2 (1 ou 2). Cela en ne faisant le tri que sur la listbox1 sans intervenir à la feuil1. (car là je sais faire).
Alors si l'un de vous avait une idée sur le sujet je serai preneur.
Merci par avance.
Cordialement, Bernard

 

[Paf]

Re : Listbox en cascade

Bonjour

a priori

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+

 

[bernardrustrel]

Re : Listbox en cascade

Bonjour

a priori

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+

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