[RESOLU]Création Tableau Croisé dynamique

[Zohnya]

Bonjour, je réalise actuellement une macro dans le cadre de mon travail. J'ai une feuille qui contient les données relatives a une machine (l'utilisateur, les temps d'utilisations, etc.). Il est possible d'entrer une plage de date afin de filtrer les informations.

Mon but est de récupérer cette plage afin de pouvoir créer un tableau croisé dynamique (TCD). Voici mon code :

'Selectionner la plage
'Selection de la feuille
Sheets(prefixe & MachinesPlages(i, 1)).Select

'On calcule le nombre de colonne
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
larg = Selection.Count

'Le nombre de lignes dans la plage (pas vraiment utile pour l'instant
Range("A" & DebutPlage & ":A" & FinPlage).Select
longueur = Selection.Count


'Créer le TCD correspondant à la machine
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
ActiveWorkbook.Sheets(prefixe & MachinesPlages(i, 1)).Range(Cells(DebutPlage, 1), Cells(FinPlage, larg)), Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Options avec filtre!R1C1:R1C" & (i + 5), TableName:="TCD" & MachinesPlages(i, 1), _
DefaultVersion:=xlPivotTableVersion15

Le problème, c'est que quand je lance la macro ça plante au moment de la création du TCD :

sauf que je ne comprends pas ce que je dois modifier.

Pourriez-vous m'éclairer ?

 

[Dugenou]

dans ton code on ne trouve pas la définition de debutplage et fin plage

 

[Zohnya]

Ce sont des variables globales. Elles sont définies dans une autre fonction. debutPlage et finPlage représentent respectivement le numéro de ligne ou commence et fini la plage que l'on désire traiter. (ça, ça fonctionne. j'ai déjà controlé)

 

[Zohnya]

Bonjour,
J'ai modifié la création du TCD de cette façon. ça ne marche toujours pas mais au moins l'erreur a changé

ActiveWorkbook.Sheets(prefixe & MachinesPlages(i, 1)).Range(Cells(DebutPlage, 1), Cells(FinPlage, larg)).Name = "PlageFiltree"

    'Range("R1C1:R"&DebutPlage&"C1:R"&FinPlage&"C"&larg) = "PlageFitree"
   
   
    'Créer le TCD correspondant à la machine
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "PlageFiltree", Version:=xlPivotTableVersion15).CreatePivotTable _
    TableDestination:="Options avec filtre!R1C1:R1C" & colTCDO, TableName:="TCD" & MachinesPlages(i, 1), _
    DefaultVersion:=xlPivotTableVersion15

 

[Zohnya]

Nouvelle modification, nouvelle erreur. Pour paraphraser Leeloo dans le 5eme élément : "Please Help !"

ActiveWorkbook.Sheets(prefixe & MachinesPlages(i, 1)).Range(Cells(DebutPlage, 1), Cells(FinPlage, larg)).Name = "PlageFiltree"

   
   
    'Créer le TCD correspondant à la machine
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "PlageFiltree", Version:=xlPivotTableVersion15).CreatePivotTable _
    TableDestination:=ActiveWorkbook.Sheets("Options avec filtre").Range("A1"), TableName:="TCD" & MachinesPlages(i, 1), _
    DefaultVersion:=xlPivotTableVersion15

 

[Zohnya]

Bon. Pour tester, j'ai essayé de le faire à la main.
Et bien, ça fonctionne pas non plus. Je ne comprend pas.

 

[Dugenou]

alors là : facile 🙂, je le connais bien ce message d'erreur : dans ta table de données tu as au moins une colonne qui n'a pas de titre

 

[Zohnya]

AAAAH. Donc on peut pas prendre le milieu d'un tableau pour faire un TCD ? T'es obligé d'avoir les entêtes avec ? oooooh.

*alleluia*
Donc techniquement, si je copie colle les entêtes et les données qui m'intéressent dans une autre feuille et que je fais le TCD a partir de ça, ça devrait marcher ?

Donc. A la main, ça marche. j'vais voir si j'arrive a le refaire en code.

 

[chris]

Bonjour à tous

De façon générale il est plus simple de prendre toute la base et de filtrer dans le TCD la partie non souhaitée...