XL 2010 Segment sur une feuille, TCD sur une autre...

[Yvan1]

Bonjour,
Je voulais savoir s'il était possible de mettre un segment sur une feuille, alors que le TCD est sur une autre feuille ?
Et si oui, comment faire ?
Merci d'avance,
Yvan

 

[JHA]

Bonjour à tous,

Tu crées ton segment dans la feuille du TCD puis Ctrl+x et collage dans l'autre feuille.

JHA

 

[Yvan1]

Super, merci pour l'astuce.
Nouvelle question. Et cette fois, je joins un fichier...
Je souhaite effectuer un calcul en fonction des résultats du TCD.
Il faut qu'en col. L, apparaisse une colonne budget, qui ventile le budget global (cellule F7) en fonction de la Part.
Et là, je bloque !!!
Dans l'attente de vos propositions,
Merci d'avance,

 

[chris]

Bonjour à tous

Pas intégrable dans le TCD
Utiliser LIREDONNEESTABCROISDYNAMIQUE pour faire une formule juxtaposée...

 

[Yvan1]

Bonjour Chris,
Oui, mais si je mets ma formule en L, la recopie se fait mal !!!
Comment faire ?
Merci d'avance,
PS : Je l'ai intégrée dans le fichier joint

 

[chris]

RE
LIREDONNEESTABCROISDYNAMIQUE est paramétrable mais vu que le TCD va changer selon le filtre

=SI(ET(GAUCHE(B19;5)<>"Total";B19<>"");K20*$F$7;"")

serait plus approprié

 

[Yvan1]

Génial, c'est parfait. Et pour coller à chaque changement de filtre, ne peut-on intégrer une macro dans "This Workbook" qui permettrait de recopier la formule selon la dimension du TCD ?

 

[WTF]

Bonjour Chris,
Si ton budget est toujours égal à 1,05 x CA Réalisé /2,5 le plus simple est qu'il soit directement dans ta base, ou alors tu mets dans ta colonne L19 =1,05*E19/2,5

 

[Yvan1]

Pas faux. Ca marche aussi, et c'est effectivement plus simple. Quid de la macro pour l'adapter à la taille du TCD en fonction du filtre ???

 

[job75]

Bonjour Yvan1, JHA, chris,

Voyez le fichier joint et cette macro qui renseigne la colonne L :

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
[L:L].Clear 'RAZ
With PivotTables(1).TableRange1
    .Columns(10).Copy .Columns(11) 'pour les formats
    .Columns(11) = "=K18*F$7"
    .Cells(1, 11) = "Budget ventilé"
    .Columns(11).NumberFormat = "0.00"
End With
Application.EnableEvents = True
End Sub

Notez que les formats de la colonne K sont copiés vers la colonne L.

A+

 

[Yvan1]

Magnifique, c'est exactement ce que je voulais.
Une question cependant, quel est l'intérêt de la formule =AUJOURDHUI() ?
La macro ne s'active-t-elle pas au changement de filtre ?

 

[job75]

Une question cependant, quel est l'intérêt de la formule =AUJOURDHUI() ?
La macro ne s'active-t-elle pas au changement de filtre ?

Oui j'avais mis cette fonction pour forcer le recalcul mais c'est inutile, je viens de l'enlever.

 

[Yvan1]

Ok, en tout cas, merci à tous pour votre investissement dans mon projet.
Bonne soirée, et bon week-end à tous.

 

[Yvan1]

J'ai crié victoire un peu trop tôt.
J'ai un peu complexifié la formule en L, et visiblement ça ne plait pas à Excel.
Où est la subtilité ?
Merci d'avance,

 

[job75]

Je suis fainéant et j'ai horreur de me fatiguer sur les usines à gaz.