Filtre TCD VBA - Valeur de cellules multiples

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai un soucis dans la gestion d'un TCD avec VBA, et je me permet de vous demander de l'aide :
J'aimerai afficher comme filtres actifs, 5 dates correspondant à des valeurs de cellules d'une autre page.

J'ai déjà fais des recherches mais n'ai trouvé que des solutions pour d'autres versions d'excel et avec une seule valeur de cellule.

Par exemple, dans la page "Charge" en cellule "E3" j'ai la date "20/12/2016" qui est entrée. J'aimerai que dans mon TCD cette date apparaisse comme filtre de colonne. J'ai testé le code suivant qui me génère une erreur au niveau de la boucle If :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Private Sub Worksheet_Activate() Dim Pt As PivotTable Dim Pf As PivotField Dim Pi As PivotItem Set Pt = Me.PivotTables(1) Set Pf = Pt.PivotFields("Date de fin") For Each Pi In Pf.PivotItems If Pi = Sheets("Charge").Range("E3").Value Or Pi = Sheets("Charge").Range("F3").Value _ Or Pi = Sheets("Charge").Range("G3").Value Or Pi = Sheets("Charge").Range("H3").Value _ Or Pi = Sheets("Charge").Range("I3").Value Then Pi.Visible = True On Error Resume Next Else Pi.Visible = False On Error Resume Next End If Next Pi End Sub
Je joins un fichier d'exemple avec le code afin que ce soit plus simple de compréhension.

Je vous remercie d'avance et vous souhaite une bonne journée !

Citation:

Envoyé par Victo_cse

J'ai testé le code suivant qui me génère une erreur au niveau de la boucle If :

Bonjour,

Si vous faites un Msgbox sur vos Pi.Name, vous verrez que vos dates sont au format anglo-saxon MM/DD/YYYY.

Essayez le code suivant :

Nb : Je me suis permis de remplacer vos conditions If Then par un Select Case, plus facile à lire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub Worksheet_Activate()
 
Dim Pt As PivotTable
Dim Pf As PivotField
Dim Pi As PivotItem
 
    Set Pt = Me.PivotTables(1)
 
    Set Pf = Pt.PivotFields("Date de fin")
 
        With Sheets("Charge")
             For Each Pi In Pf.PivotItems
                 ' MsgBox Pi.Name
                 ' MsgBox DateSerial(Year(Pi.Name), Month(Pi.Name), Day(Pi.Name))
                  Select Case DateSerial(Year(Pi.Name), Month(Pi.Name), Day(Pi.Name))
                         Case CDate(.Range("E3")), CDate(.Range("F3")), CDate(.Range("G3")), CDate(.Range("H3")), CDate(.Range("I3"))
                              'MsgBox Pi.Value
                              Pi.Visible = True
                         Case Else
                              Pi.Visible = False
                  End Select
             Next Pi
        End With
 
       Set Pt =Nothing
       Set Pf = Nothing
 
 
End Sub

Chez moi, ça fonctionne.

Cordialement.

20/12/2016, 09h51
Victo_cse

1 pièce(s) jointe(s)

Bonjour Eric,

Tout d'abord, merci de votre aide. J'ai essayé votre code sur mon fichier, j’ai bien remarqué la différence entre les différentes valeurs de Pi, effectivement un cas est en date anglaise. Cependant il m'affiche tout de même une "erreur d'exécution 1004 : erreur définie par l'application ou par l'objet."
En regardant de plus près il semblerait que c'est pour Pi = "13/12/2016", et c'est au niveau de la ligne

Code:

Pi.Visible = True

.

Est-ce que vous savez d'où cela pourrait venir ?

Merci beaucoup et bonne journée
20/12/2016, 10h19
Invité

Citation:

Envoyé par Victo_cse

En regardant de plus près il semblerait que c'est pour Pi = "13/12/2016", et c'est au niveau de la ligne Pi.Visible = True.

Bonjour,

J'avais oublié de préciser que j'avais dû reconstituer le TCD pour que cela fonctionne (:scarymov: , :zekill:). Et effectivement, j'ai dû le refaire pour que cela fonctionne en appliquant mon code sur le TCD d'origine après l'avoir actualisé. Je pense également qu'il faudrait se limiter à l'aire du tableau plutôt que prendre les colonnes "B:E".

Je crois me souvenir que Chris (78Chris), un des grands spécialistes des TCD de ce forum avait indiqué une méthode pour "remettre d'aplomb" le cache.

Donc en recréant le TCD cela devrait fonctionner. Pour ne pas perdre la procédure dans le module, si vous devez refaire le TCD à chaque fois, pensez à vous servir d'un onglet modèle.

Cordialement.
20/12/2016, 11h09
Victo_cse

Effectivement en ajoutant à la macro la suppression + création du TCD à chaque lancement avant les filtres, il semblerait que cela fonctionne :D !

Je vous remercie grandement pour votre aide et vous souhaite une bonne journée :bravo: