Discussion :

[dttpedt]

Bonjour,
Je souhaiterais créer automatiquement un Tableau croisé dynamique dans chaque onglet de mon document Excel.

J’ai x onglets avec des tableaux de taille variable. Sur chaque onglet, je voudrais ajouter un TCD.

Les tableaux seraient créés à partir de la colonne F par exemple.

Voici mon début de code mais je bloque !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub TCD ()
' Création d'un TCD par onglet
Dim i As Integer
Dim nb_ong As Integer
Dim DernLigne As Long
nb_ong = Sheets.Count
For i = 2 To nb_ong  Step 1
Sheets(i).Select
DernLigne = Range("B" & Rows.Count).End(xlUp).Row
…
End Sub

Classeur1.xlsx

D'avance Merci de votre aide.

[Kimy_Ire]

Bonjour dttpedt,

Je ne suis pas un grand expert en TCD mais je pense que ceci peut te servir :

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
Sub TDC_multi()
Dim onglet As Worksheet
Dim cell_onglet As Range
Dim max_row As Integer
 
For Each onglet In Worksheets
 
    With onglet
        Set cell_onglet = .Range("A1:D" & .Columns(1).Find("*", , , , , xlPrevious).Row)
        Call TCD_add(onglet, cell_onglet)
    End With
 
Next onglet
 
 
End Sub
 
Sub TCD_add(onglet As Worksheet, cell_onglet As Range)
 
With onglet
    test = onglet.Name
    For Each PvTb In .PivotTables
        PvTb.TableRange2.Clear
    Next PvTb
End With
 
'Creation du TCD
onglet.PivotTableWizard SourceType:=xlDatabase, SourceData:=cell_onglet, TableDestination:=onglet.Range("G1"), TableName:="TCD_" & onglet.Name
 
 
'Mise en forme
With onglet.PivotTables("TCD_" & onglet.Name)
'Ajoute un champ de lignes nommé "CZTDCS".
'----------------.AddFields RowFields:="CZTDCS"
 
'Définit l'orientation du champ nommé "CZPN" en tant que Donnée.
'----------------.PivotFields("CZPN").Orientation = xlDataField
 
'Définit l'orientation du champ nommé "VALEURECAR" en tant que Donnée.
'----------------.PivotFields("VALEURECAR").Orientation = xlDataField
 
'Définit l'orientation du champ nommé "VALABS" en tant que Donnée.
'----------------.PivotFields("VALABS").Orientation = xlDataField
End With
 
End Sub

Ce code te permet de créer sur tous tes onglets en cellule "G1" les TCD de l'onglet courant.
N'ayant pas plus d'information concernant ce que tu souhaites faire, je te laisse revenir vers moi si tu rencontres des difficultés.

Cordialement,
Kimy

[Invité]

Voici un classe qui te permet de créer des TDC couplé avec ce qui est dit plus haut ça vas te simplifier la vie!

Code Module :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim TDC As New clsTdcRD
 
TDC.CreerTableau ActiveWorkbook, "Feuil1!A1:c3", "TDC"
TDC.NewPivotTables "Status", TypeFiltre
TDC.NewPivotTables "Name", Typeligne
TDC.NewPivotTables "Product", TypeColonne
 
TDC.AfficheTotal False, False
TDC.Style "PivotStyleLight16"
 
Sheets("TDC").Activate
ActiveWindow.DisplayGridlines = False
End Sub

Code Module de Classe:=clsTdcRD :

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
Private tb As Object
Public Enum PivotType
    Typeligne = 1
    TypeColonne = 2
    TypeFiltre = 3
