Bonjour Nico, le Forum,
Je ne suis pas vraiment un spécialiste en TCD (loin de là !), mais je tenterais bien quelque chose comme ça :
Citation:
Dim Plage As Range
Dim L As Long
***** With ActiveWorkbook.Sheets('Historique relations clients')
***** ***** L = .Range('A65536').End(xlUp).Row
***** ***** Set Plage = .Range(.Cells(3, 1), .Cells(L, 5))
***** End With
***** ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
***** ***** Plage).CreatePivotTable TableDestination:= _
***** ***** ''[Projet VBA - 15-12.xls]TCD - Analyse clientèle'!R3C3', TableName:= _
***** ***** 'Tableau croisé dynamique1', DefaultVersion:=xlPivotTableVersion10
|
Bonnes fêtes de fin d'année.