Macro Pivot Table simple Excel 2011 (mac)

Le 21/05/2013 à 07:19

Bonjour,

j'ai un petit soucis avec ma macro TCD: La macro ne marche que si je crée une feuille nommée "Feuil4" avant d'éxécuter la macro. Ce qui est normal sacahant que c'est la feuille de destination.

Comment faire faire pour que la macro inère automatiquement une nouvelle feuille sans avoir à en créer une et la renommer au préalable.

je vous le fichier en PJ.

Cordialement,

Max

15macro.xlsm (289.72 Ko)
Le 21/05/2013 à 13:30

Bonjour,

Merci de ne poster sur un sujet cloturer comme tu l'as fait. Le fait de voir le petit V vert à coter du fil signifie le celui ci est cloturé. Donc on ne regarde plus ta demande.

Pour ta demande, essaie avec le code ci-dessous

Sub Macro1()
Dim dlg As Integer
dlg = Sheets("TCDStart").Range("A" & Rows.Count).End(xlUp).Row

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Sheets("TCDStart").Range("A1:AF" & dlg), Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:=ActiveSheet.Range("A3"), TableName:="Tableau croisé dynamique1"

With ActiveSheet.PivotTables("Tableau croisé dynamique1")
    .PivotFields("Date").Orientation = xlRowField
    .AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Delivery Unit"), _
        "Nombre de Delivery Unit", xlCount

    .PivotFields("BatchGrp").Orientation = xlColumnField
    .PivotFields("Opt.Start").Orientation = xlRowField

    .PivotSelect "'49'", xlDataAndLabel, True
        With Selection.Interior
            .ThemeColor = xlThemeColorAccent2
        End With

    .PivotSelect "'59'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 15773696
        End With

    .PivotSelect "'62'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 255
        End With

   .PivotSelect "'65':'66'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 49407
        End With

    .PivotSelect "'67':'69'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 65535
        End With

    .PivotSelect "'70'", xlDataAndLabel, True
        With Selection.Interior
            .ThemeColor = xlThemeColorAccent6
        End With

    .PivotSelect "'71'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 5296274
        End With

    .PivotSelect "'72'", xlDataAndLabel, True
        With Selection.Interior
            .ThemeColor = xlThemeColorAccent2
        End With
End With
Rows("5:5").Select
ActiveWindow.FreezePanes = True
End Sub

Il y a surement moyen d'améliorer pour éviter tous les Select mais bon , là il faudrait connaitre mieux le projet

Si ok, lors de ta réponse clique sur le V vert à coté du bouton EDITER, afin de cloturer le fil

Amicalement

Le 22/05/2013 à 06:31
Dan a écrit :

Bonjour,

Merci de ne poster sur un sujet cloturer comme tu l'as fait. Le fait de voir le petit V vert à coter du fil signifie le celui ci est cloturé. Donc on ne regarde plus ta demande.

Pour ta demande, essaie avec le code ci-dessous

Sub Macro1()
Dim dlg As Integer
dlg = Sheets("TCDStart").Range("A" & Rows.Count).End(xlUp).Row

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Sheets("TCDStart").Range("A1:AF" & dlg), Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:=ActiveSheet.Range("A3"), TableName:="Tableau croisé dynamique1"

With ActiveSheet.PivotTables("Tableau croisé dynamique1")
    .PivotFields("Date").Orientation = xlRowField
    .AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Delivery Unit"), _
        "Nombre de Delivery Unit", xlCount

    .PivotFields("BatchGrp").Orientation = xlColumnField
    .PivotFields("Opt.Start").Orientation = xlRowField

    .PivotSelect "'49'", xlDataAndLabel, True
        With Selection.Interior
            .ThemeColor = xlThemeColorAccent2
        End With

    .PivotSelect "'59'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 15773696
        End With

    .PivotSelect "'62'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 255
        End With

   .PivotSelect "'65':'66'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 49407
        End With

    .PivotSelect "'67':'69'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 65535
        End With

    .PivotSelect "'70'", xlDataAndLabel, True
        With Selection.Interior
            .ThemeColor = xlThemeColorAccent6
        End With

    .PivotSelect "'71'", xlDataAndLabel, True
        With Selection.Interior
            .Color = 5296274
        End With

    .PivotSelect "'72'", xlDataAndLabel, True
        With Selection.Interior
            .ThemeColor = xlThemeColorAccent2
        End With
End With
Rows("5:5").Select
ActiveWindow.FreezePanes = True
End Sub

Il y a surement moyen d'améliorer pour éviter tous les Select mais bon , là il faudrait connaitre mieux le projet

Si ok, lors de ta réponse clique sur le V vert à coté du bouton EDITER, afin de cloturer le fil

Amicalement

Hello Dan,

Tout à fait à mes attentes.

Du grand art.

Have a nice day.

Max

Rechercher des sujets similaires à "macro pivot table simple 2011 mac"