Macro: filtrer des données avec plus de 2 critères?

Macro: filtrer des données avec plus de 2 critères? - VB/VBA/VBS - Programmation

Marsh Posté le 08-11-2010 à 15:28:58    

Hello
 
J'utilise actuellement une macro pour trier des données à partir d'un tableau source et qui fonctionne très bien. Ayant modifié certains champs je souhaite modifier à présent ma macro.
 
Jusque là, ma macro était programmée pour ne selectionner qu'un champs (en utilisant un filtre automatique).  
Aujourd'hui c'est plusieurs champs que je souhaite filtrer.
 
Exemple:
 
champs          ville    I    rue
valeur            paris   I  de la paix
valeur         Marseille   I  st marchais
 
Je n'avais jusqu'à trier que la ville.  
Mais aujourd'hui je veux aussi fitrer par "rue"
Or quand je crée mon filtre automatique, je vais le petit ascenceur puis dans "filtre personnalisé" mais là je n'ai que 2 valeur possible à determiner.
 
Y a t'il y moyen simple d'ajouter à ma macro suivante plusieurs autre champs?
 
 
'
    Selection.AutoFilter Field:=7, Criteria1:="=Rue 1", Operator _
        :=xlOr, Criteria2:="<>Rue 2"
End Sub
 
 
merci


---------------
mon feed-back: http://forum.hardware.fr/hfr/Achat [...] 4641_1.htm
Reply

Marsh Posté le 08-11-2010 à 15:28:58   

Reply

Marsh Posté le 09-11-2010 à 14:02:18    

Bah tu les mets a la suite... :??:
 
    Selection.AutoFilter Field:=7, Criteria1:="=Rue 1", Operator _  
        :=xlOr, Criteria2:="<>Rue 2"
    Selection.AutoFilter Field:=2, Criteria1:="=paris"
 
Où Field = Ton numéro de colonne dans la sélection filtrée.
 
Donc en gros tu pourrais avoir :
    Selection.AutoFilter Field:=1, Criteria1:="Filtre1SurChamp1"
    Selection.AutoFilter Field:=2, Criteria1:="Filtre2SurChamp2"
    Selection.AutoFilter Field:=3, Criteria1:="Filtre3SurChamp3"
    Selection.AutoFilter Field:=4, Criteria1:="Filtre4SurChamp4"
    Selection.AutoFilter Field:=5, Criteria1:="Filtre5SurChamp5"
    Selection.AutoFilter Field:=6, Criteria1:="Filtre6SurChamp6"
    Selection.AutoFilter Field:=7, Criteria1:="Filtre7SurChamp7"
    Selection.AutoFilter Field:=8, Criteria1:="Filtre8SurChamp8"
Etc.


Message édité par SuppotDeSaTante le 09-11-2010 à 14:04:03

---------------
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