Voila mon problème:
je créer un tableau dynamique a partir de données toutes renseignées. Cela marchait tres bien jusqu'a aujourd'hui ou j'ai ajouté deux lignes dans les données sources. Ces lignes sont construites de la meme facon que les autres données donc le problème ne doit pas venir de la. Seulement, excel affiche une erreur "pivotfields" lorsque la macro lui demande de faire la somme des quantité par atelier.
Voici le code:
Sub tab1()
Sheets("tableaux").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
taille).CreatePivotTable TableDestination:=Range("A1"), TableName:= _
"Tableau croisé dynamique1"
ActiveSheet.PivotTables("Tableau croisé dynamique1").SmallGrid = False
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Atelier responsable")
.Orientation = xlRowField
.Position = 1
End With
ActiveWindow.SmallScroll Down:=-6
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nok" & Chr(10) & "Qté réelle")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"NB Nok" & Chr(10) & "Qté réelle").Function = xlSum
End Sub
Excel plante sur la dernière ligne avant end sub. Je n'arrive pas a trouver la source du problème.
je créer un tableau dynamique a partir de données toutes renseignées. Cela marchait tres bien jusqu'a aujourd'hui ou j'ai ajouté deux lignes dans les données sources. Ces lignes sont construites de la meme facon que les autres données donc le problème ne doit pas venir de la. Seulement, excel affiche une erreur "pivotfields" lorsque la macro lui demande de faire la somme des quantité par atelier.
Voici le code:
Sub tab1()
Sheets("tableaux").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
taille).CreatePivotTable TableDestination:=Range("A1"), TableName:= _
"Tableau croisé dynamique1"
ActiveSheet.PivotTables("Tableau croisé dynamique1").SmallGrid = False
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Atelier responsable")
.Orientation = xlRowField
.Position = 1
End With
ActiveWindow.SmallScroll Down:=-6
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nok" & Chr(10) & "Qté réelle")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"NB Nok" & Chr(10) & "Qté réelle").Function = xlSum
End Sub
Excel plante sur la dernière ligne avant end sub. Je n'arrive pas a trouver la source du problème.