1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Private Sub ListBox2_Click()
MsgBox ("debut listbox")
Dim temporaire()
Dim Compteur2 As Integer
For Compteur2 = 1 To (ListBox2.ListCount - 1)
If ListBox2.Selected(Compteur2) = True Then
famille = ListBox2.List(Compteur2, 1)
ListBox2.Selected(Compteur2) = False
Compteur2 = ListBox2.ListCount
End If
Next Compteur2
MsgBox (famille)
If famille <> 1000 Then
IP = 1
For i = 1 To article_public
If Désignation_article(i, 4) = famille Then
IP = IP + 1
End If
Next i
ReDim temporaire(IP + 1, 5)
ii = 0
For i = 1 To article_public
If Désignation_article(i, 4) = famille Then
temporaire(ii, 0) = Désignation_article(i, 0)
temporaire(ii, 1) = Désignation_article(i, 1)
temporaire(ii, 2) = Désignation_article(i, 2)
temporaire(ii, 3) = Désignation_article(i, 3)
temporaire(ii, 4) = Désignation_article(i, 4)
temporaire(ii, 5) = Désignation_article(i, 5)
ii = ii + 1
End If
Next i
ListBox1.List() = temporaire
Else
ListBox1.List() = Désignation_article
End If
End Sub |
Partager