Discussion :

[basto]

Bonjour,

Je m'explique :

J'ai un onglet contenant l'ensemble de mes articles et prix. Réguliérement, j'ai une mise à jour des prix et donc une date de référence.

J'ai fait un tableau dynamique m'affichant :
Date 1 Date 2
Article 1 | Prix A | Prix B
Article 2 | Prix C | Prix C
Article 3 | Prix D |
Article 4 | | Prix E

Ce tableau fonctionne parfaitement sauf que j'ai tous les prix et vu le nombre d'article, je ne peux pas afficher tout et repérer les articles ayant subit une modification de prix

Je souhaite soit :
a> Afficher que les articles ayant une modification de prix
b> Afficher sur chaque ligne l'écart entre le prix Date 2 et le prix Date 1 et mettre en place une mise en forme conditionnelle pour que je repère rapidement les évolutions

L'idée je l'ai mais la façon de la résoudre je ne la trouve pas.

Si qqun à une idée, je suis plus que preneur.
D'avance merci
A+

[Fvandermeulen]

Salut,
As tu été voir du côté des formules de champs, tu as la possibilité de créer (selon ce que tu as expliqué de tes données) un champrs calculé Date2-Date1, c'est sur ce champ que tu pourras mettre si tu le souhaite une indication de couleur.
A+

[basto]

Je ne comprend pas trop ta réponse.

J'ai essayé de faire une formule mais je ne vois pas comment procéder pour faire date 1 - Date 2

Ci-dessous mes données :
Référence Désignation Code Prix Date
A012345 Chose_1 1 10 01/01/2009
A012346 Machin 3 7 01/01/2009
A013678 Truc 5 22 01/01/2009
A122699 Bidule 2 3 01/01/2009
A274759 Chose_2 1 5 01/01/2009
A580357 Bidule_2 3 11 01/01/2009
A012345 Chose_1 1 10 01/07/2009
A012346 Machin 3 7 01/07/2009
A013678 Truc_2 4 22 01/07/2009
A122699 Bidule 2 3 01/07/2009
A274759 Chose_2 1 5 01/07/2009
A580357 Bidule_2 3 19 01/07/2009

Ce qui donne au niveau du TBC :
Evolution des Prix Date
Référence Désignation Code 01/01/2009 01/07/2009
A012345 Chose_1 1 10 10 <rien>
A012346 Machin 3 7 7 <rien>
A013678 Truc 5 22 Obsolète
Truc_2 4 22 Nouveau
A122699 Bidule 2 3 3 <Rien>
A274759 Chose_2 1 5 5 <Rien>
A580357 Bidule_2 3 11 19 +X%

En rouge ce que j'aimerai voir afficher dans la dernière colonne de mon TBC

Merci pour votre aide

[Fvandermeulen]

Re,
C'est normal que tu ne comprenne pas j'avais supposé deux champs Date1 et Date2, comme ce n'est pas le cas, ça ne sera pas possible, enfin si c'est possible mais avec une formule sur Item ce qui implique que tous tes éléments seront visibles même ceux à zéro donc pas très estéthique...

Il reste l'option de la macro, on peut facilement compter le nombre de ligne, tester chaque ligne et indique dans la première colonne vide le résultat, est-ce une solution qui te convient ?
Si oui, une petite question, dans ton tableau tu n'auras toujours que deux dates ?

A+

[basto]

Merci pour ton retour.

Je crois que je vais etre obligé de passer par une macro en effet. Je souhaitais éviter mais si pas le choix, je vais surement gagner du temps.

Tu parles d'une formule sur item. Je ne connais pas. Peux tu m'en dire plus?

Merci pour ton aide

[Fvandermeulen]

Pour la formule sur Item lorsque tu est dans ton Tableau tu vas dans la barre des tableaux croisés dynamiques, là tu verras une ligne Formule et ensuite Champ calculé et Elément calculé (enfin je crois je suis en version GB)
Choisi élément et tu peux alors ajouter un champ qui sera la résultat de la formule, dans ton cas tu pourrait ajouter '01/07/2009-01/01/2009'
En espérant avoir été clair sur ce coup là sinon voici un lien vers un tuto qui traite des formules pour TCD sur xl2007
http://silkyroad.developpez.com/excel/tcd/#LVI

Pour la macro, voici une idée en considérant qu'il est en A1 de la feuille 1 avec la présentation que tu as donné dans l'exemple.

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
Sub AjoutEtat()
Dim DerLig As Long, r As Long
Dim Ws As Worksheet
 
Set Ws = Sheets("sheet1")
DerLig = Ws.Cells(Columns(2).Cells.Count, 2).End(xlUp).Row
Ws.Columns(6).ClearContents
For r = 3 To DerLig
    Ws.Cells(2, 6) = "Evol"
    If Ws.Cells(r, 5) = "" Then Ws.Cells(r, 6) = "Obsolete"
    If Ws.Cells(r, 4) = "" Then Ws.Cells(r, 6) = "Nouveau"
    If Ws.Cells(r, 4) <> "" And Ws.Cells(r, 5) <> "" And Ws.Cells(r, 5) > Ws.Cells(r, 4) Then Ws.Cells(r, 6) = "'+ " & Round(((Ws.Cells(r, 5) - Ws.Cells(r, 4)) / Ws.Cells(r, 4)), 2) * 100 & " %"
Next r
 
End Sub

Reste à voir pour la mise en forme

A+

[basto]

Merci

Je viens de découvrir, grace à toi, une fonction d'Excel que je ne connaissais pas. Mais c'est vrai ce qui est dommage, c'est que celà créé plein de lignes inutiles. Sans ce défaut, c'est la réponse parfaite à mon problème.

Pour la macro, merci. Je vais m'en inspirer pour mettre en place ma solution.

En merci pour ton aide et surtout pour m'avoir fait découvrir de nouvelles fonctionnalités d'Excel.

Bonne journée
A+