Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Filtrer les donnes d'une listbox

eCHO

XLDnaute Junior
Bonjour, je voudrais que vous m'aidiez à afficher les données d'une table qui se trouve sur une feuille nommée "quittance" dans une listbox2 de mon userform1.
J'ai déjà un bouton de recherche qui recherche des données sur une feuille "base" en fonction d'un texte saisi dans un Textbox "N_mag" et un combobox "cmb_suite".
J'ai réussi à afficher toutes les données de la feuille quittance, mais ce que je souhaite maintenant c'est de les filtrer en fonction de cmb_suite et n_mag.

VB:
ListBox2.ColumnCount = 20
ListBox2.ColumnWidths = "150;50;50;60;70;150"
ListBox2.RowSource = "QUITTANCE!A:G"

Merci
 
Solution
merci pour votre temps
j'ai régler le problème
VB:
Dim i As Integer
Dim ListCount1 As Integer
ListCount1 = ListBox2.ListCount - 1
If Trim(UCase(N_Mag)) <> "" Then
  For i = ListCount1 To 0 Step -1
    If UCase(Trim(ListBox2.List(i, 2))) <> UCase(Trim(N_Mag)) Or _
       UCase(Trim(ListBox2.List(i, 1))) <> UCase(Trim(Cmb_Suite.value)) Then
      ListBox2.RemoveItem (i)
    End If
  Next i
End If

ChTi160

XLDnaute Barbatruc
Bonjour
il y a une grande différence entre "=" et "<>" Lol
puis pourquoi deux Test
VB:
If Trim(UCase(N_Mag)) <> "" Then
  For i = ListCount1 To 0 Step -1
    If UCase(Trim(ListBox2.List(i, 2))) <> UCase(Trim(N_Mag)) Or _
soit sur
Code:
 Trim(UCase(N_Mag)) ou UCase(Trim(N_Mag))
Bonne journée
Jean marie
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…