Filtre par Checkbox

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:

---

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. :)

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

Code:

---

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

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() ? ;)

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

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

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

Merci beaucoup, les gars ! :ccool: :ccool: :ccool: