Discussion :

[ferronimus]

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

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

je voudrais supprimer les demandes excel pour remplacé les cellules

[sash6]

ton code a l'air bon...par contre tu le supprimes "à la main" ou tu veux faire une macro? Si tu le fais à la main il suffit de supprimer l'ensemble de lignes ou de colonnes qui contiennent le TCD en question.

[sash6]

oups j'avais pas vu la fin de ta question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

N'oublie pas de le reactiver à la fin de la macro!

[ferronimus]

merci c bon