"range" d'un tableau

[laetitia_schwyn]

Bonjour tout le monde!!!

J'ai un petit souci concernant la création d'un tableau dynamique.

En effet, les donnée peuvent se trouver n'importe ou dans la feuille ( cela ne commence pas forcément par la cellule A1)

Dans ma macro pour faire le tableau dynamique j'utilise cela : (ici je suppose que le début du tableau est en D14

Set plage = Sheets('Resultat').Range('D14').CurrentRegion
plage.Name = 'TCD'

... (la la macro commence, macro classique de TCD)

Or ce début peut être variable comment faire pour toujours bien se placer?

j'ai essaié ceci :

Cells.Find(what:='Numero_experience').Activate
(car le début du tableau commence par un Numero_experience)

Set plage = Sheets('Resultat').Range('ActiveCell').CurrentRegion
plage.Name = 'TCD'

Ca ne marche pas! quelqu'un aurait-il la gentillesse de me débloquer??

Merci à vous!

 

[Hervé]

Bonjour laetitia, le forum

peut etre comme ceci :

Dim plage As Range

With Sheets('Resultat')
        .Activate
        .Cells.Find(what:='Numero_experience').Activate
        Set plage = ActiveCell.CurrentRegion
End With

plage.Name = 'TCD'

salut

 

[pat1545.]

Salut,
un truc comme ça peut etre ?

Option Explicit

Sub Macro2()

Dim Plage
Dim PTCache As PivotCache
Dim PT As PivotTable
Range('numero_experience').Select

Set Plage = Sheets('Feuil1').Range('numero_experience').CurrentRegion

Set PTCache = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:=Range('numero_experience').CurrentRegion.Address)
' Seulement si tes données commence en A1
Set PT = PTCache.CreatePivotTable _
(TableDestination:='', _
TableName:='MonTCD') ' A définir


ActiveSheet.PivotTables('montcd').AddFields RowFields:= _
'nom'
ActiveSheet.PivotTables('montcd').PivotFields('prix'). _
Orientation = xlDataField
Application.CommandBars('PivotTable').Visible = False
End Sub


Bye

 

[pat1545.]

sorry Hervé, pas rafraichis ...

Bye

 

[laetitia_schwyn]

Super ca marche!! Merci beaucoup Hervé!!!