plusieurs pivotfields ?

[SUPERLOLO007]

Hello à tous je dois créer 50 tableaux croisés dyn avec des chiffres de 1 à 50,
le premier tabl avec 1 en "row" et de 2 à 50 en pivotfields, pour le 2 è tableau: le chiffres 2 en "row" et de 3 à 50 en pivotfields,....... comment lui faire comprendre en PIVOTFIELDS de me prendre toutes les autres valeurs pour chaque tableau ? Pour l'instant j'ai réussi les rowfields de chq tableau mais il ne prends pas les pivotfields ?

Je dois utiliser une expression "boolean" ou un "for...each pivotfields......" je suppose mais aidez-moi car je ne m'en sors pas....

Et je suppose que la dernière valeur " Position " doit aussi changer pour chaque pivot field ???

Code :

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
 
Sub crois dyn()
Dim I
For I = 1 To 50
 
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Chiffres ordre'!B1:AY147").CreatePivotTable TableDestination:= _
        "R1C" & (I * 4 - 3), TableName:="PivotTable" & (1 + I)
 
    With ActiveSheet.PivotTables("PivotTable" & 1 + I)
        .ColumnGrand = False
        .NullString = "0"
        .RowGrand = False
        .SmallGrid = False
    End With
  ActiveSheet.PivotTables("PivotTable" & 1 + I).AddFields RowFields:=Array(I)
    With ActiveSheet.PivotTables("PivotTable" & 1 + I)
    .PivotFields (I + 1) ' c'est là que je veux lui fair mettre tous les pivot fields
    .Orientation = xlDataField
    .Position = 1
    End With
 
Next I
 
End Sub

[AlainTech]

Euh, c'est pas la même question que là?

[SUPERLOLO007]

Salut, en effet c'est un probleme avec le même tableau croisé dyn mais ce n'est pas le même probleme. Je n'ai pas la réponse pour aucune de mes 2 questions........

Dès que c'est résolu je mettrai l'explication et le signe "resolu"

[bbil]

tui n'aurai pas une "image" tu tableau croisé dynamique à obtenir...?

[SUPERLOLO007]

salut Bbill, pourrais-tu me donner ton adresse mail car je n'arrive pas à mettre une pièce jointe,...... merci de ton aide

[bbil]

qu'elle est la taille de ton fichier ..? compresse le ..

[SUPERLOLO007]

le problème est que je n'ai pas accès au "trombonne" dans cette fenêtre, j'ai un code d'erraur en bas de ma fenetre internet et je crois que c'est pour ça que je n'ai pas accès aux pièces jointes ni à aucun icone ci'dessus non plus, désolé