Bonjour,
En effet, j'ai réussit à concevoir la macro qui fonctionne.
J'ai un autre problème, j'aimerais supprimer via une macro le TCD en A3 et B9. Le seul souci, c'est que le tableau peut être variable et termiener en B10, B11, B12 .... Il commencera toujours en A3 par contre.
Existe t'il une solution?
Merci
Bonjour et bonne année à vous.
Merci pour le reflexion que vous avez menée et je vais essayer ce que vous proposez.
Voici la macro qui ressort de l'enregistrement, elle n'est pas optimisée mais elle fonctionne.
Merci bien.
Sheets("Base de données").Select
ActiveWindow.SmallScroll Down:=-12
Columns("A:B").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Base de données!R1C1:R1048576C2", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
"Tableau croisé dynamique8", DefaultVersion:=xlPivotTableVersion14
Sheets("Feuil1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Agent x" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("TU")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique8").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique8").PivotFields("TU"), "Nombre de TU", _
xlCount
Range("B7").Select
ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Nombre de TU" _
).Function = xlSum
End Sub