End Enum
Public Enum Fonct
Somme = -4157
Nombre = -4112
Moyenne = -4106
Max = -4136
Min = -4139
Produit = -4149
Chiffres = -4113
Écartype = -4155
Écartypep = -4156
Var = -4164
VarP = -4165
End Enum
Public Function CreerTableau(Wb As Workbook, palge As String, Name As String)
Dim Ws As Worksheet
Set Ws = Sheets.Add
   Set tb = Wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        palge, Version:=xlPivotTableVersion12)
   Set tb = tb.CreatePivotTable( _
        TableDestination:=Ws.Range("A1"), TableName:=Name, _
        DefaultVersion:=xlPivotTableVersion12)
        Ws.Name = Name
End Function
 
 
 
Public Sub NewPivotTables(Fld As String, Orientation As PivotType, Optional SousTotaux As Boolean)
    With tb.PivotFields(Fld)
        .Orientation = Orientation
        If SousTotaux = False Then
            .LayoutSubtotalLocation = 1
        Else
            .LayoutSubtotalLocation = 2
        End If
 
        '.Position = 1
    End With
 
End Sub
 
Public Sub NewDataField(Fld As String, Optional Fonction As Fonct = Somme)
    tb.AddDataField tb.PivotFields(Fld), " " & Fld, Fonction
End Sub
 
Public Sub AfficheTotal(Linge As Boolean, Colone As Boolean)
tb.ColumnGrand = Colone
tb.RowGrand = Linge
End Sub
Public Sub Style(S As String)
 tb.TableStyle2 = S
End Sub

[dttpedt]

Bonjour Kimy_Ire,

Je suis désolé mais je ne comprend pas trop ton code. il crée un TCD dans l'onglet 6 et rien dans les autres.

En faite, j'ai un fichier Excel ayant plusieurs onglets, et chaque onglet à un tableau dont le nombre de ligne varie.

Ce que je souhaiterais c'est donc d'avoir un TCD par onglet qui reprendrais les valeurs de mes tableaux. Pour la configuration des TCD, il y a aurait les mêmes paramètres pour tous.

je en sais pas si je suis très clair ? En tout cas merci pour ton aide.

[Invité]

je te propose ma nouvelle mouture!

[dttpedt]

Merci rdurupt pour ta solution sa fonctionne bien mais en faite il me faut modifier la mise en page.

J'ai vu que dans le module de classe, il y n'y avait que 3 type de pivot or il me manque le 4ème Valeur ! et je ne sais pas comment le créer.

Concernant la plage de valeur elle est variable sur chaque onglet y a t-il une solution ?

[Invité]

J'ai vu que dans le module de classe, il y n'y avait que 3 type de pivot or il me manque le 4ème Valeur ! et je ne sais pas comment le créer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Somme
'Nombre
'Moyenne
'Max
'Min
'Produit
'Chiffres
'Écartype
'Écartypep
'Var
'VarP
TDC.NewDataField "Prix", Somme

Code :

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

1
2
3
4
5
6
7
8
9
TDC.CreerTableau ActiveWorkbook, Feuille & "!" & ActiveWorkbook.Sheets(Feuille).UsedRange.Address, "TDC_" & Feuille, AvantFeuille
TDC.NewDataField "Prix", Somme
TDC.NewPivotTables "Status", TypeFiltre
'SousTotaux=true
TDC.NewPivotTables "Name", Typeligne, True
TDC.NewPivotTables "Magasin", TypeColonne, True
TDC.NewPivotTables "Product", Typeligne
TDC.AfficheTotal True, True
TDC.Style "PivotStyleLight16"

Concernant la plage de valeur elle est variable sur chaque onglet y a t-il une solution ?

Code :

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

TDC.CreerTableau ActiveWorkbook, Feuille & "!" & ActiveWorkbook.Sheets(Feuille).UsedRange.Address, "TDC_" & Feuille, AvantFeuille

et si tu veux relooker TDC

Code :

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

1
2
TDC.Style "PivotStyleLight16"
TDC.Style "PivotStyleDark5"

pour trouver le style qui te convient, utilise l'enregistreur de macro!

[dttpedt]

Ok c'est bon maintenant.

Merci