Tableaux croisés & VBA

Bonjour à tous,

J'espère que vous allez bien.

Après pas mal d'années à faire du VBA je me sens assez bête de ne trouver que maintenant cette fameuse option très utile pour la sélection d'un TCD sans les filtres contextuels. C'est très utile quand on veut générer des onglets par BU, directions, services etc etc.

Voici un exemple ci-dessous avec pt.TableRange1 permettant de récupérer la plage du TCD sans les filtres contextuels.

    'Ref du TCD
    Set pt = Worksheets("Feuil1").PivotTables("Tableau croisé dynamique1")

    'Permet de récupérer la plage hors filtres contextuels sans avoir besoin d'identifier la dernière ligne et dernière colonne avec des formules savantes
    Set source = pt.TableRange1

    'Cellule où la copie va être effectuée
    Set destination = Worksheets("Feuil2").Range("A1")

    ' Copie de la plage + collage en valeur + format
    source.Copy
    destination.PasteSpecial Paste:=xlPasteValues
    destination.PasteSpecial Paste:=xlPasteFormats

Je ne connaissais pas du tout et n'avais jamais vu cette option avant... A mon grand regret, c'est l'IA qui est à l'initiative de cette découverte.

Pour les sachants et experts VBA, auriez-vous des connaissances sur d'autres fonctionnalités cachées comme celle-ci ?

Pour les autres, j'espère que cela pourra en aider certains et permettre une belle découverte

@+