Discussion :

[lilou89]

Bonjour,

j'ai un tableau de suivi avec deux TDC.
je souhaiterai qu'un troisième voir quatrième bouton créé puisse générer les graphiques des TDC.

je souhaiterai poster mon fichier excel pour ce cas mais celà fait 292 ko en zip.

Existe t-il une solution pour le mette?

D'avance Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Graphe()
 
Sheets("Suivi PIQ").Select
    Range("A1").Select
Sheets.Add
ActiveSheet.Name = "PIQ"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Suivi PIQ!R1C1:R21C15", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="Graphe!R3C1", TableName:="Tableau croisé dynamique3", _
        DefaultVersion:=xlPivotTableVersion15
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Id PA")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "Code IMB")
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique3").PivotFields("Nb d'EL"), _
        "Somme de Nb d'EL", xlSum
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub CreerTCDH()
 
Sheets("HAVRE-Lot 1").Select
    Range("A1").Select
Sheets.Add
ActiveSheet.Name = "TCDH"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "HAVRE-Lot 1!R1C1:R34C10", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="TCDH!R3C1", TableName:="Tableau croisé dynamique3", _
        DefaultVersion:=xlPivotTableVersion15
         With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "Num Activité")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Id PA")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "Code IMB")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique3").PivotFields("Nb de  lgmt"), _
        "Somme de Nb de  lgmt", xlSum
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Sheets("HAVRE-Lot 1").Select
    Range("B20").Select
    Sheets.Add
    ActiveWorkbook.Worksheets("TDCHAVRE").PivotTables("Tableau croisé dynamique1"). _
        PivotCache.CreatePivotTable TableDestination:="Feuil2!R3C1", TableName:= _
        "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion15
    Sheets("Feuil2").Select
    Cells(3, 1).Select
    ActiveWindow.SmallScroll Down:=-9
End Sub
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Range("C11").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("Nb de  lgmt"), _
        "Somme de Nb de  lgmt", xlSum
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Code IMB")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Code IMB"). _
        Orientation = xlHidden
    ActiveWindow.SmallScroll Down:=-12
End Sub
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Sheets("HAVRE-Lot 1").Select
    Range("A1").Select
    Sheets.Add
    ActiveWorkbook.Worksheets("TDCHAVRE").PivotTables("Tableau croisé dynamique1"). _
        PivotCache.CreatePivotTable TableDestination:="Feuil3!R3C1", TableName:= _
        "Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion15
    Sheets("Feuil3").Select
    Cells(3, 1).Select
    Sheets("Feuil3").Select
    Sheets("Feuil3").Name = "TCDHAVRE"
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "Num Activité")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Id PA")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "Code IMB")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique3").PivotFields("Nb de  lgmt"), _
        "Somme de Nb de  lgmt", xlSum
    ActiveWindow.SmallScroll ToRight:=0
End Sub
Sub Macro4()
'
' Macro4 Macro
'
 
'
    Range("A1").Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "HAVRE-Lot 1!R1C1:R35C10", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="Feuil10!R3C1", TableName:="Tableau croisé dynamique4", _
        DefaultVersion:=xlPivotTableVersion15
    Sheets("Feuil10").Select
    Cells(3, 1).Select
End Sub

D'avance MERCI

[kuchiky]

Bonjour,

Bonton permettant d'obtenir le graphe de deux TDC déjà réalisés

Quel rapport avec le titre?

[lilou89]

C'est pour éviter de créer deux sujets que j'ai fait ça de ce faite je mets le fichier excel ici et mon problème

[had4789]

Bonjour,

Premièrement on ne peut pas t'aider à créer des graphes si on ne sait pas ce que tu veux mettre dedans.

Deuxièmement, la solution la plus simple est l'enregistreur de macro, comme ça tu pourras construire exactement ce que tu veux.

[lilou89]

J'utilise déjà l'enregistreur de Macro je sais comment ça fonctionne
Tu as parfaitement raison c'est pour ça je veux mettre la pièce jointe sauf que ça fait plus de 200 ko

[had4789]

Si il fait plus de 200 KO supprime ce qui est inutile ou extrait tes deux tableaux et les graphiques que tu veux.

Si tu connais l'enregistreur je ne vois pas où est le problème.