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 : Sélectionner tout - Visualiser dans une fenêtre à part
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