Filtrer des lignes à partir d'une liste déroulante à choix multiples
Résolu
HEMIYELY
Messages postés
61
Date d'inscription
Statut
Membre
Dernière intervention
-
HEMIYELY Messages postés 61 Date d'inscription Statut Membre Dernière intervention -
HEMIYELY Messages postés 61 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Filtrer des lignes à partir d'une liste déroulante à choix multiples
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
3 réponses
Bonjour
La macro associée au bouton de l'userform :
Et la macro associée au 2eme bouton de la feuille :
Cdlmnt
Via
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
Pour des raisons de confidentialité, j'ai supprimé 2 colonnes (entre "Article title" et "Main message"). J'ai essayé de modifier le code en ajoutant ces deux colonnes mais la macro ne fonctionne pas correctement.
Pouvez-vous me dire ce que je dois modifier dans le code si j'ajoute ces 2 colonnes ?
Cordialement