élément non existant dans TCD

Version imprimable

19/12/2008, 16h18
NATOU2

élément non existant dans TCD

Bonjour à tous,

J'ai conçu deux TCD qui fonctionnent simultanément par un simple copier coller, c'est à dire que lorsque l'utilisateur choisir un numéro de compte dans le 1er TCD, cette valeur se copie dans le 2ème TCD ainsi les 2 TCD se mettent à jour dans la foulée.

Par contre, je rencontre le message d'alerte suivant :

"Il n'existe pas d'élément possédant ce nom dans le rapport de tableau croisé dynamique. Voulez-vous renommer 210125 en 25656"

lorsque l'utilisateur choisit, dans le 1er TCD, un compte inexistant dans le
2ème TCD.

j'ai alors voulu mettre une gestion d'erreur dans mon code mais ça ne fonctionne pas car il ne s'agit pas d'une erreur mais d'un message d'alerte que je ne peux pas ignorer (application.displayalerts = false) sinon il m'écrase un numéro de compte dans le 2ème TCD et là c'est la catastrophe.

Comment, je peux contourner ce message d'alerte. En fait, il faudrait que je traduise ceci en vba "si message d'alerte alors choisir option annuler du message et poursuivre le code".

Merci de votre aide
19/12/2008, 16h54
Access Newbie

Bonjour,

Citation:

Envoyé par NATOU2

J'ai conçu deux TCD qui fonctionnent simultanément par un simple copier coller, c'est à dire que lorsque l'utilisateur choisir un numéro de compte dans le 1er TCD, cette valeur se copie dans le 2ème TCD ainsi les 2 TCD se mettent à jour dans la foulée.

Comment gérez vous le fait que la valeur se recopie dans le 2nd TcD ? (en vba ? on pourrait voir le code ?)

Les 2 TcD sont ils "branchés" sur la même source de données ?
22/12/2008, 12h09
NATOU2
Bonjour,

Les 2 TCD n'ont pas les mêmes sources de données mais ont un point commun : le numéro de compte.

Dans un tableau récapitulatif, je dois diviser un résultat du TCD1 par le résultat du TCD2 (formule excel).

J'ai donc par le simple code suivant fait en sorte que les deux TCD s'actualisent simultanément sur le même numéro de compte :
Code:

1 2 Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Range("B265").Value = Range("B51").Value
La cellule B51 contient la liste déroulante de numéros de compte du TCD1 et la cellule B265 la lliste déroulate de numéros de compte du TCD2.

et ceci fonctionne à merveille lorsque les deux listes déroulantes contiennent exactement les même numéros de compte, seulement certaines bizarreries de notre système d'exploitation font que parfois ce n'est pas le cas et il me faut donc absolument contourner le problème.
22/12/2008, 12h54
pgz

Bonjour.

La liste des numéros de compte est-elle un champ de page pour les 2 TCD?

PGZ
23/12/2008, 13h43
NATOU2

Bonjour,

Effectivement les listes déroulantes contenant les numéros de compte sont des champs de page.
23/12/2008, 19h09
pgz
Citation:

Envoyé par NATOU2

Bonjour,

Effectivement les listes déroulantes contenant les numéros de compte sont des champs de page.

Dans ce cas, la syntaxe Pour copier la valeur du champ page de PVT1 à PVT2est plutôt du genre :
Code:

1 2 With Application.ThisWorbook.Sheets("NomFeuille") .PivotTables("PVT2").PageFields("NomChamp").Currentpage = .PivotTables("PVT1").PageFields("NomChamp").Currentpage
Si tu n'est pas sûr que la valeur de l'item existe dans PVT2, il faut d'abord vérifier.
30/12/2008, 14h54
NATOU2

merci pgz

comment fait-on pour vérifier que la valeur de l'item exite dans le PVT2 ?

Bonjour.

Par exemple comme ceci, à mettre au point.

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim pvtIt as Excel.PivotItem
 
...
With Application.ThisWorbook.Sheets("NomFeuille")
    Set pvtIt = Nothing
    On error resume next
        set pvtIt = .PivotTables("PVT2").PageFields("NomChamp").Items(.PivotTables("PVT1").PageFields("NomChamp").Currentpage)
    on error goto 0
    if not pvtIt Is Nothing Then .PivotTables("PVT2").PageFields("NomChamp").Currentpage = .PivotTables("PVT1").PageFields("NomChamp").Currentpage
End With
...

PGZ