Discussion :

[Henricoo]

Bonjour,

Je viens de passer plusieurs heure a chercher comment mettre a jour automatiquement un tableau croise dynamique en changeant une valeur sur la feuille principale.

En gros, j'ai une premiere feuille que des sales manager remplissent, et a partir de la, une autre feuille se rempli. Jusqu'ici tout va bien.
J'ai plusieurs drop down list dans cette premiere feuille dont une qui a des valeurs qui varient en fonction de la marque.
J'ai fait un tableau croise dynamique et je voudrais qu'il s'update quand la valeur de la marque change.

J'ai reussi a faire ca quand la case "marque" est dans la meme feuille que le tableau croise, mais pas lorsque c'est sur 2pages differentes.

Voila le code que j'ai pour l'instant :

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
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
 
    Call UpdatePivotTable
End Sub
 
Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
   ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub
 
Sub UpdatePivotTable()
 
        Doublons.PivotTables("PivotTable1").PivotCache.Refresh
 
End Sub

J'ai tente des trucs du style on "triche" en disant que l'"ActiveSheet" est la feuille ou est le tableau mais ca ne fonctionne pas.


L'autre probleme est que pour ma drop down list suivant la marque, il n'y a pas le meme nombre de possibilites.

Peut-etre y-a-t-il d'autres solutions que ce que j'essaie de faire.

Si vous avez besoin de plus d'infos, demandez moi, mais je crois avoir ete assez clair.
Desole pour le manque d'accent (qwerty), pareil s'il a des "q" a la place des "a" et inversemment !

[strata]

J'avais ete confronte au probleme dernierement, et en selectionant, au prealable la page de la table pivot, cela fonctionnait.

Code :

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

1
2
3
 
Sheets("page de la table pivot").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh

[Henricoo]

Hum, ca fontiocnne, ca me met a jour la table, sauf que la colonne ou les donnes sont mises a jour n'est plus mise a jour.
En gros ca met a jour la table sauf que comme la source ne change pas la table ne change pas non plus ...

Les ComboBox c'est complique ?
Parce que la je crois que je vais abandonner la drop down list, le fait de pas pouvoir utiliser de focntion ca restreint trop.