Discussion :

[denkae]

Hello tout le monde!

Est-il possible de créer un filtre élaboré afin d'aller chercher des données dans un classeur et de les coller dans un autre classeur ?

voici mon code pour faire cette manipulation mais en étant dans le même classeur:

Code :

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

1
2
3
4
5
6
7
8
Sub Export()
 
 
    Sheets("DATA").Columns("A:Q").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:B2"), CopyToRange:=Columns("E:Q"), Unique:=False
 
 
End Sub

Merci

[Philippe Tulliez]

Bonjour,

Est-il possible de créer un filtre élaboré afin d'aller chercher des données dans un classeur et de les coller dans un autre classeur ?

Il suffit de préciser la filiation totale (classeur+feuille+plage de cellules) de la plage source et celle de la plage cible. Cela vaut bien entendu pour la plage des critères
Il faut éviter de référencer les colonnes plutôt que la plage exacte aussi bien pour la source que pour la cible.

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

[joe.levrai]

Bonjour,

un exemple que je viens justement d'écrire à l'instant dans un de mes projets

ShSource est dans le classeur contenant une BDD
ShDest possède les critères (ligne 1 et 2) et reçoit l'export à partir de la ligne 6 (les étiquettes d'export sont en ligne 5 sur 2 colonnes)

Code :

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

1
2
3
4
5
6
7
With ShDest
    ShSource.UsedRange.AdvancedFilter _
                Action:=xlFilterCopy, _
         CriteriaRange:=.Range("A1").CurrentRegion, _
           CopyToRange:=.Range("A5:B5"), _
                Unique:=False
End With

[Invité]

bonjour,
http://www.developpez.net/forums/d13...s/#post7481714

[denkae]

Great, ça marche! Merci pour toutes vos réponses! =)

[Invité]

Bonjour,
pense aux autres et donnes ta solution!