Table pivot

[Bertrand]

Bonjour,

Je souhaiterais créer une table pivot automatiquement
à partir de l'exemple en annexe

J'ai commencé par le code suivant:

Sub CreatePT()
Dim PT As PivotTable

Set PT = Sheet1.PivotTableWizard(SourceType:=xlDatabase, SourceData:=Range('A1:E500'))
With PT
.PivotFields('Day').Orientation = xlRowField
.PivotFields('Dilution').Orientation = xlColumnField
End With

End Sub

qu'indiquer dans le range (A1:E?), sachant que la taille
du tableau changera (nombre de lignes variables)?

Merci beaucoup pour vos réactions,

Bertrand [file name=Test_tablepivot.zip size=9111]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_tablepivot.zip[/file]

 

[Creepy]

Bonjour à toutes et à tous,

Essaie ca :

Set PT = Sheet1.PivotTableWizard(SourceType:=xlDatabase, SourceData:=Range('A1:E' & sheet1.range('E2').end(xldown).row))

++

Creepy