Tester la présence d'un TCD

Bonjour,

Je cherche un code permettant de tester la présence d'un TCD sur une feuille,
Je dois en effet supprimer mon croisé dynamique mais seulement si celui ci existe, pour le moment mon code me permet juste de le supprimer:

Code:

---

1 2 3 4 5 6 7

Sheets("Feuil5").Activate       ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", xlDataAndLabel Selection.Clear Range("A1").Select

---

Merci d'avance.

Bonjour,

il suffit de lire la propriété "Count" de la collection PivotTables (collection des TCD) de la feuille voulue

Code:

---

1 2 3 4 5 6 7

Sub toto() If Sheets("Feuil5").PivotTables.Count > 0 Then MsgBox "Il y a des TCD" Else MsgBox "Il n'y a pas de TCD" End If End Sub

---

Autre solution une fonction qui indique la présence ou non d'un TCD en particulier sur une feuille passée en paramètre :

Code:

---

1 2 3 4 5 6 7 8

Function TcdExiste(ByVal Feuille As Worksheet, ByVal NomTcd As String) As Boolean Dim Tcd As PivotTable On Error GoTo fin Set Tcd = Feuille.PivotTables(NomTcd) fin: TcdExiste = (Not Tcd Is Nothing) Set Tcd = Nothing End Function

---

En suite tu peux tester s'il existe avec la ligne de code :
TcdExiste (Sheets("Feuil5"), "Tableau croisé dynamique1")

Merci à vous ça marche parfaitement bien!

Après une semaine de taff, j'ai enfin finit mon code :D