1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| 'Sub TCD()
ThisWorkbook.Worksheets(1).Cells(1, 3) = "ANNEE"
ThisWorkbook.Worksheets(1).Cells(1, 13) = "MOIS"
ThisWorkbook.Worksheets(1).Cells(1, 13) = "ANNEE MOIS"
For ligne = 2 To Range("K" & Rows.Count).End(xlUp).Row
If (IsEmpty(Range("A" & ligne))) Then
'MsgBox "date Manquant à la ligne " & ligne
Exit Sub
Else
Range("L" & ligne).Value = Format(Range("K" & ligne).Value, "yyyy")
Range("M" & ligne).Value = Format(Range("K" & ligne).Value, "mm")
Range("N" & ligne).Value = Format(Range("K" & ligne).Value, "yyyymm")
Next ligne
'End Sub
Sub CreerTCD()
'SourceData: Définit la source de données dans le TCD.
'[Feuil1!A1].CurrentRegion.Address(, , xlR1C1, True) permet d'étendre
'automatiquement la sélection de façon à y inclure toute la zone en cours
'à partir de la cellule A1, dans la Feuil1.
'TableDestination: Définit la position du TCD (cellule A3 dans la Feuil2).
'TableName: Définit le nom du nouveau TCD. ("Mon TCD")
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Feuil1!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Feuil2!R3C1", _
TableName:="Mon TCD"
'Mise en forme:
With Feuil2.PivotTables("Mon TCD")
'Ajoute un champ de lignes nommé "Ville".
'Le nom du champ "Ville" doit préalablement exister comme entête de la
'source de données.
.AddFields RowFields:="CODE ARTICLE"
.AddFields RowFields:="ANNEE MOIS"
'Définit l'orientation du champ nommé "CA" en tant que Donnée.
'le nom du champ "CA" doit préalablement exister comme entête
'de la source de données.
.PivotFields("Qte_dem_km").Function = xlSum
End With
End Sub |
Partager