Salut à tous, comment gère-t-on plusieurs Dim...for...next
(Désolé ma touche "code" sur cette fenêtre ne fonctionne pas)
Voilà mon prob, si vous suivez mon code j'ai un I mais pour la ligne "Position" plus bas il ne fonctionne pas avec I ( peut-être parcequ'il n'est pas définit en tant que integer ? ). Donc je voudrais lui définir le "A" en integer pour essayer, ma syntaxe générale ( avec les 2 next à la fin ) n'est visiblement pas bonne !!! .

Merci de votre aide...........................



Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Sheets("Crois dyn").Select
Dim I
For I = 1 To 50
Dim A As Integer
For A = 1 To 50
 
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Chiffres ordre'!B1:AY177").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)
        .Orientation = xlDataField
        .Caption = "C" & (I + 1)
        .Position = (A)
    End With
Next
Next