tester une valeur dans un PivotTable

Version imprimable

05/01/2011, 19h08
zskiredj

Bonjour à tous

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

Code:

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.
06/01/2011, 11h57
rvtoulon

Bonjour,

Citation:

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?

Bonjour.

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

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

06/01/2011, 13h20
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
06/01/2011, 15h05
pgz

Re,

Citation:

Envoyé par zskiredj

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:

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:

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:

On Error GOTO 0

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

Code:

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
06/01/2011, 15h21
rvtoulon

pgz c'est bien vu bravo :ccool:
06/01/2011, 17h25
zskiredj

il y a un point que je ne pige pas. C est où que tu lui dis de mettre maDate2 a la place de maDate si maDate est inexistant ?

Désolé si ma question est bête ! :roll:

edit : j'ai testé le code et il ne met aucune date choisie dans le champ date. ça doit etre le 'on error resume next' ...

Re,

Citation:

Envoyé par zskiredj

il y a un point que je ne pige pas. C est où que tu lui dis de mettre maDate2 a la place de maDate si maDate est inexistant ?

Code:

1
2
3
4
5
6
7
8
9
10
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
Else
  ThisWorkbook.WorkSheets("NomFeuil").PivotTables(tableau).PageFields("Date").CurrentPage = maDate2
 
End if
On error goto 0

Si tu es sûr de maDate2

PGZ

07/01/2011, 07h54
rvtoulon

Bonjour,
Le code de pgz pour vérifier si la date est bonne est nécessaire puisque tu n'es pas sur de savoir si elle existe ou non d'ou sa question pour la date2.

c'est pour cela que je te disais de vérifier sur la base si cette date existe.
tu dis :

Citation:

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

Alors je reviens sur mon idée, pourquoi ne pas donner à ta variable "madate", par défault, la dernière date entrée dans ta base ?

Parce que comment fais-tu si il ne se passe rien pendant 3 jours, par exemple? Comment indiques-tu à "madate2" une date valide ?

Une fois que tu as donné a madate la dernière date de ta base tu peux toujours utiliser le test que pgz t'as fournis.
07/01/2011, 10h03
zskiredj

il s'agit la de tableau croisé dynamique dont la source est un requête Access. Donc je peux pas intervenir sur les valeurs contenus dans un pivotfield.
Par ailleurs, je suis sûr que il ne peut pas y avoir d'inactivité 2 jours de suite.

Pour revenir a la solution pgz, après debuggage, lorsque le code donné est atteint et aue maDate n'est pas dans la liste, pvtIt contient "Nothing" et l'erreur n'est pas déclanchée pour lui faire changer de date.

Vraiment bizarre ...
07/01/2011, 10h12
Godzestla

Citation:

il s'agit la de tableau croisé dynamique dont la source est un requête Access. Donc je peux pas intervenir sur les valeurs contenus dans un pivotfield.

Moi je pense comme Rvtoulon.

Ton résultat de requête access est quand-même bien quelquepart, alors pourquoi ne pas le tester comme il te le suggère. Faire un test sur les données source te permet d'influencer par code tes pivotfields selon tes besoins. N'est-ce pas cela ton but ?
07/01/2011, 10h40
zskiredj

comment je fais alors pour voir si la valeur est dans la base, sachant que je suis sur EXCEL ?

Je préfère clairement la solution de pgz. Il doit me manquer un chouya pour qu'elle marche !
07/01/2011, 10h46
Godzestla

La solution de Pgz est nickel, je suis le premier à le dire. Et rien ne t'empêche de combiner le tout.

Tu ne pourrais pas montrer ton code qui fait l'import et celui qui fais l'update du Pivot table, ce serait vachement plus concret.

le code qui nous intéresse est celui ci :
Code:

