|
|
|
|
Application.WindowState = xlMinimized
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"resultats!R1C1:R11C5").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10 '
"resultats!R1C1:R11C5"
Range("A1").Select 'test de selection tableau complet
Range(Selection, Selection.End(xlToRight)).Select 'test de selection tableau complet vers la droite
Range(Selection, Selection.End(xlDown)).Select 'test de selection tableau complet vers le bas
Configuration: Windows XP Firefox 2.0.0.18
Personne ne peut me renseigner pour ce petit problème ? |
Bonjour
essaye cela msgbox Range("A1").currentregion.address t'affichera les coordonnées de ta table en fonction de A1 ce qui te donnerait : ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"resultats!" & range("A1").CurrentRegion.address).CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10 --
Cordialement Wilfried ps: n'oubliez pas de mettre votre fil sur résolu quand vous obtenez ce que vous cherchez. Merci |
Je vais tester ca je te tiens au courant
merci |
ton bout de macro marche a la perfection et je t'en remercie
problème résolu |
Résultats pour [EXCEL 2003] VB résolution de plage
Résultats pour [EXCEL 2003] VB résolution de plage