Discussion :

[hugohours1993]

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 :

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

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.

[joe.levrai]

Bonjour,

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

Code :

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

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

[antonysansh]

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 :

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

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")

[hugohours1993]

Merci à vous ça marche parfaitement bien!

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