1 2 3 4 5 6 7 8 9 10 Dim pvtIt As Excel.PivotItem On Error Resume Next Set pvtIt = ActiveSheet.PivotTables(tableau).PageFields("Date").PivotItems(dateHier(Date)) If Err.Number = 0 Then ActiveSheet.PivotTables(tableau).PageFields("Date").CurrentPage = Str(dateHier(dateHier(Date))) Else ActiveSheet.PivotTables(tableau).PageFields("Date").CurrentPage = Str(dateHier(Date)) End If On Error GoTo 0
Le reste du code n'a aucun intéret. La fonction dateHier renvoie la date du dernier jour ouvré.
Mon problème est donc de mettre la date du dernier jour ouvré, et si cette date n est pas dans la base, mettre la date de l'avant dernier jour ouvré. Je suis sûr que la date de 'lavant dernier jour ouvré est dans la base.

Il doit manquer un truc tres simple dans mon code ...

07/01/2011, 11h47
Godzestla

Citation:

le code qui nous intéresse est celui ci :

Le reste du code n'a aucun intéret.

Et bien je ne suis pas de cet avis. Avec cela, je ne sais rien faire pour toi. :mrgreen:

Citation:

Envoyé par Godzestla

La solution de Pgz est nickel, je suis le premier à le dire. Et rien ne t'empêche de combiner le tout.

Tu ne pourrais pas montrer ton code qui fait l'import et celui qui fais l'update du Pivot table, ce serait vachement plus concret.

Je partage le point de vue de Godzestla.

En s'inspirant de la FAQ (heureusement qu'elle est là) voici une Macro qui se connecte à ma base de donnée acces qui s'appelle "Base test.mdb" et qui cherche le dernier enregistrement du champ "Dates".
Je récupère la date trouvée dans une cellule A1, l'a met dans ma variable madate, et vide le contenu de la cellule A1, comme çà c'est transparant :
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 Sub Recup_dernier_enregistrement_base_access() Dim Db As DAO.Database, Rs As DAO.Recordset Dim strSQL As String Dim madate As Date 'connexion à la base Set Db = DAO.OpenDatabase("C:\Base test.mdb", False, False) 'requête de selection du dernier enregistrement de Table1 'du champ dates 'IL FAUT ADAPTER LES NOMS EN FONCTION DE TES BESOINS strSQL = "SELECT LAST(dates) From [Table1]" Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot) 'Je donne à A1 de la feuil2 la date Sheets("feuil2").Range("A1").CopyFromRecordset Rs 'je met la date dans ma variable madate = Sheets("feuil2").Range("A1").Value 'deconnexion de la base Db.Close 'j'efface le contenu de la cellule A1 Sheets("feuil2").Range("A1").Clear End Sub
ici la variable madate est bien le dernier enregistrement de ma base.

Bonjour à tous les participants à la discussion.

Si je comprends bien, la fonction datehier(UneDate) renvoie la date du jour ouvré qui précède UneDate.

J'aurais plutôt écrit
Code:

1 2 3 4 5 6 7 8 9 10 Dim pvtIt As Excel.PivotItem On Error Resume Next Set pvtIt = ActiveSheet.PivotTables(tableau).PageFields("Date").PivotItems(Str(dateHier(Date))) If Err.Number = 0 Then ActiveSheet.PivotTables(tableau).PageFields("Date").CurrentPage = Str(dateHier(Date)) Else ActiveSheet.PivotTables(tableau).PageFields("Date").CurrentPage = Str(datehier(dateHier(Date))) End If On Error GoTo 0
Tu avais inversé les deux dates.
Cela suppose aussi que Str(UneDate) donne bien un texte qui permette d'accéder à l'élément correspondant, ce qui m'étonne un peu. J'aurais plutôt utilisé directement UneDate ou Format(UneDate,"...").

Mais c'est facile à vérifier.

Cordialement,

PGZ

07/01/2011, 12h27
Godzestla

Citation:

ici la variable madate est bien le dernier enregistrement de ma base.

Et bien oui diantre, cqfd !!! :scarymov::hola:
07/01/2011, 14h32
zskiredj

c 'est bon le problème est résolu. PGZ, ton code marche parfaitement.
Tu es vraiment un boss ;)