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
Partager