Discussion :

[MarcelG]

Bonsoir le Forum,

Je dispose d'une base de données sur laquelle j'afecte un filtre.

Les données filtrées sont ensuite traitées.

Ma question

Comment filtrer sur tous les items successivement? (Le résultat de chaque filtre étant ensuite copié, mais là n'est pas le sujet).

Bien entendu, on peut envisager un tableau croisé, et en balayer toutes les occurences. Y a-t-il plus fonctionnel?

Sauf erreur, je n'ai pas trouvé de réponse sur la FAQ et dans les posts du forum.

Merci à vous tous.

Bonne soirée.

Marcel.

[Jean-Philippe André]

salut,
peux-tu nous donner un exemple de ce que tu cherches a faire stp, j'ai un peu de mal a comprendre ton objectif

[MarcelG]

Bonjour jpcheck, Bonjour le Forum

Une base de données peut être filtrée sur un champ au moins.
Je souhaite pour un champ unique :
- appliquer un filtre sur ce champ pour le 1er item
- copier les données filtrer vers une 1ère cellule
- appliquer le filtre pour le 2ème item
- copier les données vers une 2ème cellule
etc..

Ma question :¨
Par quelle instruction VBA appliquer le filtre sur tous les items possibles ?
Autrement dit, quelle méthode me renverrait une liste, voire un tableau, de tous les filtres possibles pour un champ donné?
Et ce autrement que par un tableau croisé.

Merci.

Marcel

Une idée ?

Je souhaite passer outre un tableau croisé dynamique, ou une recopie avec gestion des doublons.

Bien entendu, si l'on ne peut faire autrement...

Cordialement.

Marcel

[Jean-Philippe André]

Hello,

et en passant par l'enregisteur de macro, tu obtiens quoi comme code, qu'on parte de la pour te proposer une optimisation

[MarcelG]

Bonsoir jpchecq,

Les items semblent enregistrés en "dur"

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro3()
 
    Selection.AutoFilter Field:=53, Criteria1:="premier nom"
    'action sur les données filtrées
    Selection.AutoFilter Field:=53, Criteria1:="deuxième nom"
    'action sur les données filtrées
    'etc...
 
End Sub

Merci.

Marcel.