Filtrer sur les champs

[SOM58]

bonjour à tous
Lors de l'utilisation de mon TCD,
suite a un filtrage sur le champs livraison je lance une impression du resultat par macro,existe-il un code qui me permetrait de tout réafficher sans passer par la boite de dialogue

merci
SOM58

 

[jeanpierre]

Re : Filtrer sur les champs

Bonjour SOM58,

Un petit coup d'enregistreur de macro...

Macro/Nouvelle macro, OK, sur ton TCD, tu fais afficher tout et tu arrêtes l'enregistrement.

Tu vas avoir l'instruction à placer à la fiin de ton code d'impression.

A te lire pour la suite.

Jean-Pierre

PS : N'oublie pas que l'on ne sais pas travailler sur une image pour l'avenir.

 

[SOM58]

Re : Filtrer sur les champs

Merci jean pierre

effectivement j'avais utilisé l'enregistreur de macro dont voici le code

Sub Macro1()


'
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Date de livraison")
.PivotItems("11/05/2009").Visible = True
.PivotItems("12/05/2009").Visible = True
.PivotItems("18/05/2009").Visible = True
.PivotItems("26/05/2009").Visible = True
.PivotItems("27/05/2009").Visible = True
.PivotItems("05/06/2009").Visible = True
.PivotItems("08/06/2009").Visible = True
.PivotItems("12/06/2009").Visible = True
.PivotItems("19/06/2009").Visible = True
.PivotItems("20/07/2009").Visible = True
.PivotItems("21/07/2009").Visible = True
.PivotItems("27/07/2009").Visible = True
.PivotItems("03/08/2009").Visible = True
.PivotItems("04/08/2009").Visible = True
.PivotItems("(vide)").Visible = True
End With
End Sub

mais le probleme est que le tableau va évoluer avec de nouvelles dates ou dates supprimées pour les "PivotItems" et la je risque d'avoir des problemes

merci pour votre aide ,désolé pour l'image

 

[SOM58]

Re : Filtrer sur les champs

merci à tous
j'ai trouvé la solution
bonne soiree
SOM
Sub Macro13()
'
' Macro13 Macro
' Macro enregistrée le 03/01/2009
'
Application.ScreenUpdating = False

Range("A5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Date de livraison").LayoutPageBreak = True
ActiveWindow.SelectedSheets.PrintPreview
' ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Date de livraison").LayoutPageBreak = False
Dim x As PivotItem
For Each x In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date de livraison").PivotItems

x.Visible = True

Next x

End Sub