VBA, Excel: Tri de valeur selectionnées dans Listbox Fermé

Question

Bonjour à tous, 

Je suis un grand novice du VBA. J'ai un problème lorsque je veux filtrer les différentes données d'une ListBox. 


 
Voici mon code:

________________________________________________________________________


Private Sub OK_Click()


Dim lItem As Long

For lItem = 0 To ListBoxLines.ListCount - 1

If ListBoxLines.Selected(lItem) = True Then


 ActiveSheet.Range("$A$3:$BH$800").AutoFilter Field:=11, Criteria1:=ListBoxLines.List(lItem)


ListBoxLines.Selected(lItem) = False

End If

Next


' Fermer fenêtre après avoir selectionné commande
Unload Me


End Sub

________________________________________________________________________


Le code fonctionne mais dès lors que plusieurs données sont sélectionnées dans la ListBox le résultat du filtre n'est que la dernière donnée qui a été sélectionnée et non toutes les sélections.

 Comment faire pour que toutes les données sélectionnées dans la ListBox soient prises en compte par le filtre et pas uniquement la dernière? 

Merci de votre réponse :)

f894009 · Accepted Answer

Re,

il faut prendre toutes les colonnes pour plage:-----> A3:D400

le filtre est sur le champ 3 pas 1, sauf erreur de ma part.

https://www.cjoint.com/?BKhqUMeSWOx

Bon courage

f894009 · Answer

Bonjour,

Si j'ai bien compris ce que vous voulez: adaptez la plage pour le filtre

Private Sub Ok_Click()
  Dim lItem As Long
  'Tableau a dimensionner suivant le nombre maxi de choix
  Dim Choix(12) As String
  Dim x
  
  For lItem = 0 To ListBoxLines.ListCount - 1
    If ListBoxLines.Selected(lItem) = True Then
      Choix(x) = ListBoxLines.List(lItem)
      ListBoxLines.Selected(lItem) = False
      x = x + 1
    End If
  Next
  'Efface filtre ADAPTER la plage
  ActiveSheet.Range("$A$1:$A$19").AutoFilter Field:=1

  'Filtre(s) idem plage mettre les variables au maxi choix(x),ici 12
  ActiveSheet.Range("A1:A19").AutoFilter Field:=1, _
  Criteria1:=Array(Choix(0), Choix(1), Choix(2), Choix(3), _
                   Choix(4), Choix(5), Choix(6), Choix(7), _
                   Choix(8), Choix(9), Choix(10), Choix(11), Choix(12)) _
                    , Operator:=xlFilterValues

  'Fermer fenêtre après avoir selectionné commande
  Unload Me
End Sub

A+