Comment savoir si une feuille contient un TCD?

MJ13 · 4 Janvier 2013

Bonjour à tous

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

Merci d'avance .

chris · 4 Janvier 2013

Re : Comment savoir si une feuille contient un TCD?

Bonjour

Bonne année à toi MJ13

Code:

x = ActiveSheet.PivotTables.Count

MJ13 · 4 Janvier 2013

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

Code:

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

Comment savoir si une feuille contient un TCD?

MJ13

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires