Bonjour,
Je souhaite créer une macro qui me permettrait de faire un TCD. Avec l'enregistreur de macro, j'obtiens le résultat ci-dessous :
Sub A_Sélection_échantillons()
'
Sheets("Données brutes").Select
Range("A1:CH13256").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Données brutes!R1C1:R13256C86", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Gestion_spécif!R1C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
Sheets("Gestion_spécif").Select
Cells(1, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
.....
Problème : Mon range est variable en colonne et en ligne et par conséquence quand je lance ma macro j'obtiens le message d'erreur suivant : "Le nom du champ de tableau croisé dynamique n'est pas valide."
Il me faut donc une méthode pour réactualiser mon range en fonction du nombre de données.
Auriez-vous une solution à m'apporter ?
Benoit
Je souhaite créer une macro qui me permettrait de faire un TCD. Avec l'enregistreur de macro, j'obtiens le résultat ci-dessous :
Sub A_Sélection_échantillons()
'
Sheets("Données brutes").Select
Range("A1:CH13256").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Données brutes!R1C1:R13256C86", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Gestion_spécif!R1C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14
Sheets("Gestion_spécif").Select
Cells(1, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
.....
Problème : Mon range est variable en colonne et en ligne et par conséquence quand je lance ma macro j'obtiens le message d'erreur suivant : "Le nom du champ de tableau croisé dynamique n'est pas valide."
Il me faut donc une méthode pour réactualiser mon range en fonction du nombre de données.
Auriez-vous une solution à m'apporter ?
Benoit