TCD - Modifier la position d'un Item

Version imprimable

Bonjour,

J'ai un classeur contenant plusieurs feuilles avec des TCD.
Tous les TCD se nomment "Indicateur X.XX".

Je voudrais pouvoir boucler sur toutes les feuilles contenant un TCD, vérifier si le TCD contient un champs de ligne nommé "collège" par exemple et dans ce cas là, mettre l'item "Exécution" s'il apparaît en position 1.

J'étais parti sur quelque chose comme ci-dessous, mais bien évidemment, ça ne fonctionne pas.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() Dim Pvt As PivotTable Dim Sh As Worksheet ' Définit la variable Sh comme étant une feuille de calcul Set Pvt = ActiveSheet.PivotTables(1) For Each Sh In ThisWorkbook.Worksheets ' Boucle sur toutes les feuilles du classeur With Pvt If Pvt.PivotFields = "collège" Then Pvt.PivotFields("Collège").PivotItems("Exécution").Position = 1 End With Next Sh End Sub
Ou plus simplement, existe-t-il un moyen d'obliger l'item à garder une position définie par l'utilisateur lors de l'actualisation ?
J'ai beau avoir coché "Conserver la mise en forme" dans les options du TCD, l'item fait son rebelle à l'actualisation.

Auriez-vous une idée ?

Merci d'avance,
Chtik

24/05/2014, 16h50
Daniel.C

Bonjour,

Ton code fonctionne si tu actualises le TCD.

Citation:

Ou plus simplement, existe-t-il un moyen d'obliger l'item à garder une position définie par l'utilisateur lors de l'actualisation ?

Le positionnement ne change pas à l’actualisation (Excel 2013 au moins).

Bonjour,
Pour moi, il y a déjà un problème de logique dans l'algorithme.
Tu définis le tableau croisé dynamique dans la feuille active (en ligne 5 de ta procédure) et ensuite tu parcoures les feuilles à la recherche d'un champs du tableau croisé dynamique présent dans cette feuille.
sans avoir testé ta ligne de code, la syntaxe serait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
  Dim Pvt As PivotTable
  Dim Sh As Worksheet ' Définit la variable Sh comme étant une feuille de calcul
 
  ' Set Pvt = ActiveSheet.PivotTables(1) - A enlever
 
  For Each Sh In ThisWorkbook.Worksheets ' Boucle sur toutes les feuilles du classeur
    For Each Pvt In Sh.PivotTables
      With Pvt
        Debug.Print Pvt.Name
        ' Ligne du dessous à vérifier 
        ' If .PivotFields = "collège" Then .PivotFields("Collège").PivotItems("Exécution").Position = 1
      End With
    Next Pvt
  Next Sh
End Sub

[EDIT]
Voilà une procédure qui cherche le champs 'Collège' dans tous les TCD de toutes les feuilles
Il te reste à placer ton code ligne 10

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
  Dim Pvt As PivotTable, pvtFld As PivotField
  Dim Sh As Worksheet ' Définit la variable Sh comme étant une feuille de calcul
  For Each Sh In ThisWorkbook.Worksheets ' Boucle sur toutes les feuilles du classeur
    For Each Pvt In Sh.PivotTables
      With Pvt
        For Each pvtFld In .PivotFields
         ' Test sur variable objet pvtFld
         If pvtFld = "Collège" Then
           MsgBox "Trouvé"
         End If
        Next pvtFld
      End With
    Next Pvt
  Next Sh
End Sub

24/05/2014, 17h46
Chtik

Daniel.C, lorsque je remplace, par exemple, les données d'une entitée A par celles d'une entité B dans mon tableau me servant de source de données et que j'actualise les TCD, la position de l'item se trouve modifiée.

Mon code générait une erreur 438 sur la ligne :

Code:

If Pvt.PivotFields = "collège"

C'est là que la réponse que m'a apportée Philippe Tulliez, m'a aidé à comprendre mon erreur.
La proposition de Philippe me convient parfaitement.

Merci à vous deux pour votre réponse rapide.
Chtik
25/05/2014, 13h52
78chris

Bonjour

Comme Daniel.C je confirme que l'actualisation ne joue pas sur le tri sauf si justement il y a un tri automatique déjà inscrit dans les paramètres du champ.

Si la source ne change pas mais juste son contenu cela n'a pas d'incidence mais si tu changes la source, cela régénère un cube et nombre de paramètres sont perdus.