Discussion :

[alex830001]

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 :

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

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.

[ouskel'n'or]

Code :

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

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

[alex830001]

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

Code :

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

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)

[ouskel'n'or]

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

[alex830001]

J'ai : "R1C1:R1403C19"

[ouskel'n'or]

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 :

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

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

[alex830001]

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

Code :

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

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