XL 2016 Filtrer par Userform

Eric4709 · 3 Mars 2021

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.

Eric4709 · 27 Avril 2021

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

XL 2016 Filtrer par Userform

Eric4709

XLDnaute Nouveau

Pièces jointes

Eric4709

XLDnaute Nouveau

Discussions similaires