voila j'ai fait une macro faisant des tableaux dynamique sur un ancien, normalement je supprime le précedent avant de créer le nouveau mais il me demande quand même, a la création du nouveau, si je souhaite effacé le contenu de la cellule ou va mon tableau
je voudrais supprimer les demandes excel pour remplacé les cellules
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ onglet & "!R2C1:R4000C6").CreatePivotTable TableDestination:=Range("BB1"), _ TableName:="Tableau croisé dynamique1" DisplayAlerts = False ActiveSheet.PivotTables("Tableau croisé dynamique1").SmallGrid = False With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("modèle") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("N° SELHA") .Orientation = xlDataField .Position = 1 End With DisplayAlerts = False Application.CommandBars("PivotTable").Visible = False
Partager