said.aghzil
XLDnaute Nouveau
Bonjour à tous,
Je voudrais créer un macro avec TCD mais il plante des que je l’exécute
Voici le code que donne Excel VBA (il plante dans la partie Grande)
Quelqu'un peut m'aider ?
Merci par avance
Je voudrais créer un macro avec TCD mais il plante des que je l’exécute
Voici le code que donne Excel VBA (il plante dans la partie Grande)
Code:
Sub Macro2()
'
' Macro2 Macro
' SSSSSSSSSSS MAJ
'
' Touche de raccourci du clavier: Ctrl+Maj+S
'
Columns("A:H").Select
Selection.Delete Shift:=xlToLeft
Range("B:B,D:D").Select
Range("D1").Activate
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveCell.FormulaR1C1 = "PRG"
Range("B1").Select
ActiveCell.FormulaR1C1 = "INSER"
Range("C1").Select
ActiveCell.FormulaR1C1 = "LANG"
Columns("A:C").Select
Sheets.Add
[SIZE=5]ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!L1C1:L1048576C3", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil4!L3C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion12[/SIZE]
Sheets("Feuil4").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("PRG")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("INSER"), _
"Nombre de INSER", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("LANG"), "Nombre de LANG" _
, xlCount
Range("C16").Select
ActiveWindow.SmallScroll Down:=3
Range("E20").Select
End Sub
Quelqu'un peut m'aider ?
Merci par avance
Dernière édition: