Simplifier code avec : for i = to

[syl0038]

Bonjour,
Quelqu'un pourrait avoir la gentillesse de me dire comment simplifier ce code avec : for i =__ to __
J'ai déjà réussi avec des combobox mais pas avec des TCD.

En cous remerciant!!


ActiveSheet.PivotTables("PivotTable1").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable2").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable3").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable4").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable5").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable7").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable8").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value

 

[PrinceCorwin]

Re : Simplifier code avec : for i = to

Bonjour,

Comme ceci ?

for i = 1 to 8
ActiveSheet.PivotTables("PivotTable" & i).PivotFields  ("ACTIVITY").CurrentPage = ComboBox2.Value
next

Bonne journée

 

[syl0038]

Re : Simplifier code avec : for i = to

Cela ne fonctionne pas, j'avais essayé la même chose.

 

[PrinceCorwin]

Re : Simplifier code avec : for i = to

RE,

Et comme ceci ?

for i = 1 to 8
ActiveSheet.PivotTables.Item(i).PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
next

ou

for i = 1 to 8
ActiveSheet.PivotTables(i).PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
next

Passe-t-il mieux le test du Crash ?

 

[syl0038]

Re : Simplifier code avec : for i = to

Ca marche je vous remercie!