Discussion :

[Chtik]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

Bonjour,

Ton code fonctionne si tu actualises le TCD.

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).

[Philippe Tulliez]

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 :

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
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 :

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
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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.