Discussion :

[Patrick_Québec]

J'ai une macro qui me sert à exporter des données filtrées dans d'autres classeurs

Je filtre selon une donnée dans une colonne et lance ma macro qui exporte puis choisis la prochaine donnés puis relance la macro encore.

Pourrais-je faire en sorte que ma macro applique le filtre automatique au premier résultat, puis au deuxième, puis au troisième, jusqu'au dernier?

Merci

[joe.levrai]

Bonjour,

le plus simple est d'analyser la colonne entière et d'en tirer une liste sans doublon des éléments

plusieurs méthodes possibles :

- méthode removeduplicates après avoir copié la colonne dans une feuille de brouillon
- filtre avancé avec fonction export et paramètre "Unique = True"
- injecter la colonne dans un tableau VBA, le parcourir pour alimenter un Dictionnaire
etc...

[78chris]

Bonjour

Si tes données sont sous forme de tableau, tu peux aussi ajouter une segment et boucler sur le segment.

[boisgontierjacques]

Bonsoir,

Sur cet exemple, on crée un classeur pour chaque pays:

-Le filtre élaboré extrait la liste des pays
-Une boucle extrait les lignes pour chaque pays

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub CreeClasseurs()
  Application.DisplayAlerts = False
  [A1:D10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[g1], Unique:=True
  For Each c In Range("G2", Range("G65000").End(xlUp))
     Range("G2") = c
     Sheets.Add
     Sheets("BD2").[A1:D10000].AdvancedFilter Action:=xlFilterCopy, _
         CriteriaRange:=Sheets("BD2").[G1:G2], CopyToRange:=[A1], Unique:=False
       ActiveSheet.Copy
       ActiveSheet.Name = c
       ActiveWorkbook.SaveAs Filename:=c
       ActiveWorkbook.Close
       ActiveSheet.Delete
       Sheets("BD2").Select
    Next c
End Sub
 
 
Boisgontier

[Patrick_Québec]

Ça fonctionne .

J'ai eu à travailler pour adapter votre code à mon besoin mais en gros, vous m'avez lancé dans la bonne direction avec les bons outils.

Merci énormément à tous ceux qui prirent la peine de me répondre.