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

Séléction multi-critéres d'une listbox pour filtre élaboré

Maddad

XLDnaute Nouveau
Bonjour,

Voila j'ai créer un userform avec une listbox contenant une liste d'année que j'utilise comme critère pour un filtre élaboré sur une colonne date, est-ce-qu'il est possible d'utiliser plus d'un critère de la listbox pour filtrer les données (liées par un ET logique), voici le code que j'utilise et qui ne me permet d'effectuer un filtre que pour un critère de la listbox à la fois :

Code:
Private Sub UserForm_Initialize()
ListDateArticle.RowSource = ("Items!Date_de_l_article")
ListDateArticle.MultiSelect = fmMultiSelectExtended
ListDateArticle.ListIndex = -1

Code:
Private Sub CbtValider_Click()
With Me.ListDateArticle
For a = 0 To .ListCount - 1
If .Selected(a) Then
Sheets("Evenements de pertes-filtre").Cells(2, 2).FormulaLocal = "=ANNEE('Evenements de pertes'!A2)=" & .List(a)
End If
Next a
End With

Merci d'avance
 

Discussions similaires

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