Comment savoir si une feuille contient un TCD?

[MJ13]

Bonjour à tous

Je cherche à savoir, plutôt en VBA, si une feuille ou un classeur contient un ou plusieurs TCD.

Merci d'avance .

 

[chris]

Re : Comment savoir si une feuille contient un TCD?

Bonjour

Bonne année à toi MJ13

x = ActiveSheet.PivotTables.Count

 

[MJ13]

Re : Comment savoir si une feuille contient un TCD?

Bonjour Chris

Merci et meilleurs voeux à toi .

Ah! c'était trop simple . C'est super .

Voici du coup le code que j'ai fait pour rajouter au nom de la feuille TCD si on a un TCD sur une feuille à l'activation (code à mettre dans thisworkbook).

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Left(ActiveSheet.Name, 3) = "TCD" Then Exit Sub
x = ActiveSheet.PivotTables.Count
If x > 0 Then NomACT = ActiveSheet.Name: If Len(NomACT > 27) Then NomACT = Mid(ActiveSheet.Name, 1, 27): ActiveSheet.Name = "TCD " & NomACT
End Sub