Discussion :

[alexlw]

Bonjour à tous,

Voici mon problème :
J'ai une fichier excel déjà existant qui contient un tableau croisé dynamique. (Vous trouverez en pièce jointe un fichier exemple)

La colonne "job" est obligatoirement en filtre du TCD.

Maintenant par vba j'aimerai avoir la "somme de age" pour chaque nom dans le cas où job est égal à "(vide)".
C'est facile à avoir lorsqu'on le fait à la main, il suffit de cocher le choix (vide) dans la liste déroulante. Mais je dois impérativement le faire par vba.

J'ai essayé :

Worksheets("Feuil1").Cells(10,2).Value() = "(vide)" mais cela m'indique une erreur 1004, erreur définie par l'application ou par l'objet.

Voilà je galère vraiment !! et je dois rendre ce travail pour la fin de la semaine!!
j'espère que des âmes charitables pourront m'aider.

Bonne journée,

[78chris]

Bonjour

Ce que tu dois manipuler c'est le TCD, pas la cellule !

L'enregistreur de macros n'est pas un gadget : as-tu essayé ?

[alexlw]

Je suis vraiment une novice en vba et TCD. (cela signifie que je ne comprends pas bien ta remarque sur l'enregistreur de macro)

J'ai vu qu'on pouvait créer un TCD à partir de VBA mais je n'ai pas réussi à trouver le moyen me permettant de créer une variable TCD dans VBA qui référencerait un TCD déjà existant pour pouvoir le manipuler. As tu un lien de tutoriel pour cela ?

(De plus, je dois justement créer une macro pouvant s'adapter à plusieurs TCD différents, de tailles différentes, donc il faut quelque chose de très souple)

[78chris]

Re

Justement si tu es novice http://fauconnier.developpez.com/tut...istreur-macro/

[alexlw]

ok je crois que je tiens un truc !

Ton idée d'enregistreur de macro était super ! je ne connaissais pas du tout !

Je viens d'enregistrer une macro et je l'ai retrouvé sur vba donc maintenant je vais voir si je peux l'adapter pour la rendre plus souple ! je reviens vers toi si j'ai un résultat concluant !

merci beaucoup !!

[alexlw]

Re,

aurais tu une idée de comment je pourrais récupérer le nom du tcd à partir d'une cellule appartenant à ce tcd ? Exemple si je sais que le TCD est sur la plage A5:E20 ? (enfin vu qu'il est dynamique le E20 peut bouger)

parce que j'en ai besoin (comme on peut le voir ci dessous) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro_filtre_vide()
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields( _
        "Support de la Demande")
        .PivotItems("Appel entrant").Visible = False
        .PivotItems("Appel sortant").Visible = False
        .PivotItems("Courrier").Visible = False
        .PivotItems("Email").Visible = False
        .PivotItems("Espace Client").Visible = False
        .PivotItems("Fax").Visible = False
        .PivotItems("Internet").Visible = False
        .PivotItems("Visite").Visible = False
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Support de la Demande").EnableMultiplePageItems = True
End Sub

[alexlw]

ok c'est bon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub nom_TCD()
 
Dim tcd As String
 
Worksheets("Feuil1").Activate
Worksheets("Feuil1").Range("A8").Select
 
tcd = ActiveCell.PivotTable.name
MsgBox ("Le nom du tcd est " & tcd)
 
End Sub

Merci pour ton aide !

[halaster08]

Code :

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

1
2
3
4
 
Worksheets("Feuil1").Activate
Worksheets("Feuil1").Range("A8").Select
tcd = ActiveCell.PivotTable.name

Bonjour,
Les selects c'est mal, l'enregistreur de macro t'en met partout mais tu peux t'en passer, ils sont lent et causent souvent des problèmes.
Ton code s'écrit en une ligne:

Code :

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

tcd = Worksheets("Feuil1").Range("A8").PivotTable.name

[78chris]

Re

Cela oblige à sélectionner la cellule...

Si un seul TCD par feuille utiliser

Code :

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

Worksheets("Nom de la feuille").PivotTables(1)

Nom à adapter

Edit : Coucou halaster08

[alexlw]

A vrai dire j'ai beaucoup de feuilles de calculs et beaucoup de tcd par feuille

Merci pour votre aide !
Je passe cette conversation en résolue !

[78chris]

Re

Dans ce cas je te conseille de nommer tout tes TCD de façon claire et logique et de ne pas laisser les noms automatiques....

Notamment si tous ceux ceux tu dois filtrer les vides sont nommés avec un nom portant la même racine, une double boucle règle cela très facilement sans avoir à connaitre le positionnement d'une cellule de chaque TCD, d'autant que les TCD étant à géométrie variable, au fil du temps ce repère peur changer... tandis que les noms sont stables.

Si tous les TCD concernés alors double boucle sur les index des TCD...