tableau croisé avec valeur variable

[Tmumu]

Bonjour, dans la macro suivante je souhaite remplacer R10C1:R1180C11 par

"a10:k" & Linfin

ou Linfin = Range("A65536").End(xlUp).Row

est la derniére ligne remplie.

sub tableau

Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'F. calcul'!R10C1:R1180C11").CreatePivotTable TableDestination:= _
"'[test 2.xls]Données'!R1C1", TableName:="Tableau croisé dynamique5", _
DefaultVersion:=xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Année")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois")
.Orientation = xlRowField
.Position = 1
End With
Range("A1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique5").PivotFields("Qté Sortie"), _
"Nombre de Qté Sortie", xlCount
Range("A1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nombre de Qté Sortie").Function = xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Range("A19").Select
End Sub

Comment faire ?

Merci

 

[LPandre]

Re : tableau croisé avec valeur variable

Bonjour

tu as écris :
****
dans la macro suivante je souhaite remplacer R10C1:R1180C11 par
"a10:k" & Linfin
ou Linfin = Range("A65536").End(xlUp).Row
est la derniére ligne remplie.
****

sub tableau

Dim Linfin as interger
Linfin = Range("A65536").End(xlUp).Row


Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"'F. calcul'!"A10:K"& Linfin).CreatePivotTable TableDestination:= _

 

[Tmumu]

Re : tableau croisé avec valeur variable

Cela ne semble pas fonctionner.

 

[CB60]

Re : tableau croisé avec valeur variable

Bonjour
remplacer
Dim Linfin as interger
par
Dim Linfin as integer

et tu dois avoir dans toutes tes entêtes un nom ou une valeur, sinon le tcd ne peut pas se crée.
Sinon place ton fichier sur un post

 

[Tmumu]

Re : tableau croisé avec valeur variable

Merci mais l'erreur ne viens pas de "integer" mais d'un problème de syntaxe dans :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'F. calcul'!"A10:K"& Linfin).CreatePivotTable TableDestination:= _
"'[test 2.xls]Données'!R1C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion10

 

[CB60]

Re : tableau croisé avec valeur variable

Re
avec les essais que je viens de faire par rapport à la proposition de LPandre, chez moi ça fonctionne ( tu a bien des valeurs sur tes entêtes) et dans ta macro tu a des tcd 5 ou des tcd 1.
Sans voir ton fichier pas facile.

 

[CB60]

Re : tableau croisé avec valeur variable

Voici un fichier avec la proposition de LPandre

 

[Tmumu]

Re : tableau croisé avec valeur variable

Merci beaucoup LPandre et CB60 pour votre aide.