[EXCEL 2003] VB résolution de plage
Résolu
Barsky
Messages postés
48
Statut
Membre
-
Barsky Messages postés 48 Statut Membre -
Barsky Messages postés 48 Statut Membre -
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
A voir également:
- [EXCEL 2003] VB résolution de plage
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Fiche de pointage excel - Télécharger - Tableur
5 réponses
Bonjour
essaye cela
msgbox Range("A1").currentregion.address
t'affichera les coordonnées de ta table en fonction de A1
ce qui te donnerait :
Cordialement
Wilfried
ps: n'oubliez pas de mettre votre fil sur résolu quand vous obtenez ce que vous cherchez. Merci
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question