[MATLAB][Excel][Automation] Tableau croisé dynamique - Pivot table

Version imprimable

Bonjour a tous,

Est ce que quelqu'un pourrait me donner le code de base pour créer et paramétrer un peu une pivot table Excel depuis Matlab?
(et le pivot chart qui va avec si possible ^^)

J'ai vu des exemples de VBA tels que les suivants:
Code:

1 2 3 4 5 ActiveWorkbook.PivotCaches.Add(xlDatabase,ActiveSheet.UsedRange); ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= ActiveSheet.UsedRange).CreatePivotTable TableDestination:='', TableName:= 'PivotTable1', DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(1, 1)
Mais je dois avouer que j'y comprends pas grand chose... Du coup si quelau'un peu me donner un petit code facile a comprendre qui me servira de base a améliorer je lui en serait grandement reconnaissant!

Merci d'avance!

09/11/2013, 09h22
Jerome Briot

La question aurait sans doute plus sa place dans le forum Macros et VBA Excel, non ?
11/11/2013, 10h28
ydeseved

Peut-être... Mais je ne cherche pas une macro VBA Excel, je cherche comment adapter le VBA a Matlab.

Comme tu le vois dans les exemple de code que j'ai donne j'ai déjà trouve certaines lignes de code sur internet, mais je ne sais pas bien faire la transition VBA => Matlab.

DU coup il me faudrait un code matlab de base sur les pivot table/chart. Que je pourrai bidouiller ensuite pour comprendre comment ca marche =)

Merci d'avance!

Voici un début de réponse avec un exemple tiré de ce tutoriel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
ActiveSheet.Range('A1:D1').Value = {'Region' 'Date' 'Etablissement' 'Resultat'};
ActiveSheet.Range('A2:A7').Value = {'Region 01';'Region 01';'Region 01';'Region 02';'Region 01';'Region 02'};
ActiveSheet.Range('B2:B7').Value = 39412+[0;0;1;2;3;4];
ActiveSheet.Range('B2:B7').NumberFormatLocal = 'jj/mm/aaaa';
ActiveSheet.Range('C2:C7').Value = {'Et 01 A';'Et 01 B';'Et 01 C';'Et 02 A';'Et 01 A';'Et 02 B'};
ActiveSheet.Range('D2:D7').Value = [50;10;5;40;7;25];
 
xlDatabase = 1;
SourceData = ActiveSheet.Range('A1:D7');
TableDestination = ActiveSheet.Range('F3');
 
pt = ActiveSheet.PivotTableWizard(xlDatabase, SourceData, TableDestination,'TabCroiDyn');
 
xlRowField = 1;
ActiveSheet.PivotTables('TabCroiDyn').PivotFields('Region').Orientation = xlRowField;
ActiveSheet.PivotTables('TabCroiDyn').PivotFields('Region').Position = 1;
 
pf = ActiveSheet.PivotTables('TabCroiDyn').PivotFields('Resultat');
df = ActiveSheet.PivotTables('TabCroiDyn').AddDataField( pf, 'Moyenne de Resultat');
xlAverage = -4106; 
set(df,'Function',xlAverage)

Utilise ensuite le générateur de macro pour obtenir ce que tu souhaites vraiment

13/11/2013, 10h00
ydeseved

Encore une fois merci beaucoup a toi!
Je te proclame grand manitou de mes problèmes Excel/Matlab ;-p
Je teste ca, je comprends, je bidouille et je reviens te voir si j'ai un soucis