Macro TCD

[groota]

Bonjour, cela fait 2 jours que je galère sur Excel pour réaliser un TCD avec un macro.

Je vais essayer d'être claire pour vous expliquer mon problème.

Tout d'abord pour générer mon tableau, je tape le code :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R120C11").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select

Or mon tableau n'a pas forcément 120 lignes et peut en avoir plus. J'ai essayé de nombreuses formules, mais impossible de les placer dans mon cas ...

Pouvez-vous m'aider ?
Merci

 

[bpol]

Re : Macro TCD

salut groota,

et pourquoi augmenter le nombre de lignes dans ta macro?

A+
Bpol

 

[Pierrot93]

Re : Macro TCD

Bonjour Grota

regarde le code ci-dessous si il peut t'aider :

Sub test()
Dim pc As PivotCache, TCD As PivotTable
Set pc = ThisWorkbook.PivotCaches.Add(xlDatabase, Feuil1.Range("A1").CurrentRegion)
Set TCD = pc.CreatePivotTable(Range("G1"))
End Sub

bonne fin d'après midi
@+

Edition bonjour bpol

 

[groota]

Re : Macro TCD

Bonjour,
Tout d'abord merci d'avoir pris le temps de me répondre Pierrot93 et bpol

@ bpol --> Je ne choisi pas le nombre de lignes. En fait chaque ligne représente un patient avec différentes informations le concernant.

@ Pierrot93 --> Je ne vois pas comment utiliser ton code dans mon cas ... Peux tu m'en dire d'avantage ?

Merci

 

[Pierrot93]

Re : Macro TCD

Bonjour,

en lieu et place des lignes que tu indiquais :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _ 
"Sheet1!R1C1:R120C11").CreatePivotTable TableDestination:="", TableName:= _ 
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10 
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)

bon après midi
@+

 

[groota]

Re : Macro TCD

Merci, j'ai réussi
Bonne après-midi à toi aussi !