Sub Extrait() nf = "BDExtrait" Sheets(nf).Cells.ClearContents Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy Sheets(nf).[A1] Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh Calculate End Sub
JB http://boisgontierjacques.free.fr/
On 22 mar, 12:53, "Bruno RCSC" wrote:
Bonjour,
Sous excel 2002.
Comment doit on procéder pour créer un TCD qui prenne le résultat d' un filtre ?
Sub Extrait()
nf = "BDExtrait"
Sheets(nf).Cells.ClearContents
Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy
Sheets(nf).[A1]
Sheets("TCD").PivotTables("Tableau croisé
dynamique1").PivotCache.Refresh
Calculate
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 12:53, "Bruno RCSC" <ats....@wanadoo.fr> wrote:
Bonjour,
Sous excel 2002.
Comment doit on procéder pour créer un TCD qui prenne le résultat d' un
filtre ?
Sub Extrait() nf = "BDExtrait" Sheets(nf).Cells.ClearContents Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy Sheets(nf).[A1] Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh Calculate End Sub
JB http://boisgontierjacques.free.fr/
On 22 mar, 12:53, "Bruno RCSC" wrote:
Bonjour,
Sous excel 2002.
Comment doit on procéder pour créer un TCD qui prenne le résultat d' un filtre ?
Sub Extrait() nf = "BDExtrait" Sheets(nf).Cells.ClearContents Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy Sheets(nf).[A1] Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh Calculate End Sub
JB http://boisgontierjacques.free.fr/
On 22 mar, 12:53, "Bruno RCSC" wrote:
Bonjour,
Sous excel 2002.
Comment doit on procéder pour créer un TCD qui prenne le résultat d'un filtre ?
Sub Extrait()
nf = "BDExtrait"
Sheets(nf).Cells.ClearContents
Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy
Sheets(nf).[A1]
Sheets("TCD").PivotTables("Tableau croisé
dynamique1").PivotCache.Refresh
Calculate
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 12:53, "Bruno RCSC" <ats....@wanadoo.fr> wrote:
Bonjour,
Sous excel 2002.
Comment doit on procéder pour créer un TCD qui prenne le résultat d'un
filtre ?
Sub Extrait() nf = "BDExtrait" Sheets(nf).Cells.ClearContents Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy Sheets(nf).[A1] Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh Calculate End Sub
JB http://boisgontierjacques.free.fr/
On 22 mar, 12:53, "Bruno RCSC" wrote:
Bonjour,
Sous excel 2002.
Comment doit on procéder pour créer un TCD qui prenne le résultat d'un filtre ?