Bonjour!!!!
J'ai besoin de votre aide et de vos compétences en VBA
J'ai un fichier avec un onglet dans lequel il y a un tableau
Dans ce tableau on a une colonne nommée : "Macro_CCH"
Dans cette colonne on ne peut trouver que 7 données:
K-Noyaux
K-Cire
K-Moulage
K-Fusion
K-Para-TS
K-CND
K-Livraison
Donc lorsque je créer un TCD et que je glisse "Macro_CCH" dans Étiquettes de colonnes je ne peux trouver en haut que mes 7 données.
Seulement je voudrais que les étiquettes de colonnes soit dans l'ordre du processus (celui ci-dessus)
Pour cela j'ai créé une Macro donnant une place à chaque colonne selon son nom:
Sub tri()
Sheets("Feuil2").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Macro_CCH"). _
PivotItems("K-Noyaux").Position = 1
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Macro_CCH"). _
PivotItems("K-cire").Position = 2
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Macro_CCH"). _
PivotItems("K-Moulage").Position = 3
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Macro_CCH"). _
PivotItems("K-Fusion").Position = 4
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Macro_CCH"). _
PivotItems("K-Para-TS").Position = 5
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Macro_CCH"). _
PivotItems("K-CND").Position = 6
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Macro_CCH"). _
PivotItems("K-Livraison").Position = 7
End Sub
Cependant il peut arriver qu'il n'y ait aucune pièce par exemple en K-Cire
et dans ce cas là ma macro n'est pas adaptée car il ne trouve pas cette données ...
Dans le fichier joint ma macro remet en ordre la TCD de la feuille 2 (données source en Feuil1)
En Feuil 4 vous avez l'exemple pour lequel ma macro n'est pas adaptée ..
Merci pour votre aide
Pepito