CreatePivotTable secondaire ()
Faible lastRow en tant que longtemps
Obscurcir I en tant que longtemps
Feuilles (« cru »). Activer
Gamme (« A1 »). Valeur = « symbole »
Gamme (« B1 »). Valeur = « code de client »
Gamme (« C1 »). Valeur = « quantité »
Gamme (« D1 »). Valeur = « privé »
lastRow = feuilles (« cru »). Gamme (« A » et Rows.Count). Extrémité (xlUp). Rangée
Pour I = 2 au lastRow
Si cellules (I, 2).Value = « 4001 » ou parti (cellules (I, 2).Value, 1) = « T » ou parti (cellules (I, 2).Value, 1) = « M » puis
Cellules (I, 2).Value = « privé »
Autrement
Finir si
Après i
ActiveWorkbook.PivotCaches.Add (SourceType : =xlDatabase, SourceData : = _
« Cru ! R1C1 : R » et lastRow et « C4 ») .CreatePivotTable TableDestination : = "", TableName : = _
« PivotTable1 », DefaultVersion : =xlPivotTableVersion10
ActiveSheet.PivotTables (« PivotTable1 ») .AddFields RowFields : = " symbole », _
ColumnFields : = " code de client "
ActiveSheet.PivotTables (« PivotTable1 ») .PivotFields (« quantité »). Orientation = _
xlDataField
Sous-marin d'extrémité
|