macro advancedfilter et plage non continue

[jopont]

Bonjour,

Je cherche à sélectionner un plage de donnée non continue.
Ensuite je cherche à filtrer cette plage.
Le code ci-dessous ne fonctionne pas.

Sub Filtre_Emploi1()
  '--- extraction des personnes d'un service/emploi
    Dim Maplage As Range
    Set Maplage = Union(Range("c1:C7000"), Range("E1:E7000"), Range("F1:F7000"), Range("H1:H7000"))
    Maplage.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[AG1:AJ2], CopyToRange:=[AG5:AJ5], Unique:=True
End Sub

Comment faire ?
merci

 

[Guest]

Re : macro advancedfilter et plage non continue

Bonjour,

Si les plages font partie du même tableau, pas la peine de faire une union. Il suffit de mettre les étiquettes des colonne désirées dans la plage de destination. Le filtre avancé ne renverra que ces colonnes.

Si elle sont dans trois tableau diffétents, il faut les copier dans un endroit, ensemble puis filtrer. Ou faire 3 filtres

A+

 

[jopont]

Re : macro advancedfilter et plage non continue

Merci c'est résolu.
j'ai écrit le code simplement comme ci-dessous.

Sub Filtre_Emploi1()

    [A1:H7000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[AG1:AJ2], CopyToRange:=[AG5:AJ5], Unique:=True
End Sub