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
| Sheets("GL").Select
Range("A2").Select
Sheets.Add.Name = "TCD"
Sheets("GL").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"GL!R1C1:R3969C8", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="TCD!R1C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion15
Sheets("TCD").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"N° DE COMPTE")
.Orientation = xlRowField
.Position = 1
End With
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$19").AutoFilter Field:=1, Criteria1:="=(vide)", _
Operator:=xlOr, Criteria2:="=Total général"
Range("A2:A190000").Select
Selection.ClearContents
ActiveSheet.Range("$A$1:$A$19").AutoFilter Field:=1
Dim Ligne, xx As Integer
Ligne = 2
While Sheets("TCD").Cells(Ligne, 1).Value <> ""
Sheets("TCD").Select
Cells(Ligne, 1).Select
Selection.Copy
Sheets("GL").Select
Range("A1").Select
ActiveSheet.Range("$A$1:$H$3969").AutoFilter Field:=1, Criteria1:= _
Sheets("TCD").Cells(Ligne, 1).Value
Sheets("GL").Select
Cells.Select
Selection.Copy
Sheets.Add.Name = Sheets("TCD").Cells(Ligne, 1).Value
ActiveSheet.Paste
Ligne = Ligne + 1
Wend
MsgBox ("operation terminée") |
Partager