Update de Pivot Table a partir d'une autre feuille
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:
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 !
