Comment savoir si une feuille contient un TCD?

MJ13

XLDnaute Barbatruc
Bonjour à tous

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

Merci d'avance :).
 

chris

XLDnaute Barbatruc
Re : Comment savoir si une feuille contient un TCD?

Bonjour

Bonne année à toi MJ13

Code:
x = ActiveSheet.PivotTables.Count
 

MJ13

XLDnaute Barbatruc
Re : Comment savoir si une feuille contient un TCD?

Bonjour Chris

Merci et meilleurs voeux à toi :).

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

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
 
Dernière édition:

Discussions similaires


Haut Bas