Discussion :

[Esak59]

Bonjour à toutes et à tous,

J'ai une question pour vous. Voila j'aimerais savoir s'il était possible de filtrer une colonne avec une checkbox. Je m'explique:

Dans une colonne j'ai deux choix : "Oui" ou "Non".

J'aimerais en cliquant sur ma checkbox, filtrer ma colonne et afficher que les "Oui" par exemple. Je vous mets mon p'tit bout de code qui, malheureusement ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If CheckBox1 = True Then ActiveSheet.Range("Z3:Z200").AutoFilter Field:=26, Criteria1:="Oui"

J'entre ce code dans " Private Sub CheckBox1_Click()"

Ma checkbox se trouve dans un Userform et c'est là que je crois qu'il y a une erreur.

Merci d'avance.

[rvtoulon]

bonjour,
essaye plutôt avec l'événement change de la checkbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CheckBox1_Change()
If Me.CheckBox1 = True Then
ActiveSheet.Range("Z3:Z200").AutoFilter Field:=26, Criteria1:="Oui"
Else
ActiveSheet.Range("Z3:Z200").AutoFilter Field:=26
End If
End Sub

Ici si checkbox est cochée alors affiche que les "oui" sinon remet le filtre a zéro

[Esak59]

Merci beaucoup, mais j'ai une erreur :

Erreur d'exécution '1004' :

La méthode AutoFilter de la classe Range a échoué

Peut-être qu'il faut ajouter un évènement dans l'UserForm_Initialize() ?

[pgz]

Bonjour.

Tu appliques la méthode Autofilter à une plage limitée à la colonne Z. Dans cette plage, cette colonne a le numéro 1 et non pas 26.
Je crois.

Cordialement,

PGZ

[rvtoulon]

je suis d'accord avec pgz, je pense que Field:=1 au lieu de 26

[Esak59]

C'est tout à fait ça, c'est bon ça roule.

Merci beaucoup, les gars !