Définir la zone des données d'un TDC dynamiquement

Version imprimable

Bonjour,

Un petit souci avec la définition des zones de façon dynamique ....

J'ai besoin d'actualiser un tableau dynamique croisé car le nombre de ligne des données a changé.
Le nombre de colonnes restant fixe.
J'ai trouvé la commande VBA mais toujours avec une zone de données fixes.

Dans l'exemple ci-dessous, la zone définie est A1-J68.
Je peux déterminer la zone de données, elle va de A1 à J"NbrMaxDeLignes".

Comment remplacer la zone fixe "Feuille1!$A$1:$J$68" par la zone A1 jusqu'à J"NbrMaxDeLigne ?
Code:

1 2 3 4 5 6 7 Sheets("TDC").Select Range("B3").Select ActiveSheet.PivotTables("Tableau croisé dynamique1").ChangePivotCache _ ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Feuille1!$A$1:$J$68" _ , Version:=6)
Merci
TV

Bonjour,

Trouvé,

En définissant la source avec le code ci-dessous, cela fonctionne

Code:

1
2
3
4
5
6
7
8
9
 
    SourceTDC = Range(Cells(1, 1), Cells(NbrMaxLigne, 10)).Address(ReferenceStyle:=xlR1C1)
 
    Sheets("TDC").Select
 
    Range("B3").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="feuille1!" & SourceTDC _
        , Version:=6)

Merci le forum...

14/04/2021, 13h30
Thumb down

Bonjour,
Pourquoi ne pas définir derectement la plage "Feuille1!A:J" ?