Ordonner automatiquement Etiquette Ligne dans TCD

Version imprimable

28/10/2014, 13h51
PaulG2B

Ordonner automatiquement Etiquette Ligne dans TCD

Re bonjour à tous,

Voici un problème pour lequel je ne suis pas sûr qu'il existe une solution.

Enoncé : je génère un TCD via une macro, dans ce tableau je souhaiterais que l'étiquette des lignes s'ordonne suivant une règle. La règle qui définit l'agencement est définit par un tableau (2 colonnes : Dosages et Ordre) stocké sur une feuille du classeur.
Mais il faut que je puisse conserver la possibilité d'ajouter des dosages et des n°ordre, d'où des n° ordre qui ne se suivent pas forcément, de plus tous les intitulés ne pas forcément appelés dans le tableau créé... tout un programme.

Dosages Ordre

pH 1

AT 3

AV 4

ATP 10

J'ai commencé en insérant la ligne suivante :

Code:

.PivotItems("AT").Position = 3

Mais cela est peu esthétique et peu dynamique, pour un TCD c'est un comble n'est-il pas ?
En écrivant ce post je me rend compte que la création de deux variables pour stocker le Dosage et l'Ordre serait peut-être une solution, puis créer une boucle.

Alors cela vous inspire-t-il ?
28/10/2014, 14h28
78chris

Bonjour

Par défaut les TCD utilisent les listes personnalisées pour les tris. En créant une liste personnalisées selon ton ordre (ce qui nécessitera de la mette à jour si des dosages s'ajoutent) et en paramétrant le tri automatique (options de tri supplémentaire auto ascendant sur ton étiquette) cela sera toujours classé selon ta liste.

Sinon effectivement c'est une boucle...

Bonjour,

Code:

1
2
3
4
5
6
7
    Dim PI As PivotItem, Dosages As Variant
    Dosages = Array("pH", "AT", "AV", "ATP")
    With ActiveSheet.PivotTables(1).PivotFields("Dosages")
        For Each PI In .PivotItems
             PI.Position = Application.Match(PI.Caption, Dosages, 0)
        Next PI
    End With

29/10/2014, 09h05
PaulG2B

Merci Daniel.C pour cette proposition que je vais tester demain.
Hier en fait je suis parti sur l'attribution d'une valeur à chaque dosages dans le tableau servant à générer le TCD, puis je définit un classement croissant dans le TCD après création :aie:.
Ta solution m'intéresse car je n'ajoute pas de colonne à mon tableau initial.

Dosages	Ordre
pH	1
AT	3
AV	4
ATP	10