Raccourcis de code

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
Rechercher des sujets similaires à "raccourcis code"