Pivottable

Bonjour j'aimerais faire la chose suivante :

En fonction de la date qui apparait en " SHeet1" C 2 adapter automatiquement le pivotatable situé en "sheet 2" c'est à dire selectionner la date mise en C 2 et la veille de cette date ...

J'ai essayé seul de mon côté et j'ai ceci mais vous vous en doutez ca marche pas ! Quelqu'un peut il m'aider ? ( Pas James 007 parce que sinon je vais lui en devoir trop et il va me prendre pour un boulet... c'est tjs sur lui que ça tombe lol )

Sub Macro3()

'

' Macro3 Macro

'

Dim requesteddate As Date

requesteddate = Sheets("Sheet1").Range("c2")

'

ActiveSheet.PivotTables("PivotTable1").PivotFields("1/01/2015").CurrentPage = _

"(All)"

With ActiveSheet.PivotTables("PivotTable1").PivotFields("1/01/2015")

.PivotItems(" & requesteddate & ").Visible = True

.PivotItems(" & requesteddate-1 & ").Visible = True

End With

End Sub

Merci pour l'aide et bonne soirée à tous,

18pivtest.xlsb (68.42 Ko)

Personne ? Bon James tu peux aussi répondre

Plus sérieusement vous voyez un problème dans cette macro très courte ?

Pas d'insomniaqie comme moi ? ( Enfin pas exactement comme moi il en faut un plus fort que mi en VBA mais j'avour que c'est pas difficile )

Bonjour,

Une Pivot table s'appuie sur une base de données ....

Dans ton cas précis ... c'est peut-être différent ... ???

Que cherches-tu à faire ...???

Je sais mais j'ai juste mis un exemple simple car sinon le fichier est trop lourd ...

Je cherche a changer le champ date de mon Pivottable en fonction d'une date que l'utilisateur choisira dans une autre sheet ...

S'il indique le 05/01/2014 .... Alors la selection de la date dans le pivottable devrait être le 03/01 ET le 04/01.

Je l'ai testé avec l'enregistreur de macro et un peu arrangé mais c'est pas trop efficace...

Merci l'insomnique comme moi .

Re,

Pour te rassurer ... ce que tu recherches est très facile ...

L'enregistreur de macros a dû te faire avancer ...

Mais le fichier que tu as posté ...ne permet pas de t'aider davantage ...

Ca me rassure pas ... Ca veut juste dire que je suis nul !!

Je trouverai bien

Mais juste y a t il qqch qui te choque dans la petite macro ci-dessous ?

Sub Macro3()
'
' Macro3 Macro
'
Dim requesteddate As Date

requesteddate = Sheets("Sheet1").Range("c2")

'
 ActiveSheet.PivotTables("PivotTable1").PivotFields("1/01/2015").CurrentPage = _
 "(All)"
 With ActiveSheet.PivotTables("PivotTable1").PivotFields("1/01/2015")
 .PivotItems(" & requesteddate & ").Visible = True
 .PivotItems(" & requesteddate-1 & ").Visible = True
 End With

End Sub

Merci pour l'échange!

Re,

Question précise ... Réponse précise ...

PivotFields("1/01/2015")

Si tu avais une base de données ... chaque champ aurait un titre sur la première ligne ... et c'est ce nom de champ que la Pivot Table utiliserait ...dans ton cas : Date ... par exemple ...

Pour ton info : http://lecompagnon.info/excel/tableaucroise.htm

Je vais aller lire ça ...

Merci et bonne nuit / journée

Re,

Merci pour tes remerciements ...

Je te promets de NE PAS Répondre à ton prochain message sur le Forum ...

LOL !!

Rechercher des sujets similaires à "pivottable"