Boucle sur les valeurs de champs de page d un tcd

**christof27** · 12/12/2012, 14h27

Bonjour à tous,

Je n'ai pas trouvé de quoi répondre à mon problème sur le forum. Je m'excuse par avance si je me suis trompé dans ma recherche.

Mon objectif est de réaliser une boucle sur des valeurs de champs de page (plus de 80 différentes) afin de récupérer les données du TCD dans un autre fichier. Fichier contenant 1 feuille par valeur différente de ce champ de page.

Ce que j'arrive à obtenir :
1ere possibilité :

Code :

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

1
2
3
4
5
6
7
For i = 1 To 8
    ActiveSheet.PivotTables("TCD_PHARMATREND").PivotFields("Région"). _
        ClearAllFilters
    ActiveSheet.PivotTables("TCD_PHARMATREND").PivotFields("Région").CurrentPage = _
        i
...
next i

Cela fonctionne bien si mes régions ont comme valeur 1 à 8.
Cependant, dans d'autres cas, j'ai parfois des régions qui peuvent valoir 1;2;5;8

J'ai donc un message d'erreur lorsque la variable i est égale à une valeur inexistante. 1ere possibilité ==> gestion des erreurs mais je n'y arrive pas.

2eme possibilité :

J'arrive, sur le même problème, à obtenir les valeurs existantes dans un msgbox

Code :

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

1
2
3
For i = 1 To ActiveSheet.PivotTables("TCD_PHARMATREND").PivotFields("région").PivotItems.Count
MsgBox ActiveSheet.PivotTables("TCD_PHARMATREND").PivotFields("région").PivotItems(i).Name
Next i

Mais je n'arrive pas à utiliser ces pivotitems.name dans ma boucle

ce qui résoudrait mon problème d'erreur.

En vous remerciant par avance.

Christophe

**Daniel.C** · 12/12/2012, 17h05

Bonjour,

La macro suivante affiche les pivotitems visibles :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test1()
    With Sheets("Feuil1").PivotTables("TCD_PHARMATREND").PivotFields("région")
        For i = 1 To .PivotItems.Count
            If .PivotItems(i).Visible Then
                MsgBox .PivotItems(i).Name
            End If
        Next i
    End With
End Sub

**christof27** · 12/12/2012, 17h36

Bonjour Daniel,

Merci pour ton code qui va me servir à un autre moment.

J'ai fini par trouver une solution :

Code :

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

1
2
3
4
5
6
7
8
For i = 1 To ActiveSheet.PivotTables("MonTCD").PivotFields("région").PivotItems.Count
        ActiveSheet.PivotTables("MonTCD").PivotFields("région").CurrentPage = _
        ActiveSheet.PivotTables("MonTCD").PivotFields("région").PivotItems(i).Name
 
        nom_feuille = ActiveSheet.PivotTables("TCD_PHARMATREND").PivotFields("région").PivotItems(i).Name
 
...
Next i

J'ai rajouté une variable qui renommera ma feuille par la valeur du champ de page.

Petite question subsidiaire, je vais devoir filtrer sur 12 mois mobile, sachant que le mois de départ est variable (exemple : si je saisis la date 201210, je veux la période 201210 à 201111). Je sais faire sur un mois, mais sur plusieurs qui sont variables ....

**Daniel.C** · 12/12/2012, 17h54

Quelle est ta version d'Excel ?

**christof27** · 13/12/2012, 08h32

2007 pourquoi ?

**Daniel.C** · 13/12/2012, 10h12

2007 pourquoi ?

Bonjour,

Parce que le traitement des TCD n'est pas tout à fait le même depuis la version 2007. Dans le classeur mis en PJ, la date sous la forme aaaamm est en I1. Les dates, en champ de,ligne sont regroupées par mois et années. La macro "test" filtre les dates :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim DateDeb As String, DateFin As String
    DateDeb = DateSerial(Left([I1], 4) - 1, Right([I1], 2) + 1, 1)
    DateFin = DateSerial(Left([I1], 4), Right([I1], 2) + 1, 0)
    With ActiveSheet.PivotTables(1).PivotFields("Date")
        For i = 1 To .PivotFilters.Count
            .PivotFilters(i).Delete
        Next
        .PivotFilters.Add Type:=xlDateBetween, Value1:=DateDeb, Value2:= _
        DateFin
    End With
End Sub

**christof27** · 14/12/2012, 08h27

Ok pigé

Très malin de filtrer sur la date avec le critère "Entre".

Cependant cela m'oblige à l'utiliser en champ de ligne ou colonne et non champ de page, mais je me met cela de coté car je sais où je vais en avoir besoin.

Merci à toi

**Daniel.C** · 14/12/2012, 13h22

Avec le champ "Date" en champ de page (les dates dissociées) :

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
Sub test()
    Dim DateDeb As String, DateFin As String, Pi As PivotItem
    DateDeb = Format(DateSerial(Left([I1], 4) - 1, Right([I1], 2) + 1, 1), "yyyy/mm/dd")
    DateFin = Format(DateSerial(Left([I1], 4), Right([I1], 2) + 1, 0), "yyyy/mm/dd")
    With ActiveSheet.PivotTables(1).PivotFields("Date")
        .ClearAllFilters
        For Each Pi In .PivotItems
            Var = Split(Pi.Name, "/")(2) & "/" & Format(Split(Pi.Name, "/")(0), "00") & "/" & _
                Format(Split(Pi.Name, "/")(1), "00")
            If Var > DateFin Or Var < DateDeb Then
                Pi.Visible = False
            Else
                var1 = 1
            End If
        Next Pi
    End With
End Sub

mais dans ce cas, tu ne peux plus filtrer par mois.

**christof27** · 17/12/2012, 16h18

J'ai une dernière question Daniel,

Peux tu tester la valeur (Tous) d'un champ de page et faire en sorte qu'un nom de feuille se nomme "FRANCE" si c'est le cas ?

Merci

**Daniel.C** · 17/12/2012, 17h03

Excuse-moi, j'ai du mal à comprendre le sens de ta question (il commence à se faire tard

). Peux-tu détailler davantage ?

**christof27** · 17/12/2012, 17h29

Oublis

cela fonctionne .... je ne sais pas ce que j'ai bien pu faire pour que cela ne marche pas ...

Un champ de page sans filtre actif a pour valeur affichée (Tous)

cf copie d'écran

J'aimerais tester le fait que si il n'y a rien de sélectionné, alors la feuille se nommera FRANCE. un test sur la valeur (tous) ne fonctionne pas.

**Daniel.C** · 17/12/2012, 18h11

A condition que les champs ne soient pas des champs "date" :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim Teste As Boolean, Pi As PivotItem
    With ActiveSheet.PivotTables(1)
        For Each Pi In .PivotFields("UREG").PivotItems
            If Pi.Visible = False Then Teste = True
        Next Pi
        For Each Pi In .PivotFields("USEC").PivotItems
            If Pi.Visible = False Then Teste = True
        Next Pi
        If Teste = False Then ActiveSheet.Name = "FRANCE"
    End With

**christof27** · 19/12/2012, 08h46

J avais trouvé ça :

Code :

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

1
2
3
4
5
6
    If Num_reg = "(Tous)" And Num_sect = "(Tous)" Then
        ActiveSheet.Name = "FRANCE"
    ElseIf Num_reg <> "(Tous)" Then
        ActiveSheet.Name = Num_reg
    Else: ActiveSheet.Name = Num_sect
    End If