[XL-2007] Pivottable - Comment prendre en compte le fait que les colonnes bougent? [Résolu]

[yzf-r]

Bonjour,

Je tente de gérer un historique chaque semaine du status de plusieurs pivottable, mais j'ai un petit soucis.

J'ai fait le petit bout de code suivant pour récupérer la valeur qui m'interresse à chaque fois (exemple avec deux colonnes ci-dessous), "Under Investigation" et "Awaiting information @ Customer" en fonction de "strEng" dans les lignes "Assigned to".
ce qui fonctionne trés bien.

Par contre, comme cela bouge chaque semaine, il arrive qu'une des colonnes disparaissent car toutes les valeurs sont à 0 pour chaque "strEng". Et donc ca plante!

Existe-t-il un moyen de fixer les colonnes même si les valeurs sont à 0?
Est-il possible de faire un test pour vérifier si la colonne existe? et ensuite faire ou non la lecture de la cellule?

Par avance merci pour votre aide.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sheets("ARM Resource").Select
        Set pt = ActiveSheet.PivotTables("ARM_Res_PT5")
 
        'Add "Under Investigation" information
        Dim nbUIP As Integer
        nbUIP = 0
        Sheets("ARM resource").Select
        nbUIP = pt.GetPivotData("Incident #", "Calculated Customer Status", "Under Investigation", "Assigned to", strEng)
        Sheets("Call Log History").Select
        Range(GetCellName("D", 2)).Value = VBA.CInt(nbUIP)
        nbUIP = 0
 
        'Add "Awaiting information @ Customer" information
        Dim nbAC As Integer
        nbAC = 0
        Sheets("ARM resource").Select
        nbAC = pt.GetPivotData("Incident #", "Calculated Customer Status", "Awaiting information @ Customer", "Assigned to", strEng)
        Sheets("Call Log History").Select
        Range(GetCellName("E", 2)).Value = VBA.CInt(nbAC)
        nbAC = 0

[pgz]

Bonjour.

Si j'ai bien compris ta question, dans les paramètres du champ en question, tu peux cocher l'option "afficher les éléments sans valeurs". En VBA c'est la propriété ShowAllItems du PivotField.

Cordialement,

PGZ

[yzf-r]

Merci PGZ pour ta réponse.

J'ai mis en pièce jointe une capture d'écran de mon tableau et des options qui semblent correspondre à ta remarque, mais je n'y ai pas accès!

En fait, lorsque par exemple, je n'ai plus de valeur dans la colonne "Investigation done", celle-ci disparait. C'est le principe d'une pivot table

Mais du coup, ma macro plante car elle cherche cette colonne.

[pgz]

Re,

Ce n'est pas une propriété du TCD, mais du champ en question, comme strEng.
Je vois que tu utilises une version en anglais. Dans la langue du Check Spir, tu cliques droit sur le champ dans le TCD et tu sélectionnes "Field settings".
Dans la fenêtre qui s'ouvre tu choisi l'onglet "layout & print".
Et la tu trouves l'option "Show items with no data", qu'il faut cocher.

Cordialement,

PGZ

[yzf-r]

Trop classe!
c'est bien cela

merci PGZ, c'est parfait