Discussion :

[zskiredj]

Bonjour à tous

j'ai dans une vue d'un tableau dynamique sous excel le code suivant :

Code :

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

ActiveSheet.PivotTables(tableau).PivotFields("date").CurrentPage = maDate

Le soucis, c est que je suis pas sûr que maDate est dans les valeurs dans le champs "date" du tableau.

Comment puis je faire pour lui dire de mettre une date maDate2 si il trouve pas maDate dans les valeurs du PivotField ?

Merci d'avance !

autre façon de voir les choses :
si je tente de mettre maDate dans le champ, qu'il ne la trouve pas et qu'il me génère une erreur, comment puis je alors lors de l'erreur lui faire changer la valeur à mettre dans le champ?

Merci d'avance.

[rvtoulon]

Bonjour,

c est que je suis pas sûr que maDate est dans les valeurs dans le champs "date" du tableau

Pourquoi ne pas vérifier si "madate" existe d'abord dans la base qui sert de référence à ton TCD et si elle existe alors tu la séléctionnes sinon tu change de date?

[pgz]

Bonjour.

Tu peux tester la présence de l'élément correspondant, a peu-près comme ceci

Code :

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

1
2
3
4
5
6
7
Dim pvtIt as Excel.PivotItem
On Error Resume next
Set pvtIt = ThisWorkbook.WorkSheets("NomFeuil").PivotTables(tableau).PageFields("Date").PivotItems(maDate)
if err.number = 0 then
  ThisWorkbook.WorkSheets("NomFeuil").PivotTables(tableau).PageFields("Date").CurrentPage = maDate
End if
On error goto 0

Je remarque que ton champ de page s'appelle Date, ce qui n'est pas bon car c'est un terme réservé en VBA.

Cordialement,

PGZ

[zskiredj]

rvtoulon : dans ma requête il y a un tas de dates car je fais une vue par historique. L'idée c est que par défaut, la date choisie soit celle d'hier. Mais il arrive que la date d'hier ne soit pas dans la base (si rien ne s'est passé).

pgz : je comprends pas le sens de ton goto. Elle est où l'étiquette ? Et pourquoi tu catches l'erreur 0 ? Peux tu préciser un peu le sens de ton code ?

Merci

[pgz]

Re,

pgz : je comprends pas le sens de ton goto. Elle est où l'étiquette ? Et pourquoi tu catches l'erreur 0 ? Peux tu préciser un peu le sens de ton code ?

Si la date contenue dans maDate n'est pas un élément du champ Date, alors

Code :

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

Set pvtIt = ThisWorkbook.WorkSheets("NomFeuil").PivotTables(tableau).PageFields("Date").PivotItems(maDate)

Déclenche une erreur.

Comme on ne veut pas arrêter le code si l'erreur se produit, on commence par

Code :

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

On Error Resume next

Maintenant je peux tester si l'erreur se produit, alors Err.Number sera différent de 0. Mais s'il est = 0, alors pas d'erreur, donc la date est un élément du champ, et je peux choisir cette valeur pour le champ de page.
Pour finir le

Code :

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

On Error GOTO 0

ne requiert pass d'étiquette : cette ligne annule simplement le

Code :

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

On Error Resume next

Au total, on teste qu'une valeur existe dans les éléments d'un champ de page avant de choisir cette valeur pour le champ de page. Ce qque tu voulais faire?
En espérant que cela soit clair,

PGZ

[rvtoulon]

pgz c'est bien vu bravo