fitrer données VBA

Bonjour

etant novice, mon probleme est de concevoir une liste et j'aimerais une la liste établie proceder à l'affichage des données (listing) filtrer par un mot clé.
tableau comporte 04 champs

1. N°
2. Nom
3. Prénom
4. Date naissance
5. Adresse
6. Catégorie (Ecole) (Benjamin) (Minimes)
Alors ma question comment filtrer la liste par catégorie avec un combobox
merci

je fais un truc assez proche
j'ai une feuille critère qui reprend la première ligne avec les champs
la deuxième ligne sert à mettre les critères de filtrage
une autre feuille que j'appelle extraction sert a obtenir la copie de ta première feuille mais ne comportant que les données avec les critères que tu auras inséré (par exemple si tu met le nom et prénom d'une personne, tu n'auras que les lignes qui concerne cette personne.

le code en VBA est celui-ci
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub nom_Change() Sheets("critère").Activate Range("b2").Value = nom.Value filtre_élaboré list_operation.ColumnHeads = True 'en tete de colone list_operation.ColumnCount = 9 ' nombre de colone a afficher list_operation.ColumnWidths = "60,40;80;40;40;40;40;40;50" list_operation.RowSource = "extraction!a2:i" & Range("extraction!b65536").End(xlUp).Row ' etendue de la liste a fficher list_operation.MultiSelect = fmMultiSelectMulti End Sub
le code s'active lorsque dans une box "nom" je saisie le nom de la personne
ce nom va se ranger en b2 de la feuille critère, ensuite la macro "filtre élaboré" s'active (je la met ci dessous à la fin)
ensuite la combobox "list_operation" va faire apparaitre les 9 colonnes de ma feuille extraction (voir les critères de list_operation dans le code ci-dessus

filtre élaboré
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub filtre_élaboré() Sheets("extraction").Select Cells.Select Range("C13").Activate Selection.ClearContents Range("A1").Select Sheets("operation de tresorerie").Columns("A:i").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("critère").Rows("1:2"), CopyToRange:=Range("A1"), _ Unique:=False Range("K1").Select ActiveCell.FormulaR1C1 = "=SUM(C[-2])" Range("K2").Select End Sub
il peut être amélioré en évitant les selects mais j'ai pas eu le temps de mis penché et de faire les test
le "operation de tresorerie" correspond à ma feuille d'origine des donnée, donc nomme le de ta feuille

voila j'ai retaillé le filtre élaboré

Code:

1
2
3
4
5
6
7
8
9
 
Sub filtre_élaboré()
    Sheets("extraction").Select
    Cells.ClearContents
    Sheets("operation de tresorerie").Columns("A:i").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("critère").Rows("1:2"), CopyToRange:=Range("A1"), _
        Unique:=False
        Range("K1").FormulaR1C1 = "=SUM(C[-2])"
End Sub

avant de me faire tiré les oreilles