Valeur par défaut pour le filtre/champ de page de rapport de graphique croisé dynamique

Question

Je génère un graphique pivot dans Excel 2002 avec une macro, en utilisant un champ de date comme filtre de rapport de graphique (définition de l'orientation du champ sur xlPageField). Je voudrais définir la valeur sélectionnée par défaut de ce pivot à la valeur la plus récente dans le champ de date. Quelle est la bonne syntaxe pour faire cela dans VBA? Vous ne voulez pas simplement sélectionner la cellule après avoir créé dynamiquement le graphique?

Answer 1

Ne pouvez-vous pas parcourir tous les éléments de ce champ de recherche? Voici un tableau croisé dynamique, mais le faire fonctionner pour un graphique ne devrait pas être une grosse affaire:

Sub Main() 
    Dim pvt As PivotTable 
    Dim fld As PivotField 
    Dim itm As PivotItem 
    Dim m As Variant 

    Set pvt = Worksheets(1).PivotTables(1) 
    Set fld = pvt.PageFields(1) 

    m = fld.PivotItems(1) 
    For Each itm In fld.PivotItems 
     If itm.Value > m Then m = itm.Value 
    Next itm 

    fld.CurrentPage = m 
End Sub 

Answer 2

Quelque chose comme:

Dim value As Date 
value = "1-apr-09" 
Dim row As Integer 
row = 0 

Dim keeplooping As Boolean 
keeplooping = True 
While (keeplooping) 
    row = row + 1 
    If Range("B" & row).value = value Then 
     keeplooping = False 
     Range("B" & row).Select 
     MsgBox ("found it") 
    ElseIf Range("B" & row).value = "" Then 
     keeplooping = False 
     MsgBox ("Not found") 
    End If 
Wend 

Answer 3

ChartObject .PivotLayout.PivotTable.PivotFields ("fieldName ") .CurrentPage =" fieldValue"

C'est à partir d'Excel 2003, mais je présume 2002 sera similaire