Mise à jour de la source d'un TCD via VBA

Bonjour,

la longueur du tableau qui sert de source à mon TCD varie suite à l'execution d'une macro.

J'ai dans la variable derli le numero de la derniere ligne du tableau.

Dans le code suivant, je cherche un moyen de remplacer 1150 par derli:

Code:

---

1 2 3

ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _ "ZC615!R1C1:R1150C19" ActiveWorkbook.ShowPivotTableFieldList = True

---

Je ne sais pas comment faire cela. Merci pour votre aide.

Code:

---

1 2 3 4

Plage = Range("A1:N6").Address(ReferenceStyle:=xlR1C1, _ RowAbsolute:=True, ColumnAbsolute:=True) ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Plage ActiveWorkbook.ShowPivotTableFieldList = True

---

Tu mets la bonne plage à la place de Range("A1:N6") ;)

NB - Tu peux inclure le nom de la feuille

voila le code que j'ai fais à partir de ce que tu m'as dit:

Code:

---

1 2 3 4 5 6

Sheets("filtre commerces").Select Plage = Range(Cells(1, 1), Cells(derli, 19)).Address(ReferenceStyle:=xlR1C1, _ RowAbsolute:=True, ColumnAbsolute:=True)   ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Plage ActiveWorkbook.ShowPivotTableFieldList = True

---

J'ai une erreur sur cette ligne (1004 : Le nom du champs de tcd n'est pas valide...etc):
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Plage


Je n'ai pas déclaré la variable Plage, quel type dois je lui attribuer?
Plage prend pourtant bien comme valeur: "R1C1:R1403C19" (ds cet exemple le tableau fesait 1403 lignes de long)

Si tu exécutes ta macro au pas à pas (F8) qu'as-tu dans Plage ?

J'ai : "R1C1:R1403C19"

Tu sélectionnes la feuille "filtre commerces" et fais référence à cette feuille pour le range. Or tu places le tcd sur activesheet.
Tu dois préciser la feuille source dans la plage et la feuille destination du TCD.
La définition de la plage n'est qu'accessoire puisque tu peux utiliser les deux syntaxes.

Code:

---

1 2	Plage = NomFeuilleSource & "!" & Range(Cells(1, 1), Cells(derli, 19)).Address(ReferenceStyle:=xlR1C1, _ RowAbsolute:=True, ColumnAbsolute:=True)

---

Un coup d'oeil dans la FAQ (adresse dans ma signature) t'en apprendra plus que moi sur les différents cas de figures qui peuvent se présenter.
Tapes "TCD" en recherche ;)
Bonne lecture

Je suis arrivé à quelque chose qui fonctionne comme ceci:

Code:

---

1 2 3 4 5 6 7

Plage = "ZC615" & "!" & Range(Cells(1, 1), Cells(derli2, 19)).Address(ReferenceStyle:=xlR1C1, _ RowAbsolute:=True, ColumnAbsolute:=True)   Sheets("Filtre par commerces").Activate   ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=Plage, TableName:="Tableau croisé dynamique2" ActiveWorkbook.ShowPivotTableFieldList = True

---

Merci pour ton aide :yaisse2: