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
| Sub client()
Rows("1:3").Select ' selection des 3 premières lignes
Selection.Delete Shift:=xlUp 'suppression de ces 3 premières lignes
'supprimer la colonne A
Columns("A:A").Delete Shift:=xlToLeft
'suppression de la derniere colonne
With Range("A1").CurrentRegion.Columns(Range("A1").CurrentRegion.Columns.Count)
.Select
.Delete
End With
Range("A1").Value = "code client"
Range("B1").Value = "nom client"
Range("C1").Value = "identifiant colis"
'création du TCD
Dim lastrow As Long
Dim dercol As Long
lastrow = Range("A1").End(xlDown).Row 'derniere ligne non vide du tableau
dercol = Range("A1").End(xlToRight).Column 'derniere colonne non vide du tableau
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'PJ Trafic par client'!R1C1:R" & lastrow & dercol).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ' le curseur se place sur la cellule "A1"
ActiveSheet.Cells(3, 1).Select 'selection de la cellule "A1"
End Sub |
