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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234
| Sub TCD1()
'
' TCD1 Macro
' Macro enregistrée le 20/07/2012 par b001ava
'
'
Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"BASE!R1C1:R13471C31").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Type")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Code catégorie")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"CODE ARTICLE")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Résultat global"), _
"Nombre de Résultat global", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("France"), _
"Nombre de France", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("SUISSE"), _
"Nombre de SUISSE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Autriche "), _
"Nombre de Autriche ", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Allemagne"), _
"Nombre de Allemagne", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("SUISSE2"), _
"Nombre de SUISSE2", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("SUEDE"), _
"Nombre de SUEDE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("ROYAUME UNI"), _
"Nombre de ROYAUME UNI", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Belgique"), _
"Nombre de Belgique", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Espagne"), _
"Nombre de Espagne", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("FINLANDE"), _
"Nombre de FINLANDE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("DANEMARK"), _
"Nombre de DANEMARK", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("NORVEGE"), _
"Nombre de NORVEGE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Luxembourg"), _
"Nombre de Luxembourg", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("PAYS BAS"), _
"Nombre de PAYS BAS", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("HONGRIE"), _
"Nombre de HONGRIE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("REP TCHEQUE"), _
"Nombre de REP TCHEQUE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("ROUMANIE"), _
"Nombre de ROUMANIE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("BULGARIE"), _
"Nombre de BULGARIE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Irlande"), _
"Nombre de Irlande", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("ISLANDE"), _
"Nombre de ISLANDE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("CANADA"), _
"Nombre de CANADA", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("UKRAINE"), _
"Nombre de UKRAINE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("RUSSIE"), _
"Nombre de RUSSIE", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("JAPON"), _
"Nombre de JAPON", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("CHINE"), _
"Nombre de CHINE", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
Range("D5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de France").Function = xlSum
Range("D6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de SUISSE").Function = xlSum
Range("D7").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de Autriche ").Function = xlSum
Range("D8").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de Allemagne").Function = xlSum
Range("D9").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de SUISSE2").Function = xlSum
Range("D10").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de SUEDE").Function = xlSum
Range("D11").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de ROYAUME UNI").Function = xlSum
Range("D12").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de Belgique").Function = xlSum
Range("D13").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de Espagne").Function = xlSum
Range("D14").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de FINLANDE").Function = xlSum
Range("D15").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de DANEMARK").Function = xlSum
Range("D16").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de NORVEGE").Function = xlSum
Range("D17").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de Luxembourg").Function = xlSum
Range("D18").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de PAYS BAS").Function = xlSum
Range("D19").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de HONGRIE").Function = xlSum
Range("D20").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de REP TCHEQUE").Function = xlSum
Range("D21").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de ROUMANIE").Function = xlSum
Range("D22").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de BULGARIE").Function = xlSum
Range("D23").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de Irlande").Function = xlSum
Range("D24").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de ISLANDE").Function = xlSum
Range("D25").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de CANADA").Function = xlSum
Range("D26").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de UKRAINE").Function = xlSum
Range("D27").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de RUSSIE").Function = xlSum
Range("D28").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de JAPON").Function = xlSum
Range("D29").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Nombre de CHINE").Function = xlSum
Range("D3").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique4").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("Feuil8").Select
Sheets("Feuil8").Name = "TCD MIS A J"
Range("E10").Select
Application.CommandBars("PivotTable").Visible = False
End Sub |
Partager