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.

[PASQUI62]

Excact ce n'est pas un nom de champ mais dans g15 de la feuille Selection il y a le nom que je veux donner au champs mais je ne sais encore une fois pas l'exprimer en VBA en sachant que normalement cela devrait s'exprimer par ex "101" dans l'exemple ci dessous. 101 est également Inscrit dans le cellule G5 en l'occurence.

Code :

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

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

Merci de ton aide Daniel. Je ne peux pas t'envoyer d'extrait du fichier de cet ordi, çà bloque, mais je pense que mon exemple est assez clair.

[Daniel.C]

Oui, mais dans :

Code :

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

PivotFields([Selection!G5].Value), " 101", xlSum

"[Selection!G5]" doit représenter le "vrai" nom de champ. Tu peux remplacer "101" dans le paramètre suivant par le nom qu'il te plait, qu'il soit dans une cellule ou entre guuillemets.

[PASQUI62]

J'ai bien compris mais je voudrais qu'il reprenne le vrai nom du champs mais sans mettre somme de devant.
De plus dans la macro je ne peux pas faire sans mettre le paramètre du nom du champs en tout cas en ce qui concerne les champs de données d'un tcd.

Merci

[Daniel.C]

Utilise la syntaxe suivante :

Code :

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

1
2
    ActiveSheet.PivotTables("Tableau croisé dynamique1").DataPivotField.PivotItems( _
        "Somme de Nombre").Caption = "toto"

[PASQUI62]

Ce n'est toujours pas clair.
en Caption je voudrais récupérer ce qu'il y a écrit dans la cellule G5 mais peut -être n'est ce pas possible !?

[Daniel.C]

Utilise l'enregistreur de macros. Si tu n'y arrives pas, poste ce que tu as obtenu.