Bonsoir,
Je m'y prends très tard, mais j'ai un petit souci avec un TCD à plage variable.
Je souhaite permettre aux utilisateurs du fichier d'actualiser les données du tableaux de base (ajouter des lignes ou des colonnes), et d'obtenir automatiquement la modification du TCD (par un bouton MAJ si utilisation d'une macro, ou simple actualisation des données du TCD).
J'ai déjà essayé de définir une table variable. Mais quand je fais le TCD à partir de cette table, il y a un message d'erreur (problème de référence).
J'ai essayé de faire ce genre de macro, mais je ne m'y connais pas suffisamment, et ça ne marche qu'à la première exécution :
Sheets("BASE").Select
'comptage du nomdre de lignes et de colonnes du tableau
lignefin = Cells(1, 1).CurrentRegion.Rows.Count
colfin = Cells(1, 1).CurrentRegion.Columns.Count
'valeurs des variables de début de lignes et de colonnes
lignedep = 2
coldep = 1
Sheets("TAB1").Select
Columns("A:I").Select
Range("C1").Activate
Selection.Delete Shift:=xlToLeft
Range("A4").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'BASE'!R" & lignedep & "C" & coldep & ":R" & lignefin & "C" & colfin).CreatePivotTable TableDestination:="Tableau croisé dynamique2" _
, TableName:="Tableau croisé dynamique2"
Pouvez-vous m'aider svp ?
Merci beaucoup,
Alice
Je m'y prends très tard, mais j'ai un petit souci avec un TCD à plage variable.
Je souhaite permettre aux utilisateurs du fichier d'actualiser les données du tableaux de base (ajouter des lignes ou des colonnes), et d'obtenir automatiquement la modification du TCD (par un bouton MAJ si utilisation d'une macro, ou simple actualisation des données du TCD).
J'ai déjà essayé de définir une table variable. Mais quand je fais le TCD à partir de cette table, il y a un message d'erreur (problème de référence).
J'ai essayé de faire ce genre de macro, mais je ne m'y connais pas suffisamment, et ça ne marche qu'à la première exécution :
Sheets("BASE").Select
'comptage du nomdre de lignes et de colonnes du tableau
lignefin = Cells(1, 1).CurrentRegion.Rows.Count
colfin = Cells(1, 1).CurrentRegion.Columns.Count
'valeurs des variables de début de lignes et de colonnes
lignedep = 2
coldep = 1
Sheets("TAB1").Select
Columns("A:I").Select
Range("C1").Activate
Selection.Delete Shift:=xlToLeft
Range("A4").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'BASE'!R" & lignedep & "C" & coldep & ":R" & lignefin & "C" & colfin).CreatePivotTable TableDestination:="Tableau croisé dynamique2" _
, TableName:="Tableau croisé dynamique2"
Pouvez-vous m'aider svp ?
Merci beaucoup,
Alice