Raccourcis de code
g
Bonjour à tous pour un code que je suis en train de faire j'ai un Sub qui contient :
With ActiveSheet.PivotTables("Tableau CD element").PivotFields("U")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau CD element").PivotFields("Loc.3 = Nom")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau CD element").PivotFields("Libellé = Article")
.Orientation = xlRowField
.Position = 3
End With
With ActiveSheet.PivotTables("Tableau CD element").PivotFields("Loc.2 = Zone")
.Orientation = xlRowField
.Position = 4
End With
With ActiveSheet.PivotTables("Tableau CD element").PivotFields("Loc.1 = Niveau")
.Orientation = xlRowField
.Position = 5
End With
...
Et j'aimerais simplifier cela
Y a-t-il une solution sachant que l'action n'est pas toujours la même...
debut de piste ici ? https://forum.excel-pratique.com/excel/raccourcir-le-code-t61290.html
Merci d'avance
Bonjour gigiati,
Dim tableau(1 to 5) as String, i as Integer
tableau(1) = "U" : tableau(2) = "Loc.3 = Nom" : tableau(3) = "Libellé = Article" : tableau(4) = "Loc.2 = Zone" : tableau(5) = "Loc.1 = Niveau"
For i = 1 to 5
With ActiveSheet.PivotTables("Tableau CD element").PivotFields(tableau(i))
.Orientation = xlRowField
.Position = i
End With
next i