hi,

I need a macro to resize the column of the **current** pivot table.
All the code sample I have found suppose that you already have the
name of the pivot table to apply any modification.

Is there a way to find the current pivot table from the active cell ?



Here is the code I need to modify:

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect
"", _
xlDataAndLabel
Selection.ColumnWidth = 9


Thank you for your help

François

Try this utility:

http://www.contextures.com/xlPivotPlay01.html


Regards,
Ryan--

--
RyGuy


" wrote:

hi,

I need a macro to resize the column of the **current** pivot table.
All the code sample I have found suppose that you already have the
name of the pivot table to apply any modification.

Is there a way to find the current pivot table from the active cell ?



Here is the code I need to modify:

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect
"", _
xlDataAndLabel
Selection.ColumnWidth = 9


Thank you for your help

François

Hi,

Thank you Ryan, but I have finally found the solution (at least, **a**
solution):



ActiveCell.CurrentRegion.ColumnWidth = 9



Simple, clear, efficient :-)

Thanks for your answer, I will have a look at your utility if I am in
need of further features.

Regards

François