OVH Cloud OVH Cloud

SourceData dans tableau croisé

7 réponses
Avatar
André Houssonloge
Bonjour,

J'ai créé une macro dans un modèle. Lorsque je lance le modèle d'une autre
application, les données peuvent variés. Quelle code vba correspond à
R1C1:R415C34 pour considéré la plage de données qui je le rappelle est
variable?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R415C34").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique2"

Merci

André Houssonloge

7 réponses

Avatar
MichDenis
Bonjour André,

Dans l'exemple suivant, le TDC est sur la même feuille "Feuil1" que les données. Évidemment, le TDC n'est pas en dessous des données
mais à côté de ces dernières.

Évidemment, tu devras adapter le nom des objets "Feuil" , "Tableau croisé dynamique1", pour les noms des objets ou leur index qui
correspondent à ceux de ton application.

'-----------------------------------
Sub MiseAjourPlageTDC()

Dim Plg As String

With Worksheets("Feuil1")
Plg = .Name & "!" & .Range("A1:B" & _
.Range("A65536").End(xlUp).Row).Address
End With

With ActiveSheet.PivotTables("Tableau croisé dynamique1")
.SourceData = Plg
End With

End Sub
'-----------------------------------


Salutations!



"André Houssonloge" a écrit dans le message de news:
Bonjour,

J'ai créé une macro dans un modèle. Lorsque je lance le modèle d'une autre
application, les données peuvent variés. Quelle code vba correspond à
R1C1:R415C34 pour considéré la plage de données qui je le rappelle est
variable?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R415C34").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique2"

Merci

André Houssonloge
Avatar
Jacquouille
Bonsoir André.
Ton nom fleure bon le terroir Wallon....
Pourquoi ne prends-tu pas l'apellation A1 ?
Tu définis derL et tu t'en sers comme variable pour allonger ta plage.

derL = Sheets("feuil1").[A65536].End(xlUp).Row
[B3] = Evaluate("Sum(C1:C" & derL & ")")

Il est évident que cet exemple de somme n'a rien à voir avec ton problème.
Si nin bon, fo rivni chal. -)
Au fait, un souper MPFE à Liège les 11-12 juin ne t'intéresse pas?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai créé une macro dans un modèle. Lorsque je lance le modèle d'une autre
application, les données peuvent variés. Quelle code vba correspond à
R1C1:R415C34 pour considéré la plage de données qui je le rappelle est
variable?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R415C34").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique2"

Merci

André Houssonloge




Avatar
André Houssonloge
Merci à vous deux, j'essaye cela dès demain.

Bonne nuit.

D'où est-tu Jacquouille?


"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai créé une macro dans un modèle. Lorsque je lance le modèle d'une autre
application, les données peuvent variés. Quelle code vba correspond à
R1C1:R415C34 pour considéré la plage de données qui je le rappelle est
variable?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R415C34").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique2"

Merci

André Houssonloge




Avatar
André Houssonloge
Merci, çà fonctionne à merveille.

Bon dimanche

"MichDenis" a écrit dans le message de news:
%23iK$
Bonjour André,

Dans l'exemple suivant, le TDC est sur la même feuille "Feuil1" que les
données. Évidemment, le TDC n'est pas en dessous des données
mais à côté de ces dernières.

Évidemment, tu devras adapter le nom des objets "Feuil" , "Tableau croisé
dynamique1", pour les noms des objets ou leur index qui
correspondent à ceux de ton application.

'-----------------------------------
Sub MiseAjourPlageTDC()

Dim Plg As String

With Worksheets("Feuil1")
Plg = .Name & "!" & .Range("A1:B" & _
.Range("A65536").End(xlUp).Row).Address
End With

With ActiveSheet.PivotTables("Tableau croisé dynamique1")
.SourceData = Plg
End With

End Sub
'-----------------------------------


Salutations!



"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai créé une macro dans un modèle. Lorsque je lance le modèle d'une autre
application, les données peuvent variés. Quelle code vba correspond à
R1C1:R415C34 pour considéré la plage de données qui je le rappelle est
variable?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R415C34").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique2"

Merci

André Houssonloge





Avatar
Jacquouille
Bonsoir
En plein mitan de Liéch et d'èwaie (di bèfays) -))
è vo ?

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"André Houssonloge" a écrit dans le message de news:

Merci à vous deux, j'essaye cela dès demain.

Bonne nuit.

D'où est-tu Jacquouille?


"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai créé une macro dans un modèle. Lorsque je lance le modèle d'une
autre
application, les données peuvent variés. Quelle code vba correspond à
R1C1:R415C34 pour considéré la plage de données qui je le rappelle est
variable?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R415C34").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique2"

Merci

André Houssonloge









Avatar
Jacquouille
Et alors, un petit souper MPFE en juin, cela ne te dit rien?
Fléron - Aywaille, 30 min en vélo.....( à l'aller) -)))

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"André Houssonloge" a écrit dans le message de news:

Mi dji so d'fléron.

André



"Jacquouille" a écrit dans le message de
news:
Bonsoir
En plein mitan de Liéch et d'èwaie (di bèfays) -))
è vo ?

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"André Houssonloge" a écrit dans le message de news:

Merci à vous deux, j'essaye cela dès demain.

Bonne nuit.

D'où est-tu Jacquouille?


"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai créé une macro dans un modèle. Lorsque je lance le modèle d'une
autre
application, les données peuvent variés. Quelle code vba correspond à
R1C1:R415C34 pour considéré la plage de données qui je le rappelle est
variable?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R415C34").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique2"

Merci

André Houssonloge

















Avatar
André Houssonloge
Je suis originaire de fléron, j'y retourne voir mes parents, mais j'habite à
Limelette dans le Brabant Wallon.

Le WE du 11 et 12 je joue l'interclub de tennis, je ne suis donc pas
disponible.

Je profite de l'occasion pour savoir en quoi consiste ces petites réunions.

Merci

André Houssonloge

"Jacquouille" a écrit dans le message de
news:
Et alors, un petit souper MPFE en juin, cela ne te dit rien?
Fléron - Aywaille, 30 min en vélo.....( à l'aller) -)))

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"André Houssonloge" a écrit dans le message de news:

Mi dji so d'fléron.

André



"Jacquouille" a écrit dans le message de
news:
Bonsoir
En plein mitan de Liéch et d'èwaie (di bèfays) -))
è vo ?

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"André Houssonloge" a écrit dans le message de news:

Merci à vous deux, j'essaye cela dès demain.

Bonne nuit.

D'où est-tu Jacquouille?


"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai créé une macro dans un modèle. Lorsque je lance le modèle d'une
autre
application, les données peuvent variés. Quelle code vba correspond à
R1C1:R415C34 pour considéré la plage de données qui je le rappelle est
variable?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R415C34").CreatePivotTable TableDestination:="",
TableName:= _
"Tableau croisé dynamique2"

Merci

André Houssonloge