Discussion :

[moi244]

Bonjour,
J'ai un petit problème, j'aimerais créer un TCD, mais je n'arrive pas à selectionner seulement mon tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim LaPremiereLigne As Integer
LaPremiereLigne = ActiveSheet.UsedRange.Row
 
Dim DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
 
DerniereColonne = Range("A1").End(xlToRight).Column
 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Données!R3C1:R3186C9", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="TCD!R3C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion14

j,aimerais changer ceci : "Données!R3C1:R3186C9",
par la selection de mon tableau

Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range(cells(premiereligne, dernierecolonne),cells(derniereligne, dernierecolonne))

[Daniel.C]

Bonjour,

"TCD" étant la feuille contennt le TCD :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("TCD").PivotTables(1)
    PlageSource = Application.Substitute(.SourceData, "L", "R")
End With

.SourceData renvoie des coordonnées "L1C1" inexploitables par VBA. Il faut faire un remplacement de "L" par "R".