Discussion :

[ydeseved]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Jerome Briot]

La question aurait sans doute plus sa place dans le forum Macros et VBA Excel, non ?

[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!

[Jerome Briot]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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