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.

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

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

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

1
2
3
4
 
Set Pvt = Worksheets("Feuil2").PivotTables("Tableau croisé dynamique1")
'Changer la source du TCD pour qu'il soit Sheet1
Pvt.RefreshTable

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

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

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

[lytog]

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

Merci Joe mon problème est résolu

Code :

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

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