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:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas