Discussion :

[graphikris]

Bonjour,

En matière de filtre élaboré, je n'ai pas de souci mais lorsqu'il s'agit de filtré une base de données en fonction des données d'une autre, là je ne sais plus faire.

J'ai essayé de nommer des plages de la base secondaire puis de copier dans les filtres élaborés de la base principale mais çà ne fonctionne pas.

Je dois créer une macro permettant de filtrer la base de données principale nommée : ECN Blanc inter region.xls, en fonction de données se trouvant dans une base de données secondaire nommée : Effectif Galileo.xls

La base de données principale contient environ 2000 lignes puisqu'elle contient toutes les régions de France (UFR), alors que la base de données secondaires ne contient que les régions Rhône-Alpes (UFR également).

La base de données secondaire contient :

En colonne A : Nom
En colonne B : Prénom
En colonne C : UFR
En colonne D : Cie

La base principale commence en A7, elle contient :

En colonne A : UFR
En colonne B : Nom
En colonne C : Prénom
Puis de colonne D à P : données confidentielles

Comment créer cette macro qui me permettrait d'extraire ces données?

Cordialement,
Graphikris

[Philippe Tulliez]

Bonjour,
Le filtre élaboré se gère de la même manière que ce soit sur le même classeur ou sur un classeur différent.
Les zones des données, de critères et d'exportation peuvent toutes les trois se trouver à des endroits différents. Il suffit juste de définir ces zones
Exemple d'une exportation de données se trouvant sur le classeur où se situe le code VBA (les zones data feuille nommée [db] et zone critères feuille nommée [Critères]) vers une feuille nommée [Export] d'un classeur nommé ClasseurExport.xls. Les étiquettes de colonnes de la zone d'exportation ne devant toutes être exportées et étant dans un ordre différents, il faut définir la zone où se trouve celles-ci (pour l'exemple A1:I1)
Procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Export()
 Dim areaSource As Range, areaTarget As Range, areaCriteria As Range
 With ThisWorkbook
  Set areaSource = .Worksheets("db").Range("A1").CurrentRegion  ' Zone des données
  Set areaCriteria = .Worksheets("Critères").Range("A1:A2")           ' Zone des critères
 End With
 Set areaTarget = Workbooks("ClasseurExport.xls").Worksheets("Export").Range("A1:I1") ' Zone d'exportation avec définition des étiquettes de colonnes
 areaSource.AdvancedFilter xlFilterCopy, areaCriteria, areaTarget ' Exportation
 Set areaSource = Nothing: Set areaTarget = Nothing: Set areaCriteria = Nothing
End Sub

Il est bien entendu possible de prévoir dans la procédure d'ajouter les données à la suite de données existantes et de prévoir également de copier les étiquettes de colonnes dans la zone d'exportation.

A lire éventuellement Les filtres avancés ou élaborés dans Excel

[EDIT]
Dans cet exemple, il est bien entendu que les deux classeurs doivent être ouverts