Realiser un TCD avec une plage variable

Version imprimable

Bonjour

voila j essaye de réaliser un TCD avec une plage dynamique mais cela n est pas chose si simple en étant débutant je coince sur plusieurs points ;

je suis là pour apprendre et surtout comprendre :

dans mon code j ai une erreur voir 2 ou je bloque clairement , merci d avance pour votre aide,

Premier soucis :
*La définition de ma plage variable j ai un message d erreur et le résultat de mon code pour définir tabtcd = Nothing
*Pour la source data je ne sais pas si c est correct de mettre directement SourceData:="tabtcd"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
Sub Bouton4_Cliquer()
 
' TCD Macro
' Réalisation du TCD à partir des données brutes
 
Dim derlig As Long
 
Dim tabtcd As Range
 
derlig = Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Row
 
tabtcd = Sheets("Feuil1").Rows("C" & derlig)
 
tabtcd.Select
 
 
'Probleme : la source du TCD est dynamique et création TCD page 2 ....
 
 
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "tabtcd", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Feuil2!R1C1", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion14
    Sheets("Feuil2").Select
    Cells(1, 1).Select
 
 
'D par ligne
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Currency")
        .Orientation = xlRowField
        .Position = 1
    End With
 
 
 
'V par D
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("USD Equivalent"), _
        "Nombre de USD Equivalent", xlCount
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Nombre de USD Equivalent")
        .Caption = "Somme de USD Equivalent"
        .Function = xlSum
    End With
 
 
'P par d
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Revenue"), _
        "Nombre de Revenue", xlCount
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Nombre de Revenue")
        .Caption = "Somme de Revenue"
        .Function = xlSum
    End With
 
 
 
End Sub

26/04/2013, 10h25
Invité

bonjour, regarde ça

http://www.developpez.net/forums/d13...a/#post7254900

bonjour,

j ai regardé l exemple cité mais et j ai donc adapté mon code comme ci dessous

Cependant une autre erreur apparait ligne 16 et 19 de code ,pour la création de mon TCD l'erreur d execution 1004 me disant , Le nom du champ du TCD n est pas valide. Pour créer un rapport le TCD, vous devez utiliser des données sous forme de liste avec des étiquettes de colonnes. Si vous changer le nom du Champ de TCD, vous devez taper un nouveau nom pour le champ.

Plse help je suis perdu là

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Sub Bouton4_Cliquer()
 
' TCD Macro
' Réalisation du TCD à partir des données brutes
 
Dim i As Integer
 
i = 6
 
Range("C1:I65536").Select
 
'Probleme : la source du TCD est dynamique et création TCD page2
 
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R65536C9", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Feuil2!R1C1", TableName:="Tableau croisé dynamique" & i, _
        DefaultVersion:=xlPivotTableVersion14
    Sheets("Feuil2").Select
    Cells(1, 1).Select
 
 
'Devises par ligne
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields( _
        "Currency")
        .Orientation = xlRowField
        .Position = 1
    End With
 
 
 
'Volumes par Devises
 
    ActiveSheet.PivotTables("Tableau croisé dynamique" & i).AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique" & i).PivotFields("USD Equivalent"), _
        "Nombre de USD Equivalent", xlCount
    With ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields( _
        "Nombre de USD Equivalent")
        .Caption = "Somme de USD Equivalent"
        .Function = xlSum
    End With
 
 
'PnL par devises
 
    ActiveSheet.PivotTables("Tableau croisé dynamique" & i).AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique" & i).PivotFields("Revenue"), _
        "Nombre de Revenue", xlCount
    With ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields( _
        "Nombre de Revenue")
        .Caption = "Somme de Revenue"
        .Function = xlSum
    End With
 
i = i + 1
 
End Sub

26/04/2013, 12h50
Invité

si ta feuille source ne contient pas de données c'est normal.
26/04/2013, 13h08
TRESOALEX
Ma feuille de départ contient des données mais pas sur les 65536 lignes mais normalement j ai essayé sans code même si il n y pas de données dans toute la sélection le TCD se réalise donc la je comprends pas trop ?

C est pour cela qu'à la base je voulais passer par
Code:

1 2 3 4 5 6 7 8 9 10 Dim derlig As Long Dim tabtcd As Range derlig = Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Row tabtcd = Sheets("Feuil1").Rows("C" & derlig) tabtcd.Select
et ensuite mettre tabtcd dans ma SourceData:= "tabtcd", pour en effet que lui même délimite la plage de données pour réaliser le TCD

