Discussion :

[NATOU2]

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

[Access Newbie]

Bonjour,

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 ?

[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 :

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

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.

[pgz]

Bonjour.

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

PGZ

[NATOU2]

Bonjour,

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

[pgz]

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 :

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

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.