Discussion :

[juju05]

Bonjour,

Lorsque je veux créer un tableau croisé dynamique avec vba excel 2010, j'ai le message: "Voulez-vous remplacer le contenu des cellules de destination ?".

Comment faire en vba pour que la question ne se pose pas et, qu'effectivement le contenu soit remplacé ?

J'ai codé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sheets("CONSO_DONNEES").Activate
     ActiveSheet.PivotTables("MonTCDH").PivotSelect "", xlDataAndLabel
     Selection.Clear
 
     MsgBox "Suppression réalisée !"
 
     ' Création du tcd des heures restantes
 
     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
     "DONNEES!A3:P" & lig).CreatePivotTable _
     TableDestination:="CONSO_DONNEES!R3C1", TableName:="MonTCDH", _
     DefaultVersion:=xlPivotTableVersion10

Julien.

[QuestVba]

Bonjour

As-tu essayé ?

Code :

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

Application.DisplayAlerts=False

Et remettre après

Code :

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

Application.DisplayAlerts=True

[juju05]

Merci bien !