Autres XL2007 : multi filtre sans doublons

[erics83]

Bonjour,

Comme toujours, ça a l'air simple, mais....
Je souhaite filtrer une BD et avoir les résultats qui s'affichent dans une listbox et/ou feuille, un peu comme l'exemple de JB dans "Filtre 1 à 6 critères choisis dans le désordre".

Mais naturellement, je n'y arrive pas...d'où ce post.....

Donc, un USF qui permet d'afficher les filtres (sans doublons), et au fur et à mesure des filtres (non conditionnels entre eux), le résultat (=la BD des références) s'affiche dans la listBox et/ou dans une feuille....et donc de lister les références en fonction des filtres...

Merci pour votre aide,

 

[ChTi160]

Re
peut être en déterminant a chaque fois la cellule Cible

With Feuil2
    For k = LBound(TabBD) To UBound(TabBD)
'On détermine pour Chaque ligne du tableau la Ligne Cible
DerLgn= .Cells(.Rows.count,1).end(xlup).row+1
               .Cells(DerLgn, 1) = TabBD(k, 7)
    Next k

jean marie

 

[erics83]

Merci ChTi160,

oui, effectivement cela fonctionnerai mieux....mais.....je n'arrive pas à récupérer les données de la ListBox....j'ai mis un CommandButton, afin de sortir de l'USF et d'inscrire dans Feuil2 le résultat, mais....marche pas.....ça doit être tout simple, mais.....je trouve pas....

Merci pour votre aide,
Eric

 

[cp4]

et petite question : pourquoi avoir mis "28 à 34" dans la cellule AK4 ? essai ou indicateur ?

C'était juste pour moi, pour ne pas me mêler les pinceaux. Ce sont les n° de colonne (AB est la 28ème colonne et AH la 34ème).
Bonne journée.

 

[ChTi160]

Re
je n'ai pas compris ce que tu veux récupérer (juste la référenece ?) mais bon ceci devrait t'aider Lol

Private Sub CommandButton1_Click()
With Me
  TabBD = .ListBox1.List 'Ici on récupére les données de la ListBox1
End With
With Feuil2
    For k = LBound(TabBD) To UBound(TabBD)
        DerLgn = .Cells(.Rows.Count, 7).End(xlUp).Row + 1 'On détermine pour Chaque ligne du tableau la Ligne Cible
               .Cells(DerLgn, 1) = TabBD(k, 7)
    Next k
    End With
Unload Me
End Sub

pour info quand tu remplis une ListBox
Tu faist :

.List=TabBD

et quand tu veux récupérer les données d'une ListBox tu fais l'inverse lol

TabBD=.List

jean marie

 

[erics83]

Ok, Merci cp4, c'est donc bien un indicateur...! top ! merci !

Merci ChTi160 (jean marie), oui, c'est ce que je cherchais à obtenir : juste la liste des références filtrées, et donc j'ai juste fait :

DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

dans votre code : je cherchais à récupérer la valeur en 7ème position dans TabBD et l'inscrire dans Feuil2.

Et grace à vous 2, cela fonctionne parfaitement !! Merci !!!

maintenant, je vais juste essayer de mettre un textbox ou autre, pour afficher combien d'éléments se trouvent dans la listbox (le comptage s'affichant à chaque mise en place d'un filtre)....

Merci pour votre aide,
Eric

 

[ChTi160]

re
Une approche
un label mis en place
jean marie

 

[erics83]

Merci !!

C'est une belle approche, puisque c'est exactement ce que je cherchais à obtenir ...

Et je n'avais pas pensé au label....,

Me.Lbl_Infos.Caption = Me.ListBox1.ListCount

car je ne savais pas qu'il existait cette possibilité...(_Infos)....donc re-merci !!!

Merci pour ton aide jean marie,
Eric