exploiter le résultat d'un filtre

jb · 22 Mars 2003

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 · 22 Mars 2003

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 · 23 Mars 2003

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

exploiter le résultat d'un filtre

jb

Guest

jacquesderyes

Guest

chris

Guest

Discussions similaires