 |
 |
 |
Tableaux croisés dynamiques
- Filtres : anomalies dans la liste des valeurs
- Les filtres affichent des valeurs qui n'existent ni dans le tableau croisé, ni dans la source de données.
- Le tableau croisé mémorise effectivement les valeurs et ne remet pas à jour cette mémoire lors de l'actualisation.
- Pour les versions 2007 et suivantes, on peut demander à ce que la mémorisation ne soit pas effectuée en le paramètrant dans les options du tableau croisé
2007
2010
- Pour les versions antérieures, il faut utiliser un code VBA pour nettoyer cette mémoire : voici celui réalisé par Debra Dalgleish
- Filtres : anomalies VBA sur (vide) et dates
- En VBA, la recherche de l'état visible ou non d'un pivotitem provoque un plantage sur la valeur (vide) et sur les dates.
- Quelques bugs Excel sont liés à un problème de localisation.
Ce terme barbare désigne l'adaptation au marché local, soit, pour nous, la francisation du logiciel.
Un bug touche en particulier les TCD.
Le mot clé (blank) pour des éléments vides a été traduit en français par (vide) mais cette traduction n'a pas été prise en compte partout et le traitement des (vide) en VBA peut provoquer un plantage.
Il en est de même pour les dates en raison du format de date différent. - Losque l'on cherche à savoir en VBA quelles valeurs sont visibles dans le filtre d'un TCD, on réalise une boucle qui teste si la valeur est ou non visible. Cette boucle plante sur l'item (vide) que l'on utilise son appellation d'origine (blank), sa valeur affichée (vide) ou son index.
Ce problème étant exposé à plusieurs reprises sur le net, nous avons recherché et trouvé un contournement qui semble fonctionner sur Excel 2007, 2010 et 2013.
Il consiste à modifier la valeur qui pose problème pendant le traitement puis de la rétablir à la fin du traitement.
Cependant ce contournement ne fonctionne que si le format nombre du champ date du TCD et de la source est le format personnalisé "jj/mm/aaaa" ou une variante, mais pas le format standard standard affiché *14/03/2012 dans la liste des formats date.
- Exemple pour le champ Mois d'un TCD nommé TCD1 où le code doit afficher les valeurs qui ne l'étaient pas et vice et versa :
With ActiveSheet.PivotTables("TCD1").PivotFields("Mois")
For i = 1 To .PivotItems.Count
If .PivotItems(i) = "(blank)" Then
.PivotItems(i).Value = "vide" 'changement de la valeur
x = .PivotItems(i).Visible
If x = True Then
.PivotItems(i).Visible = False
Else
.PivotItems(i).Visible = True
End If
.PivotItems(i).Value = "(vide)" 'rétablissement du nom réservé
End If
Next i
End With
- Il peut être utile de disposer d'une fonction de test appelable depuis n'importe quelle procédure :
Function EtatChamp(TCDOnglet As String, TCDNom As String, TCDChamp As String, ByVal Position As Long) As Boolean
With Worksheets(TCDOnglet).PivotTables(TCDNom).PivotFields(TCDChamp)
If .PivotItems(Position) = "(blank)" Then
.PivotItems(Position).Value = "vide"
EtatChamp = .PivotItems(Position).Visible
.PivotItems(Position).Value = "(vide)"
ElseIf IsDate(.PivotItems(Position)) Then
Dim Valini As Date ‘pour le stockage temporaire de la date figurant dans le TCD
Valini = .PivotItems(Position).Name
.PivotItems(Position).Name = .PivotItems(Position).Value
EtatChamp = .PivotItems(Position).Visible
.PivotItems(Position).Name = Valini
Else
EtatChamp = .PivotItems(Position).Visible
End If
End With
End Function
- N.B. : d'après nos tests cette solution ne fonctionne pas si le format de date dans le TCD n'est pas celui indiqué plus haut car dans ce cas la propriété SourceName est en erreur 2042.