1 pièce(s) jointe(s)
Filtrer tableau dans une feuille en fonction choix unique ou multiple checkbox userform
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 :
Pièce jointe 654001
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...
Code:
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 |
Merci beaucoup pour votre aide
