XL 2019 Filtrer les donnes d'une listbox

ChTi160

XLDnaute Barbatruc

• 28 Janvier 2023

• #2

Bonsoir eCHO
Pas de fichier, pas de réponse !
Un effort ! un petit fichier représentatif (sans données confidentielle)
Jean marie

 

Vote positif 0 Vote négatif

E

eCHO

XLDnaute Junior

• 28 Janvier 2023

• #3

voici un exemple de fichier
J'ai également une question, pourquoi je ne parviens plus à ouvrir d'autres fichiers Excel lorsque celui-ci est déjà ouvert ?

 

Pièces jointes

• test.xlsm

  414.2 KB · Affichages: 6

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 29 Janvier 2023

• #4

Bonjour eCHO
oupsss ,tu masques l'application normal que tu ne vois plus rien que ton Userform !
Jean marie

 

Vote positif 0 Vote négatif

E

eCHO

XLDnaute Junior

• 29 Janvier 2023

• #5

ChTi160 à dit:

Bonjour eCHO
oupsss ,tu masques l'application normal que tu ne vois plus rien que ton Userform !
Jean marie

Cliquez pour agrandir...

et pour le filtrage sur la listbox ?

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 29 Janvier 2023

• #6

Bonkour, ChTi160,
Ca roule?

eCHO:
Dans votre tableau de la feuilleDATABASE, colonne F que des "numeros" uniques donc pas utile de faire un filtre.
Pouvez expliquer?
Qui a ecrit le code de ce fichier?

 

Vote positif 0 Vote négatif

E

eCHO

XLDnaute Junior

• 29 Janvier 2023

• #7

Oneida à dit:

Bonkour, ChTi160,
Ca roule?

eCHO:
Dans votre tableau de la feuilleDATABASE, colonne F que des "numeros" uniques donc pas utile de faire un filtre.
Pouvez expliquer?
Qui a ecrit le code de ce fichier?

Cliquez pour agrandir...

Merci @Oneida pour votre réponse. Le filtrage se fera sur la feuille "quittance". Je vous explique, le bouton de recherche cherche les données sur la feuille "database". Je souhaite également filtrer la listbox2 qui contient les données de la feuille "quittance".

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 29 Janvier 2023

• #8

Re,
Tout a fait Thiery, pour moi rien a filtrer puisque les donnees colonne F database et C quittance sont unique pas de doublon ou plus.
Database et quittance doivent avoir les memes donnees ou pas, car y a quleques differences

Qui a ecrit le code?

Si, je comprends bien, la feuille database ne vous sert a rien, seul la feuille Quittance compte

 

Dernière édition: 29 Janvier 2023

Vote positif 0 Vote négatif

E

eCHO

XLDnaute Junior

• 29 Janvier 2023

• #9

Les données de la "database" sont les mêmes que celles de la feuille "quittance", sauf que lorsque j'ai essayé de modifier les informations confidentielles, j'ai commis une erreur.
Le filtrage doit se faire en utilisant le textbox "n_mag" et le combobox "cmb_suite" dans l'userform1 pour filtrer les données de la feuille "quittance" dans les colonnes "n" et "suite". J'espère que vous avez compris.

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 29 Janvier 2023

• #10

Re,
"database" sont les mêmes que celles de la feuille "quittance"
Ben non, il en manque dans Quittance, mais c'est vous qui voyez

utilisant le textbox "n_mag" et le combobox "cmb_suite"
Oui, mais il y a une seule ligne pour n_mag avec cmd_suite!

Vous ne repondez toujours pas a la question:
qui a ecrit le code VBA?

 

Vote positif 0 Vote négatif

E

eCHO

XLDnaute Junior

• 29 Janvier 2023

• #11

J'ai trouvé le code sur un forum il y a longtemps et je l'ai modifié plusieurs fois pour qu'il convienne à mon travail.

 

Vote positif 0 Vote négatif

E

eCHO

XLDnaute Junior

• 29 Janvier 2023

• #12

VB:

Dim i As Integer
Dim ListCount1 As Integer
ListCount1 = ListBox2.ListCount - 1
If N_Mag <> "" Then
For i = ListCount1 To 0 Step -1
If InStr(1, ListBox2.List(i, 2), N_Mag) = 0 Or InStr(1, ListBox2.List(i, 4), cmb_suite.Value) = 0 Then
ListBox2.RemoveItem (i)
End If
Next i
End If

Ce code fonctionne parfaitement, mais il ne filtre pas les données exactes. Par exemple, si je cherche "55" dans N_Mag, il me trouve toutes les données qui contiennent "55", "552", "155", etc.

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 29 Janvier 2023

• #13

Bonjour ChTi160,

eCHO:
ce code ne correspond pas a votre demande:
les filtrer en fonction de cmb_suite et n_mag.
C'est un et pas un ou

Maintenant si cela vous convient, pourquoi pas.

 

Vote positif 0 Vote négatif

E

eCHO

XLDnaute Junior

• 29 Janvier 2023

• #14

bonjour @ChTi160 non le code ne fonction pas
les filtrer en fonction de cmb_suite et n_mag

 

Vote positif 0 Vote négatif

E

eCHO

XLDnaute Junior

• 29 Janvier 2023

• #15

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

 

Vote positif 0 Vote négatif

Solution