P
petchy
Guest
Bonjour le Forum,
voila,à l'aide d'un USF je fait une recherche par genre dans ma liste de DVD,est il possible de savoir combien j'ai de Dessin animé ou de film d'action ou.........,dans mon USF
Private Sub CommandButton1_Click()
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
If TextBox1.Text <> "" Then
Dim cl As Range, Gagne As Integer
If OptionButton1.Value = True Then
'Recherche du titre
For Each cl In Sheets("liste").Range("b6:b1000")
If InStr(UCase(cl.Value), UCase(TextBox1.Text)) > 0 Then
ListBox1.AddItem cl.Value
ListBox2.AddItem cl.Offset(0, 1).Value
ListBox3.AddItem cl.Offset(0, 2).Value
Gagne = 1
End If
Next
ElseIf OptionButton2.Value = True Then
'Recherche d'un acteur
For Each cl In Sheets("liste").Range("c6:c1000")
If InStr(UCase(cl.Value), UCase(TextBox1.Text)) > 0 Then
ListBox1.AddItem cl.Offset(0, -1).Value
ListBox2.AddItem cl.Value
ListBox3.AddItem cl.Offset(0, 1).Value
Gagne = 2
End If
Next
Else
'Recherche d'un réalisateur
For Each cl In Sheets("liste").Range("d6:d1000")
If InStr(UCase(cl.Value), UCase(TextBox1.Text)) > 0 Then
ListBox1.AddItem cl.Offset(0, -2).Value
ListBox2.AddItem cl.Offset(0, -1).Value
ListBox3.AddItem cl.Value
Gagne = 3
End If
Next
End If
If Gagne > 0 Then
Controls("ListBox" & CStr(Gagne)).ListIndex = 0
End If
End If
End Sub
Private Sub ListBox1_Change()
ListBox2.ListIndex = ListBox1.ListIndex
ListBox3.ListIndex = ListBox1.ListIndex
End Sub
Private Sub ListBox2_Change()
ListBox1.ListIndex = ListBox2.ListIndex
ListBox3.ListIndex = ListBox2.ListIndex
End Sub
Private Sub ListBox3_Change()
ListBox1.ListIndex = ListBox3.ListIndex
ListBox2.ListIndex = ListBox3.ListIndex
End Sub
voila,à l'aide d'un USF je fait une recherche par genre dans ma liste de DVD,est il possible de savoir combien j'ai de Dessin animé ou de film d'action ou.........,dans mon USF
Private Sub CommandButton1_Click()
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
If TextBox1.Text <> "" Then
Dim cl As Range, Gagne As Integer
If OptionButton1.Value = True Then
'Recherche du titre
For Each cl In Sheets("liste").Range("b6:b1000")
If InStr(UCase(cl.Value), UCase(TextBox1.Text)) > 0 Then
ListBox1.AddItem cl.Value
ListBox2.AddItem cl.Offset(0, 1).Value
ListBox3.AddItem cl.Offset(0, 2).Value
Gagne = 1
End If
Next
ElseIf OptionButton2.Value = True Then
'Recherche d'un acteur
For Each cl In Sheets("liste").Range("c6:c1000")
If InStr(UCase(cl.Value), UCase(TextBox1.Text)) > 0 Then
ListBox1.AddItem cl.Offset(0, -1).Value
ListBox2.AddItem cl.Value
ListBox3.AddItem cl.Offset(0, 1).Value
Gagne = 2
End If
Next
Else
'Recherche d'un réalisateur
For Each cl In Sheets("liste").Range("d6:d1000")
If InStr(UCase(cl.Value), UCase(TextBox1.Text)) > 0 Then
ListBox1.AddItem cl.Offset(0, -2).Value
ListBox2.AddItem cl.Offset(0, -1).Value
ListBox3.AddItem cl.Value
Gagne = 3
End If
Next
End If
If Gagne > 0 Then
Controls("ListBox" & CStr(Gagne)).ListIndex = 0
End If
End If
End Sub
Private Sub ListBox1_Change()
ListBox2.ListIndex = ListBox1.ListIndex
ListBox3.ListIndex = ListBox1.ListIndex
End Sub
Private Sub ListBox2_Change()
ListBox1.ListIndex = ListBox2.ListIndex
ListBox3.ListIndex = ListBox2.ListIndex
End Sub
Private Sub ListBox3_Change()
ListBox1.ListIndex = ListBox3.ListIndex
ListBox2.ListIndex = ListBox3.ListIndex
End Sub