Paramétrage "déporté" d'un TCD

Question

J'essaye de réaliser, dans le cadre de mon travail, un reporting pour comparer les temps de main d'oeuvre réel d'un part et gammé d'une autre, j'ai donc 2 bases de données. Pour les synthétiser, j'ai crée un onglet avec 2 TCD et chacun synthétise une des deux bases de données. Mon soucis, c'est que je souhaite faire comme une sorte de menu, avec des boutons déportés où on paramètre directement les 2 TCD. Un peu comme les segments. Mais le soucis que j'ai avec les segments, c'est qu'on n'a pas de barre de recherche, ce qui est embêtant quand on a plusieurs centaines de codes articles --&gt; impossible de rechercher rapidement celui sur lequel on veut bosser... Du coup je voudrais savoir si on pouvait avoir des boutons filtres "déportés" du TCD ? J'ai essayé en plaçant mes paramètres sur l'encadrement filtre de l'assistant de configuration d'un TCD, mais impossible de le déplacer... Je travaille sous excel 2010 et concernant mon niveau en VBA, il est nul... J'ai cherché sur internet, j'ai trouvé des codages et je n'y suis jamais arrivé, bref... Merci à tous ...

78chris · Answer

Pas compris ce que tu entends par "boutons filtres "déportés" du TCD" : déplacer le titre de colonne et sa liste déroulante ? Si oui pas possible. Pour les cas où on a beaucoup de codes on peut ajouter une colonne à la source. Par exemple pour des noms, l'initiale : un segment permet de sélectionner la lettre et du coup le segment des noms est peu rempli... Fais un petit fichier exemple de quelques lignes pour chaque source de TCD et du menu schématisé tel que tu l'imagines...

78chris · Answer

Tu disais qu'un segment sur l'article posait problème. Tu veux chercher sur quoi, le code, la désignation ? (désignation qui n'est pas le même dans les 2 tableaux). Si désignation, l'initiale de la désignation peut-elle être ajoutée sur l'une des sources ? Sinon précise comment tu imagines la recherche.....

78chris · Answer

RE

Tu sembles confondre trier et filtrer...

Si l'idée est juste de saisir un PN, par exemple en C9

Sub Filtre()
'
'
For Each PT In ActiveSheet.PivotTables
    With PT.PivotFields("PN Article")
        .ClearAllFilters
        Existe = False
        For Each Pi In .PivotItems
            If Pi.Caption = ActiveSheet.Range("C9").Text Then Existe = True: Exit For
        Next Pi
        If Existe = True Then
            For Each Pi In .PivotItems
                If Pi.Caption <> ActiveSheet.Range("C9").Text Then Pi.Visible = False
            Next Pi
        Else
            MsgBox "PN inexistant": Exit Sub
        End If
    End With
Next
End Sub

78chris · Answer

A part la place que tient une liste par rapport à un Segment, la dérouler prend autant sinon plus de temps que de sélectionner dans un segment Il faudrait créer une tableau des PN pour alimenter la source de la liste... Tu peux copier coller tes colonnes source bout à bout puis en enlever les doublons. Cependant si la liste évolue beaucoup au fil du temps il faudra faire cela par VBA.....

patrick1957 · Answer

Les tableaux ont combien de lignes ? Tu ne peux pas les regrouper dans un seul, ce qui aiderait pour le TCD P...

78chris · Answer

Oui dans un filtre de TCD il faut les tester un par un... ce qui effectivement n'est pas optimum... Le code VBA correspondant à la recherche donne d'ailleurs le détail du masquage : je dis toujours que VBA va moins vite que ce que fait nativement Excel... D'où l'idée de colonne de pré-filtrage comme l'initiale que j'avais évoquée.....

78chris · Answer

Si tu mets le PN en champ de page mono selection : un simple currentPage=... filtrera donc sera plus rapide... éventuellement précédé d'un find sur la table source pour prévenir un plantage du à une erreur de saisie.....

78chris · Answer

RE Avec la champ PN en champ de page (et non plus de ligne) With PT.PivotFields("PN Article") .ClearAllFilters .CurrentPage=ActiveSheet.Range("C9").Text End With doit suffire...