Filtre automatique

[themyse]

Bonjour à tous,

je voudrais savoir s'il existe une macro pour exécuter un filtre automatique à partir d'une donnée que l'on entre dans une autre cellule.

Merci de votre aide.

je joint un fichier pour plus de clarté.

 

[Namzip]

Re : Filtre automatique

Bonjour,

Il faut sélectionner la feuille 3 pour que cette macro fonctionne.
J'ai créé la variable toto qui récupère la valeur à filtrer.
Par contre, il faut déclarer les valeurs de la colonne C en standard.
Même si la valeur de la cel E9 est 12,00 toto contient 12
Si toto contient 12, il ne peut rechercher 12,00

Dim toto As Long
toto = Range("E9").Value
Sheets("Feuil3").Select
Selection.AutoFilter Field:=3, Criteria1:=toto

Cdt, Robert

 

[themyse]

Re : Filtre automatique

Bonjour,

Il faut sélectionner la feuille 3 pour que cette macro fonctionne.
J'ai créé la variable toto qui récupère la valeur à filtrer.
Par contre, il faut déclarer les valeurs de la colonne C en standard.
Même si la valeur de la cel E9 est 12,00 toto contient 12
Si toto contient 12, il ne peut rechercher 12,00

Dim toto As Long
toto = Range("E9").Value
Sheets("Feuil3").Select
Selection.AutoFilter Field:=3, Criteria1:=toto

Cdt, Robert

Merci Robert,
c'est parfait, mais si maintenant je veux faire la même chose mais avec du texte. ( je suis un peu nul en macro)

je joint le fichier modifier

 

[Bebere]

Re : Filtre automatique

bonjour Themize,Namezip
avec find qui trouve la colonne à filtrer
à bientôt

 

[themyse]

Re : Filtre automatique

bonjour Themize,Namezip
avec find qui trouve la colonne à filtrer
à bientôt

Merci bcp

A bientôt

Saïda