XL 2010 VBA : boucler sur les étiquettes visibles d'un TCD

CHKY

XLDnaute Nouveau
Bonjour à tous,

j'espère que vous allez bien :)

Je reviens vers vous car je bloque sur un code? Voici la situation :

Je dispose d'un tableau croisé dynamique composé de la sorte :

Etiquette de ligne 1 : date
Etiquette de ligne 2 : n° de tel
Valeurs : nombre de "n° de tel".

Ce tableau est filtré sur toutes les valeurs (n° de tel) supérieures ou égales à 2, ce qui me permet d'avoir une liste, par date, de tous les numéros de téléphone identifiés 2 fois ou plus.

Je souhaiterai boucler (via une boucle for- next ) sur toutes les étiquettes de lignes visible ("date") et copier ensuite la liste des numéros de tel associés à cette date, pour ensuite les copier autre dans un tableau structuré dont les colonnes portent le nom des dates (mais ça je saurai faire).

Après de nombreuses heures de recherche et de test, j'arrive à une limite, je m'y perds entre les "pivotfields, "pivotitems", "datarange" etc... car je ne maitrise pas du tout cet aspect de VBA...

D'avance, un grand merci pour l'aide que vous pourrez m'apporter. je joins en PJ un classeur pour exemple, comportant ma médiocre tentative avec une boucle for each (mais c'est une boucle "for : i to xx next" qui m'intéresse le plus.
 

Pièces jointes

  • test.xlsm
    31.9 KB · Affichages: 9

Discussions similaires

Réponses
8
Affichages
616
Réponses
8
Affichages
816