Discussion :

[Axi91]

Bonjour,

Voila mon problème :

je souhaite à l'appui sur un bouton "nomenclature" (associé à macro 2) créer un TCD sur une nouvelle feuille regroupant certaines données présentent dans ma première feuille excel.

De plus j'aimerai qu'il y ait un total (nommé "Quant") avec la fonction somme et non nombre.

Mon code :

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
Sub Macro2()
 
    ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [Menu!R49C1].CurrentRegion.Address(, , xlR49C1, True)) _
    .CreatePivotTable _
    TableDestination:="Nomenclatureprovisoire!R1C1", _
    TableName:="TCDnomenclature"
 
' Mise en forme du TCD
 
    With Nomenclatureprovisoire
    .PivotTable ("TCDnomenclature")
    .AddFields RowFields:=Array("FOUR/", "Code", "Désignation", _
    "prix tarif", "remise équiv", "prix de revient Unitaire")
    .PivotFields("Quant") _
    .Orientation = xlDataField
    .Function = xlSum
 
End With
End Sub

J'obtiens l'erreur suivante : Erreur d'exécution '424' : Objet requis. Elle est placée sur TableName:="TCDnomenclature".
Pourtant j'ai bien précisé les feuilles, leurs noms et le nom de la TCD, ainsi que les champs de données.

J'espère mettre bien fait comprendre.
Cordialement.

[Axi91]

J'ai aussi testé ce code. Il fonctionne correctement mise à part l'onglet Quant qui s'est mis en fonction nombre, je voudrai qu'il somme.

Mon code :

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
Sub Macro2()
 
 
    Range("A49").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Menu!R49C1:R5000C10").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique6", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique6")
        .ColumnGrand = False
        .RowGrand = False
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("FOUR/"). _
        Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
        False, False)
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Code"). _
        Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
        False, False)
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Désignation " _
        ).Subtotals = Array(False, False, False, False, False, False, False, False, False, False _
        , False, False)
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("prix Tarif"). _
        Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
        False, False)
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Remise équiv" _
        ).Subtotals = Array(False, False, False, False, False, False, False, False, False, False _
        , False, False)
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "prix de revient Unitaire").Subtotals = Array(False, False, False, False, False, _
        False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("Tableau croisé dynamique6").AddFields RowFields:= _
        Array("FOUR/", "Code", "Désignation ", "prix Tarif", "Remise équiv", _
        "prix de revient Unitaire")
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Quant"). _
        Orientation = xlDataField
    ActiveWorkbook.ShowPivotTableFieldList = True
    ActiveWorkbook.ShowPivotTableFieldList = False
    Application.CommandBars("PivotTable").Visible = False
    Columns("A:G").Select
    Selection.Columns.AutoFit
    ActiveSheet.Select
    ActiveSheet.Name = "Nomenclature provisoire"
    Range("A1").Select
End Sub

J'ai essayé ceci :

Code :

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

1
2
3
4
  ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Quant") _
.Orientation = xlDataField
.Caption = "Somme de Quant"
.Function = xlSum

Sans résultats...