Discussion :

[vaco917]

Bonjour,

J'ai un fichier excel avec plusieurs onglet de donnée. Dans le premier onglet je crée en vba des tcd pour résumer les autres onglets de donnée.
Comme les données s'actualisent tout les jours je cherche à, lors de la mise a jour du fichier, supprimer tout les tcd de ma premier feuille pour les recréés ensuite.

j'ai essayé de supprimer les tcd avec :
Range("A4:BB2000").ClearContents
mais ca ne marche pas.

avez vous une idée ?
merci

[vaco917]

si en faite ca marche il faut juste que la selection englobe bien tout le tcd

[Philippe Tulliez]

Bonjour,
Pour connaître l'adresse des cellules occupées pas un tableau croisé dynamique, on peut utiliser la propriété TableRange2 de l'objet PivotTable
Exemple d'une procédure qui parcourt la collection de tous les tableaux croisés dynamiques présents sur la feuille nommée db du classeur où se trouve le code VBA (ThisWorkbook)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub DeletePivotTable()
  Dim sht As Worksheet, pvt As PivotTable, Response As Byte, msgResponse As String
  Set sht = ThisWorkbook.Worksheets("PvtTest")
  For Each pvt In sht.PivotTables
    msgResponse = "Voulez-vous supprimer"
    With pvt
      msgResponse = msgResponse & .Name & vbCrLf & "Cellules : " & .TableRange2.Address
      Response = MsgBox(msgResponse, vbYesNo + vbExclamation, "Suppression tableau croisés dynamique")
      If Response = vbYes Then .TableRange2.Delete Shift:=xlToLeft  ' ou Shift:=xlUp
    End With
End Sub