Trie par combobox

Bonjour,

J'ai un petit souci c'est pour cela que je fait appel à vous.

J'ai sur formulaire une Listbox, textbox et combobox.

La listbox affiche toutes mes lignes de ma feuille j'aimerai que lorsque je fait mon choix dans ma combobox la listbox affiche que mon choix.

je vous remercie de votre aide

Cordialement

Max

Bonjour valmax

Comme ceci?

Private Sub ComboBox1_Change()
With ListBox1
   If Me.ComboBox1.ListIndex <> -1 Then
      .RowSource = Sheets("Feuil1").Range("B" & ComboBox1.ListIndex + 3 & ":L" & ComboBox1.ListIndex + 3).Address
   Else
      .RowSource = Range("A3:L" & Range("A65536").End(xlUp).Row).Address
   End If
End With
End Sub

Bonjour

je te remercie beaucoup Nickel

Bonne journée

Max

Re,

J'ai voulu mettre la même chose pour une deuxième combobox sur la colonne "F" sa ne fonction pas?

Private Sub ComboBox1_Change()
With ListBox1
   If Me.ComboBox1.ListIndex <> -1 Then
      .RowSource = Sheets("Feuil1").Range("A" & ComboBox1.ListIndex + 3 & ":L" & ComboBox1.ListIndex + 3).Address
   Else
      .RowSource = Range("A3:L" & Range("A65536").End(xlUp).Row).Address
   End If
End With
End Sub

Private Sub ComboBox2_Change()
With ListBox1
   If Me.ComboBox2.ListIndex <> -1 Then
      .RowSource = Sheets("Feuil1").Range("F" & ComboBox2.ListIndex + 3 & ":L" & ComboBox2.ListIndex + 3).Address
   Else
      .RowSource = Range("A3:L" & Range("A65536").End(xlUp).Row).Address
   End If
End With
End Sub

Peut tu me dire pourquoi?

Je te remercie d'avance

Max

Bonjour

cela ne fonctionne pas car la colonne de référence est toujours la "A"

voir fichier joint

mais je suppose que tu vas me demander de rechercher tous les genres

Re Bob

Oui le but et je retrouve tous les Western ou action qui se trouve dans la feuille

@+

Max

Re bonjour

A tester

Adaptation trouvé sur le forum

Re Bob

Je te remercie beaucoup Nickel

je te souhaite une bonne soirée

Max