Génération dynamique de TCD

Bonjour,

j'essaye de générer un tableau croisé dynamique à partir d'un onglet de la manière suivante:
Code:

1 2 3 4 5 6 7 8 9 10 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'BDD (060) MO'!R1C1:R149C12").CreatePivotTable TableDestination:="TCD!R6C4", TableName:="Tableau croisé dynamique base MO" Worksheets("TCD").PivotTables("Tableau croisé dynamique base MO").AddFields RowFields:=Array("Ctre part.", "Données") With Worksheets("TCD").PivotTables("Tableau croisé dynamique base MO").PivotFields("Qté saisie") .Orientation = xlDataField .Position = 1 End With Worksheets("TCD").PivotTables("Tableau croisé dynamique base MO").PivotFields("Val./DE").Orientation = xlDataField
cela fonctionne bien mais mon problème c'est que mon SourceData peut varier. En effet dans mon code je récupère les 149 première lignes mais ce nombre de lignes peut augmenter. y'a t'il un moyen de récupérer dynamiquement le nombre de lignes à sélectionner pour générer mon TCD? parce que là je suis obligé à chaque fois de modifier dans le code le nombre de lignes que je veux récupérer.

merci de votre aide

bonsoir

Tu peux utiliser

Code:

1
2
3
4
5
6
7
8
9
Dim Plage As String
 
Plage = Worksheets("BDD (060) MO").Range("A1"). _
    CurrentRegion.Address(1, 1, xlR1C1, 0, 0)
 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
    SourceData:="'BDD (060) MO'!" & Plage).CreatePivotTable _
    TableDestination:="TCD!R6C4", _
    TableName:="Tableau croisé dynamique base MO"

bonne soirée
michel

ça marche.
merci beaucoup

Citation:

Envoyé par farenheiit

ça marche.

Un petit clic sur :resolu:?