Bonjour,
J'ai essayé de tout dire dans mon titre
Afin d'éviter de passer des heures à écrire un code à rallonge, je me tourne vers vous car je suis persuadée que vous saurez trouver la solution
A partir de cases à cocher insérées dans un UF, je souhaiterais filtrer un tableau dans une feuille.
Voici le UF :
Si on coche "Tous" à gauche, je souhaiterais que tous les métiers soient cochés, idem sur "Tous" pour les villes, ou bien qu'on puisse choisir que quelques métiers ou que quelques villes, etc. et que mon tableau se filtre par la même occasion.
J'ai commencé à écrire ceci, mais vous imaginerez bien que le temps d'écrire toutes les conditions seraient monstrueux et débile alors que je suis certaine qu'il doit il y avoir plus court, mais je ne trouve pas...
Merci beaucoup pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub Méca_click() With Sheets("Feuil1") If Méca * Infor * Coiff * Cond * Elec * Menui * Nett * Boul * Bouch Then ActiveSheet.ListObjects("Tableau5").Range.AutoFilter Field:=8 Exit Sub If Méca * Elec Then ActiveSheet.ListObjects("Tableau5").Range.AutoFilter Field:=8, Criteria1:="=Méca", Operator:=xlOr, Criteria2:="=Elec" ' etc........... Exit Sub End if End With End Sub
Partager