Pivot Table avec plage dynamique

Bonjour à tous,

Je souhaite faire un tableau croisé dynamique dans une maccro avec une plage d'entrées variables (je ne sais pas combien de lignes j'aurais).

J'ai déjà codé quelque chose mais j'ai une erreur au niveau de la création de mon TCD, j'arrive pas à m'en sortir !

Si quelqu'un voit le problème, ça serait top ! Merci d'avance !

PS : j'ai testé une deuxième solution en ajoutant ce que j'ai mis en commentaire mais ça ne marche toujours pas

Sheets(2).Activate
dernlignea = Range("A" & Rows.Count).End(xlUp).Row
dernligneb = Range("B" & Rows.Count).End(xlUp).Row
dernlignec = Range("C" & Rows.Count).End(xlUp).Row
dernligned = Range("D" & Rows.Count).End(xlUp).Row
dernlignee = Range("E" & Rows.Count).End(xlUp).Row
dernlignef = Range("F" & Rows.Count).End(xlUp).Row

maxplage = WorksheetFunction.Max(dernlignea, dernligneb, dernlignec, dernligned, dernlignee, dernlignef)

With Sheets(2)
    Set plage = .Range(.Cells(16, 1), .Cells(maxplage, 19))
End With

'    ActiveWorkbook.Names.Add Name:="plage", RefersToR1C1:= _
'        "=plage"
'    ActiveWorkbook.Names("plage").Comment = ""

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "plage", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Sheet1!R1C6", TableName:="PivotTable3", DefaultVersion _
        :=xlPivotTableVersion10

Bonjour,

A tester.

Set plage = Worksheets(2).Cells(16, 1).CurrentRegion

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        plage, Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Sheet1!R1C6", TableName:="PivotTable3", DefaultVersion _
        :=xlPivotTableVersion10
    ' ou SourceData:=plage.address

Merci, ça fonctionne avec plage tout court sans guillemet ! Et merci pour l'astuce CurrentRegion !

Super la réactivité !

Re,

Si tu travailles avec Excel 2010, la version du TCD à créer doit être : xlPivotTableVersion14

Cdlt.