[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 :

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

  1. Contributeur
    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
    1. ton bout de macro marche a la perfection et je t'en remercie

      problème résolu