Filtre inferieur à une celluleRésolu

Question

Bonjour à tous!!
Je débute en VBA et je souhaite faire un filtre automatique avec une macro.
Par exemple j'ai une colonne prix avec des chiffres de 1 a 500. J'ai réussi à faire un filtre "inférieur à 324" comme cela:

  Selection.AutoFilter Field:=4, Criteria1:="<324", Operator:=xlAnd
End Sub

J'aimerai qu'au lieu d'avoir "324" comme critère de filtre pouvoir sélectionner une cellule contenant le critère de filtre.

J'ai fait plein de tentative mais rien n'y fait! es-ce que quelqu'un peut m'aider?

Merci d'avance!

AlKatou · Accepted Answer

Salut,


considérons que ta cellule soit A2, alors le code serait :


    Selection.AutoFilter Field:=4, Criteria1:=Range("A2").Formula


ensuite tu n'as plus qu'à saisir ton critère dans ta cellule en A2 (exemple : <=50) et lancer ta macro de filtre.


Bonne continuation, alKa.

alex777771 · Answer

Merci beaucoup!

alex777771 · Answer

Salut,

Merci pour ta réponse, mais je suis maintenant confronté à une nouvelle difficulté: comment faire si je souhaite filtrer avec deux critères:
  
>50 et <100 (compris entre 50 et 100) ?

merci d'avance!

AlKatou · Answer

Salut,

voici la syntaxe multicritères, 



    Selection.AutoFilter Field:=4, Criteria1:=Range("A2").Formula, _
                  Operator:=xlAnd, Criteria2:=Range("A3").Formula




Bonne continuation, alKa.

Filtre inferieur à une cellule

4 réponses

Votre réponse

Discussions similaires