XL 2019 Filtrer les donnes d'une listbox

eCHO · 28 Janvier 2023

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

eCHO · 29 Janvier 2023

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 · 30 Janvier 2023

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

XL 2019 Filtrer les donnes d'une listbox

eCHO

XLDnaute Junior

eCHO

ChTi160

XLDnaute Barbatruc

Discussions similaires