Voila mon probleme j'ai enregistr=E9 la macro ci-dessous pour cr=E9=E9 un
tcd mais cela ne fonctionne pas lorsque je la lance et je ne comprends
pas pourquoi et en deboggage le code enetre * est en jaune ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
sleg
Probleme réglé
On 11 déc, 15:21, sleg wrote:
BOnjour,
Voila mon probleme j'ai enregistré la macro ci-dessous pour créé un tcd mais cela ne fonctionne pas lorsque je la lance et je ne comprends pas pourquoi et en deboggage le code enetre * est en jaune ??
merci de votre aide.
bonne journée.
code macro : Sub tcd() Sheets("incident").Select Range("D2").Select *********************************** ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "incident!R1C1:R12C12").CreatePivotTable TableDestination := _ "[backlog.xls]TCD!R4C1", TableName:="Tableau croisé dynamique3", _ DefaultVersion:=xlPivotTableVersion10 ************************************ ActiveSheet.PivotTables("Tableau croisé dynamique3").AddFields RowFields:= _ Array("Centre de compétence", "Assigné à"), ColumnF ields:=Array ("OLA", _ "Priorité") ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s ("Priorité"). _ Orientation = xlDataField Range("A6").Select ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s ( _ "Centre de compétence").Subtotals = Array(False, Fals e, False, False, False, False, _ False, False, False, False, False, False) ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotSelec t "OLA[All]", _ xlLabelOnly, True Range("C4").Select ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s ("OLA"). _ Subtotals = Array(False, False, False, False, False, Fa lse, False, False, False, False, _ False, False) Range("A2").Select Sheets("verif refresh").Select End Sub
Probleme réglé
On 11 déc, 15:21, sleg <bastien...@gmail.com> wrote:
BOnjour,
Voila mon probleme j'ai enregistré la macro ci-dessous pour créé un
tcd mais cela ne fonctionne pas lorsque je la lance et je ne comprends
pas pourquoi et en deboggage le code enetre * est en jaune ??
merci de votre aide.
bonne journée.
code macro :
Sub tcd()
Sheets("incident").Select
Range("D2").Select
***********************************
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"incident!R1C1:R12C12").CreatePivotTable TableDestination := _
"[backlog.xls]TCD!R4C1", TableName:="Tableau croisé
dynamique3", _
DefaultVersion:=xlPivotTableVersion10
************************************
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddFields
RowFields:= _
Array("Centre de compétence", "Assigné à"), ColumnF ields:=Array
("OLA", _
"Priorité")
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s
("Priorité"). _
Orientation = xlDataField
Range("A6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s
( _
"Centre de compétence").Subtotals = Array(False, Fals e, False,
False, False, False, _
False, False, False, False, False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotSelec t
"OLA[All]", _
xlLabelOnly, True
Range("C4").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s
("OLA"). _
Subtotals = Array(False, False, False, False, False, Fa lse,
False, False, False, False, _
False, False)
Range("A2").Select
Sheets("verif refresh").Select
End Sub
Voila mon probleme j'ai enregistré la macro ci-dessous pour créé un tcd mais cela ne fonctionne pas lorsque je la lance et je ne comprends pas pourquoi et en deboggage le code enetre * est en jaune ??
merci de votre aide.
bonne journée.
code macro : Sub tcd() Sheets("incident").Select Range("D2").Select *********************************** ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "incident!R1C1:R12C12").CreatePivotTable TableDestination := _ "[backlog.xls]TCD!R4C1", TableName:="Tableau croisé dynamique3", _ DefaultVersion:=xlPivotTableVersion10 ************************************ ActiveSheet.PivotTables("Tableau croisé dynamique3").AddFields RowFields:= _ Array("Centre de compétence", "Assigné à"), ColumnF ields:=Array ("OLA", _ "Priorité") ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s ("Priorité"). _ Orientation = xlDataField Range("A6").Select ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s ( _ "Centre de compétence").Subtotals = Array(False, Fals e, False, False, False, False, _ False, False, False, False, False, False) ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotSelec t "OLA[All]", _ xlLabelOnly, True Range("C4").Select ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotField s ("OLA"). _ Subtotals = Array(False, False, False, False, False, Fa lse, False, False, False, False, _ False, False) Range("A2").Select Sheets("verif refresh").Select End Sub