savoir combien j'ai de Dessin animé

[petchy]

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

 

[petchy]

Re

oups,j'ai oublié de dire merci
Petchy

 

[CHti160]

Salut "petchy"
je pense que oui si tu as prévu dans ta base une colonne reprenant les genres
un Combobox des genres pourrait entrainer laffichage du nombre dans un label ou autre cela par le bier d'une recherche
for each cel in range ("F2:F"& L)'pour l'exemple colonne des genres
if cel .Value=combobox1.value then
Somme=Somme +1
end if
next
Label1.text="il y a"& Somme &" "&Combo.text 'par exemple non testé

A+++
Jean Marie

 

[petchy]

salut Jean Marie

merci pour ta réponse rapide,mais ça ne fonctionne pas,im me met une erreur sur le premeier code

For Each cel In Range("d6:d" & L) 'pour l'exemple colonne des genres
If cel.Value = TextBox2.Value Then
Somme = Somme + 1
End If
Next
TextBox2.Text = "il y a" & Somme & " " & TextBox1.Text 'par exemple non testé

@ plus
petchy

 

[CHti160]

re
un fichier joint car là c'était pour en parler!!!!!
A+++
Jean Marie

 

[CHti160]

rere
dans ton adaptation du donne la valeur de somme a ta textbox2
il faut If cel.Value = TextBox1.Value Then
Somme = Somme + 1
End If
Next
TextBox2.Text = "il y a" & Somme & " " & TextBox1.Text 'par exemple non testé

donc regardes l'exemple et tu devrais y arriver ;-)
A+++

 

[petchy]

un grand merci Jean Marie pour ton aide,je vait adapté ton exemple pour mon appli.
@ plus
Petchy