XL 2016 Liste avec plusieurs valeurs à cocher

[Axel22]

Bonjour à tous,

J'ai réaliser une interface où l'utilisateur peux filtrer une feuille excel en choisissant la valeur à filtrer grâce un ListBox.
Une fois le filtre choisi je clique sur un bouton qui m'ouvre une nouvelle feuille avec mes données filtrés.

Maintenant j'aimerais toujours réalisé la même opération mais en choisissant plusieurs valeurs à filtrer, un peu comme le filtre basique d'excel.

Pour plus de compréhension je vous envoie mon fichier avec le code que j'ai fais pour 1 seule valeur sélectionné.

Je ne sais pas si j'ai été assez clair
Merci
Bonne soirée

 

[Lolote83]

Salut Axel22,
Voir ton fichier en retour si j'ai bien compris la consigne
@+ Lolote83

 

[Axel22]

Salut Axel22,
Voir ton fichier en retour si j'ai bien compris la consigne
@+ Lolote83

Merci beaucoup de m'avoir répondu, j'avais réussi finalement à trouver une solution un peu similaire à la tienne !
Merci quand même

 

[Lolote83]

Re salut,
Cela serait peut être intéressant pour tout le monde d'avoir aussi une autre approche.
Dépose alors ton fichier
@+ Lolote83

 

[BOISGONTIER]

Bonsoir,

Dim TblBD(), NbCol, NomTableau
Private Sub UserForm_Initialize()
  TblBD = [Tableau1].Value
  '--- construction des cases d'options régions
  Set d = CreateObject("scripting.dictionary")
  For i = 1 To UBound(TblBD): d(TblBD(i, 5)) = "": Next i
  Me.ListBox1.List = d.keys
  B_tout_Click
End Sub

Private Sub ListBox1_Change()
   Dim Tbl()
   For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) = True Then
       n = n + 1: ReDim Preserve Tbl(1 To n)
       Tbl(n) = Me.ListBox1.List(i)
    End If
   Next i
   If n > 0 Then  Sheets("bd").[A1].AutoFilter Field:=5, Criteria1:=Tbl, Operator:=xlFilterValues   Else     Sheets("bd").[A1].AutoFilter
End Sub

Pour une liste triée

http://boisgontierjacques.free.fr/fichiers/Cellules/FiltreAutoListBoxMultiSelection.xls

Boisgontier

 

[Lolote83]

Re bonjour,
Au fait, j'ai oublié de signaler que 93 - Provence-Alpes-Côte d'Azur n'est pas le bon numéro de département
Il faudrait corriger en 83 - Provence-Alpes-Côte d'Azur
@+ Lolote83