exploiter le résultat d'un filtre

[jb]

Bonsoir,

Voilà, je désire exploiter le résultat d'un filtre pour en faire un TCD. Je m'explique :
Depuis une base de données avec pas moins de 40 champs, j'applique un filtre à cette table. Suivant les critères demandés, et le résultat obtenu, je veux que d'après la zone (ensemble des lignes) trouvée, celle-ci soit envoyée dans un TCD. Quelqu'un pourrait-il m'aider car je n'arrive pas à monter un code fonctionnant sur ce principe.

Merci et bonne soirée.

JB.

 

[jacquesderyes]

Bonsoir JB





Ce code permêt de copier les cellules filtrées sur une autre feuille


Sub CopierVisible()
Dim rng1 As Range
Set rng1 = Worksheets("Sheet2").Range("A1").CurrentRegion
Set rng1 = rng1.SpecialCells(xlVisible)
rng1.Copy Destination:=Worksheets("Sheet3").Range("a1")
End Sub
J'espère que celà t'aidera


amitiés
Jacques de ryes

 

[chris]

Bonjour,
Autre solution : utiliser un filtre élaboré avec copie des résultats vers un autre emplacment et bâtir le TCD sur les colonnes de la zone résultat.
Chris