Changer la source de donnée d'un tableau dynamique croisé en VBA

Version imprimable

27/05/2015, 18h44
lytog

Changer la source de donnée d'un tableau dynamique croisé en VBA

Bonjour,

J'ai un fichier excel avec une feuille nommée donnée1 et un tableau dynamique croisé(feuille tableau). J'ai fait un macro qui duplique donnée1 dans donnée2.
Je veux maintenant que que mon tableau dynamique croisé pointe sur donnée2 au lieu de donnée1.

Des idées s'il vous plait, je suis preneuse.
27/05/2015, 18h47
joe.levrai

Bonjour,

cette action est détectée par l'enregistreur de macro

je t'invite à faire ton petit enregistrement, et si tu as des difficultés pour adapter, montre nous le code ;)

Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub Worksheet_SelectionChange(ByVal Target As Range) Dim v Dim valeur Dim recup Dim donnee As Sheet1 Dim Pvt As PivotTable v = ActiveCell.Value Worksheets("Sheet1").Cells.ClearContents Sheets("données").Columns.Copy Sheets("Sheet1").Columns.PasteSpecial Paste:=xlPasteValues For Each C In Worksheets("Sheet1").Range("G2:Q161") If Not IsEmpty(C.Value) Then recup = C.Value C.Value = v * recup End If Next C Set Pvt = Worksheets("Feuil2").PivotTables("Tableau croisé dynamique1") Pvt.RefreshTable End Sub
données est ma feuille de source, j'ai copié données dans Sheet1 et j'ai modifié la valeur des cellules, je veux faire un rafraichissement de mon tableau dynamique mais il faut qu'il pointe d'abord sur Sheet1

27/05/2015, 23h54
joe.levrai

je ne vois nul part la modification du cache (la source des données)
qu'as donné l'enregistreur de macro exactement?

je me demande aussi pourquoi tu as utilisé l'évènement selection_change pour réaliser ça
à chaque fois que tu vas changer de cellule, ton TCD va modifier sa source de données ?
27/05/2015, 23h59
lytog

J'ai utilisé selectionChange parce qu'à chaque fois que je clique sur une cellule de ma feuille rates j’exécute le macro. C'était ça ma question comment faire le changement de cache?

je veux bien répondre à ta question, mais tu ne réponds pas à la mienne ?

tant pis :mrgreen:, voici pour toi, je te laisse adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub toto()
Dim Pvt As PivotTable
Dim MaPlage As Range
 
Set MaPlage = Range("A1", "A1000") ' adapte
Set Pvt = ActiveSheet.PivotTables(1)
Pvt.ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(xlDatabase, _
                                  MaPlage, _
                                  Version:=4) ' 3 = 2007, 4 = 2010
End Sub

28/05/2015, 08h10
78chris

Bonjour

Citation:

Envoyé par lytog

J'ai utilisé selectionChange parce qu'à chaque fois que je clique sur une cellule de ma feuille rates j’exécute le macro. C'était ça ma question comment faire le changement de cache?

Je sens déjà l'odeur du gaz s'échappant de l'usine... A chaque clic on copie 16000 colonnes puis on régénère un cache de TCD...

Il y a probablement un processus plus optimisé... mais pour te donner des pistes il faudrait que tu données plus d'infos sur le besoin opérationnel.
28/05/2015, 09h59
vinc_bilb

Bonjour le club des DCD (non non pas décédés, justes Développeurs Croisés Dynamiques)

Voir également le post http://www.developpez.net/forums/d15...xcel-plantage/
28/05/2015, 10h16
lytog
Bonjour,

Désolé je n'ai pas été clair.
Je m'explique, j'ai un classeur avec 4 feuilles une feuille données(feuille qui contient ma source de données), une feuille rates qui contient le taux de change d'une devise à une autre, une feuille Feuil2 mon tableau dynamique croisé qui est actuellement connecté sur données, une feuille vide Sheet1.
Je veux qu'à fois que je sélectionne une valeur de la feuille rates,
je vide la feuille Sheet1
je copie la feuille données dans Sheet1
je fais le produit de la valeur sélectionnée avec une plage de valeurs de Sheet1
Jusqu’à la ça marche.Donc je copie ma feuille données dans Sheet1 et je modifie Sheet1.
Maintenant je veux changer la source de données de mon tableau dynamique au lieu de données je veux que sa soit Sheet1.
Je dois faire ce changement avant le refresh du tableau dynamique
Code:

1 2 3 4 Set Pvt = Worksheets("Feuil2").PivotTables("Tableau croisé dynamique1") 'Changer la source du TCD pour qu'il soit Sheet1 Pvt.RefreshTable
28/05/2015, 10h51
joe.levrai

Bonjour,

je t'ai montré un code qui modifie la source de données d'un TCD

qu'est ce qui ne convient pas avec cette méthode ?
28/05/2015, 10h58
lytog

Je suis entrain d'adapter votre méthode, je voulais juste être clair comme vous m'aviez dit que je n'ai pas répondu à votre question.
28/05/2015, 11h02
joe.levrai

tu avais juste à utiliser l'enregistreur de macro pour obtenir un début de code qu'on aurait adapté, et intégré dans ton code qu'on aurait optimisé

mais ça s'est passé différemment malgré mon rappel, donc je t'ai donné une réponse mais n'irait pas plus loin, ce n'est pas très grave.

Citation:
Envoyé par joe.levrai
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub toto() Dim Pvt As PivotTable Dim MaPlage As Range Set MaPlage = Range("A1", "A1000") ' adapte Set Pvt = ActiveSheet.PivotTables(1) Pvt.ChangePivotCache _ ActiveWorkbook.PivotCaches.Create(xlDatabase, _ MaPlage, _ Version:=4) ' 3 = 2007, 4 = 2010 End Sub
Merci Joe mon problème est résolu

Code:

Pvt.ChangePivotCache ActiveWorkbook.PivotCaches.Create(xlDatabase, Worksheets("Sheet1").UsedRange, Version:=4)