Macro Pivot Table simple Excel 2011 (mac)
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
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
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