OVH Cloud OVH Cloud

TCD

2 réponses
Avatar
Gustavio
Bonjour,

j'ai fait un tcd en enrigistrant la macro, ce qui fait que je ne comprend
pas une partie du code que voici :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:="Sheet1!R1C1:R25C14").CreatePivotTable TableDestination:="",
TableName:="PivotTable1"

Que veut dire le R1C1:R25C14 ?

Comme la plage selectionne sur la sheet 1 varie en nb de lignes, comment
puis-je le faire comprendre a la fonction ?

Merci!

Matthieu

2 réponses

Avatar
Marc VANSTEELANT
Salut Matthieu,

le R1C1:R25C14 correspond bien a ta plage de donnée, tu peux remplacer ton
SourceData:="Sheet1!R1C1:R25C14" par un truc de ce style
SourceData:=""Feuil1!$A:$G" où là tu selectionnes tes colonnes (ici de A à
G) quelque soit le nombre de tes lignes. Tu peux même faire un
SourceData:="Sheet1!$A" & NoPremiereLigne & ":$G" & NoDernierLigne) si tu
connais la première et dernière ligne de ta table (toujours sur les colonnes
A et G dans ce cas...).
Voilà en esperant que ça t'ai aidé un peu...

Marc


"Gustavio" a écrit dans le message de news:
u$
Bonjour,

j'ai fait un tcd en enrigistrant la macro, ce qui fait que je ne comprend
pas une partie du code que voici :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:="Sheet1!R1C1:R25C14").CreatePivotTable TableDestination:="",
TableName:="PivotTable1"

Que veut dire le R1C1:R25C14 ?

Comme la plage selectionne sur la sheet 1 varie en nb de lignes, comment
puis-je le faire comprendre a la fonction ?

Merci!

Matthieu




Avatar
Gustavio
Merci Marc pour ta reponse.
Fianlement je me suis arrange avec :

R1C1:R" & ActiveSheet.UsedRange.Rows.Count & "C14"

Ca marche.

Mais je ne comprends pas a quoi correspond le R dans la formule...

Tiens j'ajoute le code :


Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:="sortedData!R1C1:R" & ActiveSheet.UsedRange.Rows.Count &
C14").CreatePivotTable TableDestination:="", TableName:="PivotTable1"
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3, 1)


Est-ce que c'est la maniere d'appeller le Current.Region ?

Merci
Matthieu

"Marc VANSTEELANT" wrote in message
news:
Salut Matthieu,

le R1C1:R25C14 correspond bien a ta plage de donnée, tu peux remplacer ton
SourceData:="Sheet1!R1C1:R25C14" par un truc de ce style
SourceData:=""Feuil1!$A:$G" où là tu selectionnes tes colonnes (ici de A à
G) quelque soit le nombre de tes lignes. Tu peux même faire un
SourceData:="Sheet1!$A" & NoPremiereLigne & ":$G" & NoDernierLigne) si tu
connais la première et dernière ligne de ta table (toujours sur les
colonnes

A et G dans ce cas...).
Voilà en esperant que ça t'ai aidé un peu...

Marc


"Gustavio" a écrit dans le message de news:
u$
Bonjour,

j'ai fait un tcd en enrigistrant la macro, ce qui fait que je ne
comprend


pas une partie du code que voici :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:="Sheet1!R1C1:R25C14").CreatePivotTable TableDestination:="",
TableName:="PivotTable1"

Que veut dire le R1C1:R25C14 ?

Comme la plage selectionne sur la sheet 1 varie en nb de lignes, comment
puis-je le faire comprendre a la fonction ?

Merci!

Matthieu