[EXCEL 2003] VB résolution de plage
Résolu
Bonjour,
cela fait quelques jours que je parcours comment ça marche, je suis super débutant (voila pour le niveau c'est fait), et j essaie de comprendre le vb (actuellement en BTS admin réseaux 2 mois de cours sans avoir aborder la programmation).
Je dois faire un TCD a partir d'une liste extensible. Mon soucis c'est que j'ai enregistré ma macro a partir de l'enregistreur (original non !!) et maintenant mon graphique et ma feuille "synthese" ne se limitent qu'aux cellules choisies lors de l'enregistrement de la macro ce qui me donne :
j'ai a peu près compris le principe en fait il faudrait que je traduise
3ieme ligne en
Et voila mon ignorance qui rentre en jeux pourriez vous me filer un petit coup de main ?
Merci d'avance
cela fait quelques jours que je parcours comment ça marche, je suis super débutant (voila pour le niveau c'est fait), et j essaie de comprendre le vb (actuellement en BTS admin réseaux 2 mois de cours sans avoir aborder la programmation).
Je dois faire un TCD a partir d'une liste extensible. Mon soucis c'est que j'ai enregistré ma macro a partir de l'enregistreur (original non !!) et maintenant mon graphique et ma feuille "synthese" ne se limitent qu'aux cellules choisies lors de l'enregistrement de la macro ce qui me donne :
Application.WindowState = xlMinimized
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"resultats!R1C1:R11C5").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10 '
j'ai a peu près compris le principe en fait il faudrait que je traduise
"resultats!R1C1:R11C5"
3ieme ligne en
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
Et voila mon ignorance qui rentre en jeux pourriez vous me filer un petit coup de main ?
Merci d'avance
Configuration: Windows XP Firefox 2.0.0.18
5 réponses
-
up
-
Personne ne peut me renseigner pour ce petit problème ?
-
ContributeurBonjour
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