Filtrer des lignes à partir d'une liste déroulante à choix multiples Résolu

Question

Bonjour,
Je souhaite filtrer des données à partir d'une liste déroulante à choix multiples

Voici le fichier : https://mon-partage.fr/f/thHjxLxe/ 

- La colonne C contient des keywords (plusieurs par cellules)
- Ces keywords sont listés un par un dans la feuille "Keywords" 
-  Dans la feuille "Liste des docs" je souhaite filtrer les articles s'ils contiennent les keywords de la liste "keywords"

J'aimerai avoir une sorte de boite de dialogue qui appairait avec la liste des keywords à sélectionner. Une fois que je les ai sélectionné, les articles contenants ces keywords apparaissent. 

N'hésitez pas à me poser des questions si je ne suis pas assez explicite.

Merci d'avance

via55 · Answer

Bonjour

Ton fichier avec la macro adéquate :
https://mon-partage.fr/f/hiKJ8Nk7/

Cdlmnt
Via

via55 · Answer

Bonjour

La macro associée au bouton de l'userform :
Private Sub CommandButton1_Click()
Dim i As Byte
 Range("F2:F113").ClearContents
    'boucle sur les éléments de la listbox et retiens ceux selectionnés
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        cle = ListBox1.List(i)
'boucle sur les lignes et met un x en col Esi mot clé en col D
 For n = 2 To 113
 If Application.WorksheetFunction.CountIf(Range("D" & n), "*" & cle & "*") > 0 Then Range("E" & n) = "x"
  Next n
End If
      Next i
      Unload Me
 'filtre les x
  ActiveSheet.Range("$A$1:$F$113").AutoFilter Field:=4, Criteria1:="<>"
End Sub

Et la macro associée au  2eme bouton de la feuille :
Private Sub CommandButton2_Click()
 ActiveSheet.Range("$A$1:$F$113").AutoFilter Field:=4
End Sub
 Cdlmnt
Via

via55 · Answer

Ah pardon, oubli de ma part dans les 2 macros pour le trie il faut remplacer 4 par 6 dans Field:=4

Filtrer des lignes à partir d'une liste déroulante à choix multiples

3 réponses

Votre réponse

Discussions similaires