XL 2016 Filtrer par Userform

Eric4709

XLDnaute Nouveau
Bonjour la compagnie,

Je viens une nouvelle solliciter vos compétences pour m'aider sur un problème d'affichage et de filtre.

En effet, je souhaiterai pouvoir filtrer une colonne par le biais d'un Userform, qui s'ouvrira via un bouton. Mon fichier faisant 280 colonnes, ce filtre par userform est indispensable pour gagner du temps et ne pas revenir sur la colonne à filtrer.

Je vous mets un fichier test en PJ. La colonne a filtrer est "Statut Vente". J'ai déjà créé le userform avec les différents choix possible. Comme pour les filtres, je voudrai pouvoir sélectionner 1 ou plusieurs critère.

J'espère que j'ai été assez clair dans ma demande.

Merci beaucoup d'avance pour votre aide.

Bonne journée.
 

Pièces jointes

  • Test_OPRA.xlsm
    674.6 KB · Affichages: 38

Eric4709

XLDnaute Nouveau
Bonjour à tous ceux qui voudront bien regarder :)
Pour tenter d'avancer sur ce sujet, j'ai écrit le code suivant
VB:
Private Sub CheckBox1_Click()
    Filtrer
End Sub
 
Private Sub CheckBox2_Click()
    Filtrer
End Sub
 
 Private Sub CheckBox3_Click()
    Filtrer
End Sub

Private Sub CheckBox4_Click()
    Filtrer
End Sub

Private Sub CheckBox5_Click()
    Filtrer
End Sub

Private Sub CheckBox6_Click()
    Filtrer
End Sub

Private Sub CheckBox7_Click()
    Filtrer
End Sub

Private Sub Filtrer()
 
Application.ScreenUpdating = False
 ActiveSheet.ListObjects("Suivi_des_Livraisons").Range.AutoFilter Field:=15, _
    Criteria1:=IIf(CheckBox1, "=1", "=14", "=12", "=3", "=13", "=6", "=7"), _
    Criteria2:=IIf(CheckBox2, "=1", "=14", "=12", "=3", "=13", "=6", "=7"), _
    Criteria3:=IIf(CheckBox3, "=1", "=14", "=12", "=3", "=13", "=6", "=7"), _
    Criteria4:=IIf(CheckBox4, "=1", "=14", "=12", "=3", "=13", "=6", "=7"), _
    Criteria5:=IIf(CheckBox5, "=1", "=14", "=12", "=3", "=13", "=6", "=7"), _
    Criteria6:=IIf(CheckBox6, "=1", "=14", "=12", "=3", "=13", "=6", "=7"), _
    Criteria7:=IIf(CheckBox7, "=1", "=14", "=12", "=3", "=13", "=6", "=7"), _
 Operator:=xlOr
End Sub

Mais il semble que ça bloque. Est-ce que l'un de vous pourrait m'aider ?

Merci d'avance à tous
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510