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
Partager