Discussion :

[PASQUI62]

Bonjour à tout,
J'ai écris une macro (pas très douée) afin ce créer mettre des champs en e
étiquettes de lignes, en prenant en référence une cellule d'un autre tableau qui se trouve sur une autre feuille (selection).
Ca marche mais quand je change l'adresse de la selection
ex (.AddFields RowFields:=Cells(9, 5).Value) au lieu de Cells(8, 5), le changement se fait bien mais écrase le premier champs au lieu de se rajouter.
Je pense qu'il manque un morceau dans ma macro mais quand je met . position :.... cela me créé une erreur

Merci de m'aider.
Joint le fichier.

Bon dimanche à vous

[Daniel.C]

Bonjour,

Utilise l'enregistreur de macros, c'est le meilleur moyen de progresser. Tu remplaces ensuite les noms de champ par leur adresse.

[PASQUI62]

Bonjour Daniel,
Merci de la réponse mais c'est justement çà que je ne sais pas transcrire dans la macro.
Peux tu m'aider ?

Merci

[Daniel.C]

Je ne peux pas tester n'ayant pas les données du TCD. La macro remplace le champ de E8 par celui de E9. Si ça ne fonctionne pas, mets en PJ un classeur avec TCD ET les données qui vont avec.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    With Sheets("tcd").PivotTables("tcd")
        With .PivotFields([Selection!E8].Value)
            Orientation = xlHidden
        End With
        With .PivotFields([Selection!E9].Value)
            .Orientation = xlRowField
            .Position = 2
        End With
    End With

[PASQUI62]

Bonsoir Daniel

Merci beaucoup !effectivement çà marche pour la sélection des champs,
maintenant peux tu me donner l'écriture pour que le champs se nomme avec le contenu de la cellule G15. J'ai mis ([Selection!G15].Value) mais évidemment çà ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro96()
    Sheets("tcd").Select
    ActiveSheet.PivotTables("tcd").AddDataField ActiveSheet.PivotTables("tcd"). _
        PivotFields([Selection!G15].Value), ([Selection!G15].Value), xlSum
        Sheets("Selection").Select

Merci à toi.

[Daniel.C]

Bonjour,

Ou je me trompe, ou Selection!G15 n'est pas un champ de ton TCD.