Filtre avec une macro

[Cyrille68]

Bonjour,

Je viens de créer une macro destinée à effectuer un filtre.

Selection.AutoFilter Field:=20, Criteria1:=">10%", Operator:=xlAnd

Ici le critère de filtre est fixe et est : supérieur à 10%.

Est-il possible de mettre en tant que critère un adressage de cellule (A1 par exemple) permettant de changer le critère au bon gré de chacun et de ne pas etre obligé de rentrer dans la macro à chaque fois ?

Merci bcp pour votre aide.

Cyrille

 

[romfret]

Bjr...


As- tu essayer de mettre tacellule.Value au lieu de 10%?
Tien moi au courant, romfret

 

[Cyrille68]

Salut et merci pour ta proposition

J'ai tenté de faire cela :
Selection.AutoFilter Field:=20, Criteria1:="S1.Value", Operator:=xlAnd

La macro tourne mais le filtre ne donne aucune valeur en tant que résultat...

Tu vois autre chose peut-etre ?
Parce que je suis paumé de chez paumé !

Merci encore

Cyrille

 

[Moa]

Salut les gars !


Selection.AutoFilter Field:=1, Criteria1:=Range("S1").Value

Ca devrait fonctionner comme ça.

@ +

Moa

 

[Cyrille68]

Salut MOA et les autres,

Merci pour ta proposition qui tourne mais ne donne aucune valeur alors que les valeurs existent...

Je joins le fichier pour que tu puisses voir !

Merci encore pour ton aide.

Cyrille

 

[Moa]

Re Cyrille68 !

Je viens d'essayer et cela fonctionne bien.

Tu as peut-être un autre prob dans ton fichier.

Regarde l'exemple joint, fait avec l'enregistreur de macro, puis modifié.

@ +

Moa

 

[Cyrille68]

Salut Moa et les autres,

En effet, tout marche bien.

Pour un critère alphabétique (hh dans la cellule F1 chez toi), pas de soucis.

Le souci résidait dans le fait qu'il fallait mettre un format différent au critère numérique.
Le critère nécessitait une apostrophe en première position.
Donc par ex : '10 et non pas 10.


Merci beaucoup pour ton aide.

@+

Cyrille