j'ai testé ton code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
i = 6
 
Range("C1:I65536").Select
 
'Probleme : la source du TCD est dynamique et création TCD page2
 
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R65536C9", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Feuil2!R1C1", TableName:="Tableau croisé dynamique" & i, _
        DefaultVersion:=xlPivotTableVersion14
    Sheets("Feuil2").Select
    Cells(1, 1).Select

bien sur je ne dispose pas de l'onglet "Tableau croisé dynamique6" et j'ai l'erreur 1004 ??????

je n ai pas d onglet de ce nom car en effet je demande dans mon code la création du TCD page 2 .

j ai le tableau croisé dynamique 6 car à force de tester il ne revient plus à tableau croisé dynamique 1.

J ai la même erreur 1004 et je ne comprends vraiment pas pk

voici mon code actualisé mais l erreur persiste malheureusement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 
Sub Bouton3_Cliquer()
 
' TCD Macro
' Réalisation du TCD à partir des données brutes
 
Dim i As Integer
 
i = 1
 
Range("C1:I65536").Select
 
'Probleme : la source du TCD est dynamique et création TCD page2
 
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R65536C9", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Feuil2!R1C1", TableName:="Tableau croisé dynamique" & i, _
        DefaultVersion:=xlPivotTableVersion14
    Sheets("Feuil2").Select
    Cells(1, 1).Select
 
 
'D par li
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields( _
        "Currency")
        .Orientation = xlRowField
        .Position = 1
    End With
 
 
 
'V par D
 
    ActiveSheet.PivotTables("Tableau croisé dynamique" & i).AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique" & i).PivotFields("USD Equivalent"), _
        "Nombre de USD Equivalent", xlCount
    With ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields( _
        "Nombre de USD Equivalent")
        .Caption = "Somme de USD Equivalent"
        .Function = xlSum
    End With
 
 
'p par d
 
    ActiveSheet.PivotTables("Tableau croisé dynamique" & i).AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique" & i).PivotFields("Revenue"), _
        "Nombre de Revenue", xlCount
    With ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields( _
        "Nombre de Revenue")
        .Caption = "Somme de Revenue"
        .Function = xlSum
    End With
 
i = i + 1
 
End Sub

test comme ça:

Code:

TableName:="T" & i, _

si tu fais ça ta plus besoin de te soucier du nom:

Code:

1
2
3
4
5
Set tb = Wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        palge, Version:=xlPivotTableVersion12)
   Set tb = tb.CreatePivotTable( _
        TableDestination:=Ws.Range("A1"), TableName:=Name, _
        DefaultVersion:=xlPivotTableVersion12)

Code:

1
2
3
4
5
6
7
8
9
10
With tb.PivotFields(Fld)
        .Orientation = Orientation
        If SousTotaux = False Then
            .LayoutSubtotalLocation = 1
        Else
            .LayoutSubtotalLocation = 2
        End If
 
        '.Position = 1
    End With

26/04/2013, 15h34
TRESOALEX

1 pièce(s) jointe(s)

je vois pas trop comment organiser mon code car après je vais appeler les en tetes de colonnes pour remonter les données et cela va dependre également du nom tu tableau croisé dynamique ? donc comment faire pour remonter les colonnes si on se soucie plus du nom ?

Je joins mon fichier pour que vous voyez un peu ce que je souhaite faire car la je coince un peu
26/04/2013, 17h59
stafly
bonjour,

pour ma part, j'aime beaucoup la technique du
Code:

1 2 3 4 5 dim plage as range ... range("A1").select selection.currentregion.select set plage = selection
et placer plage en source du TCD... mais après, tout est une question de goûts :)
27/04/2013, 00h20
Invité

voila le tableau que tu sélectionne ou sont tes entêtes de colonne???

||||||
||||||
E||||||
All|Selected||||||
All|Selected||||||
All|Selected||||||
a||||||
T||||||
All|Selected||||||
26-Apr-13||||||
26-Apr-2013||||||
ONLINE||||||
24-Apr-2013||||||
24-Apr-2013||||||
Customer|Name|Currency|Volume|USD|Equivalent|Revenue|Spread|
||||||
alex|tomate|1,000.05|500.08|0|0|
pierre|pomme|1,000.06|500.09|0|0|
laurent|carotte|1,000.07|500.10|0|0|
bertrand|betraves|1,000.08|500.11|616,13|30,86|
olivier|pomme|1,000.09|500.12|0|0|
||Grand|Total|2,570.86|7,174.68||
*******|END|OF|REPORT|*******||||||