Filtre macro ?

[yoyo77]

Bonjour à tous ,

J'ai un soucis pour mettre des filtres en Feuil1,

les boutons de filtre sont en haut à droite c'est pour la partie "suivi"

j'aimerais pouvoir filtrer les : "en cours" "clôturé" colonne M et avoir possibilité via un bouton d'un retour à sélectionner tout.

J'ai collé une macro en Module4 qui ne fonctionne pas

Pouvez vous m'aider SVP

Merci

 

[JCGL]

Re : Filtre macro ?

Bonjour à tous,

Le filtre doit se faire sur le champ 13 :

Range("A3").AutoFilter Field:=13, Criteria1:=MonChoix

Pour tout sélectionner :

Sub DéFiltrer()
Range("A3").AutoFilter
End Sub

A+ à tous

 

[yoyo77]

Re : Filtre macro ?

JCGL ,

Merci ca marche parfaitement bien,

Bon week-end

A+++

 

[job75]

Re : Filtre macro ?

Bonjour yoyo77, salut Jean-Claude

Si comme le dit Jean-Claude le filtrage se fait sur la colonne M :

Sub Filtrer()
Dim MonChoix$
MonChoix = ActiveSheet.DrawingObjects(Application.Caller).Text
Range("M3:M" & Rows.Count).AutoFilter 1, MonChoix
On Error Resume Next
If MonChoix = "Toute selection" Then ActiveSheet.ShowAllData
End Sub

Affecter cette macro aux 3 boutons à droite.

A+

 

[yoyo77]

Re : Filtre macro ?

job75 , JCGL,

Merci ca marche nickel ! ))

A bientôt bon week-end à vous,

yoyo