Discussion :

[lytog]

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.

[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

[lytog]

Voici mon code

Code :

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

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

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

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

[joe.levrai]

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

tant pis , voici pour toi, je te laisse adapter

Code :

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

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

[78chris]

Bonjour

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.