Macro avec filtre dynamique

Macro avec filtre dynamique - VB/VBA/VBS - Programmation

Marsh Posté le 19-05-2010 à 16:35:10    

Bonjour à tous,
 
Je rencontre un besoin sur excel mais que je n'arrive pas à résoudre, j'espère que quelqu'un pourra m'aider.
 
Je travaille sur un tableau, et j'aurais besoins de créer un fitre dynamique sur l'entête d'une colonne (colonne qui peut changer) puis de faire personaliser, choisir l'option supérieur à (ou inférieur à) et renseigner un critère.
 
J'ai essayer en faisant une macro "pas à pas", mais la colonne sur le laquelle il y a le filtre n'est plus la même et je n'ai pas de résultat.
 

Code :
  1. Sub meilleurs()
  3.     Range("Y3" ).Select
  4.     Selection.AutoFilter Field:=4, Criteria1:=">0,1"
  5. End Sub


 
Mon tableau est du type :
        S1 S2 S3
Mag1 10  3  15
Mag2 -2  5  11    
Mag3  2  -4  7
 
Je voudrais par exemple pour S2 tous les Mag pour lesquels la valeur est supérieur à 1.
 
J'espère m'être fait comprendre.
 
Merci.
 
 
 

Reply

Marsh Posté le 19-05-2010 à 16:35:10   

Reply

Marsh Posté le 21-05-2010 à 14:26:16    

Hello
 
Comme tu as deja un filtre d'actif, il faut l'enlever.

Code :
  1. ActiveSheet.ShowAllData


 
Ensuite, si tu veux sur S2, en toute logique c'est ton champ n°2 mais ta 3eme colonne

Code :
  1. Selection.AutoFilter Field:=3

(Pour S1 ca serait 2 etc. car il met les filtres sur toutes la ligne, le numéro du Field correspond au numéro de la colonne)
 
Et si tu veux >1

Code :
  1. Selection.AutoFilter Field:=3, Criteria1:=">1"


 
Cordialement
 
Edit : Ne pas mettre ActiveSheet.ShowAllData si tu veux combiner les filtres, par ex tous les mags où S1>2 ET S3<10


Message édité par SuppotDeSaTante le 21-05-2010 à 14:30:11

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed