Discussion :

[mcf_23]

Bonsoir à tous,

J'ai besoin d'un coup de main car je n'arrive pas à franchir un obstacle vital.
Je suis entrain de créer une macro pour automatiser un TCD et tout se passe bien sauf un point : je voudrais que le TCD puisse se créer quelque soit le nom de l'onglet qui contient la source de données.

Voici le code actuel :

Code :

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

1
2
3
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Commercial 1'!R3C1:R1500C28").CreatePivotTable TableDestination:="", _
        TableName:="TCD", DefaultVersion:=xlPivotTableVersion10

Le code fait actuellement référence à l'onglet "commercial 1" mais comme chaque utilisateur doit mettre son nom à l'onglet, "commercial 1" peut devenir "Patrick", "Christophe"...
j'ai bien tenté de mettre le code suivant :

Code :

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

1
2
3
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "sheets(1)!R3C1:R1500C28").CreatePivotTable TableDestination:="", _
        TableName:="TCD", DefaultVersion:=xlPivotTableVersion10

mais ça ne marche pas...

Des idées ?
Merci beaucoup et bon développement à tous !
Nicolas

[cb_60]

Bonsoir
Sur ta feuille de base nomme ta zone de cette façon:
Nom = TCD
formule = tes cellules de reference.
exemple

Code :

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

TCD	=DECALER(Feuil2!$A$1;;;NBVAL(Feuil2!$A:$A);NBVAL(Feuil2!$1:$1))

ensuite dans ta macro mets cela:

Code :

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

1
2
3
4
 
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="tcd"). _
        CreatePivotTable TableDestination:="", TableName:= _
        "TCD", DefaultVersion:=xlPivotTableVersion10

cela permet de ne plus faire reference à la feuille mais à la zone nommée (on peut donc renommer les feuilles)

[mcf_23]

Merci beaucoup ça fonctionne parfaitement !!!

J'avais complétement oublié que l'on pouvait nommer une plage de cellules !

J'étais entrain de me prendre la tête et la solution était toute bête mais il fallait y penser... vraiment merci mille fois !

Du coup je bloque maintenant sur un nouveau sujet

Une des colonnes s'intitule "N° semaine" et j'aimerais que l'utilisateur puisse filtrer cette colonne en sélectionnant un numéro de semaine et que le TCD ne prenne que les infos filtrées et non toutes les cellules jusqu'à 1500 comme c'est le cas pour le moment.

Je ne peux pas utiliser la propriété

Code :

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

Range("XX").currentregion.select

car j'ai des données au-dessus que je ne veux pas sélectionner donc je suis entrain de créer un petite interface pour demander à l'utilisateur de saisir le numéro de semaine dans une txtbox et ensuite je l'applique dans le TCD mais ça me parait bien compliqué... aurais-tu une dernière idée magique plus simple ? (je sais j'abuse un peu)

[cb_60]

Bonjour
Je pense que pour la semaine tu devrais utiliser, la fonction grouper de ton TCD. Une fois celui ci crée, il est très facile de filtrer le TCD