[EXCEL 2003] VB résolution de plage

Résolu/Fermé
Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 - 20 nov. 2008 à 16:44
Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 - 21 nov. 2008 à 16:16
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
A voir également:

5 réponses

Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
20 nov. 2008 à 19:04
up
0
Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
21 nov. 2008 à 08:38
Personne ne peut me renseigner pour ce petit problème ?
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
21 nov. 2008 à 08:48
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
0
Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
21 nov. 2008 à 10:32
Je vais tester ca je te tiens au courant
merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
21 nov. 2008 à 16:16
ton bout de macro marche a la perfection et je t'en remercie

problème résolu
0