Tableau dynamique et Graphique

Bonjour à tous,

Je reviens vers vous car mon projet avance à grands pas et je voudrais lui donner encore un petit coup de patte. A partir de données brut, je fais un filtrage et pour UN paramètre précis, je voudrais que sa valeur soit affichés sous forme de graphique. Mon idée, qui n'est peut être pas la plus simple était de placé cette valeur dans un tableau dynamique et après avoir filtré toutes ma valeur, tracer mon graphe à partir du tableau.

Il y a donc 2points à éclaircir:

Comment créer un tableau dynamique?

Comment créer un graphe à partir d'un tableau dynamique?

Merci par avance de votre aide

PS: Si vous avez une solution plus simple, je suis preneur

Bonjour,

La réponse dépend en partie de ta version d'Excel que tu n'as pas précisée. A partir d'Excel 2003, tu peux définir un tableau dynamique en sélectionnant la plage de cellules et en la transformant en "tableau" (appellation XL2007 et XL2010) ou "liste" (appellation XL2003) :

Code:

---

1 2	ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$B$11"), , xlYes).Name = _ "Tableau1"

---

pour le graphique :

Code:

---

1 2 3 4

Set Graphe = ActiveSheet.Shapes.AddChart Graphe.Chart.ChartType = xlColumnClustered Range("Tableau1[#All]").Copy Graphe.Chart.Paste

---

Précise ta version si tu travailles avec une version d'Excel plus ancienne.

ou, si le tableau comporte deux colonnes : "Etiq" et "Valeurs" :

Code:

---

1 2 3 4 5 6 7 8

Set graphe = ActiveSheet.Shapes.AddChart With graphe.Chart .ChartType = xlColumnClustered .SeriesCollection.NewSeries .SeriesCollection(1).Name = "=Feuil1!$A$1" .SeriesCollection(1).Values = Range("Tableau1[Valeurs]") .SeriesCollection(1).XValues = Range("Tableau1[Etiq]") End With

---

Bonjour,

Merci Daniel.C de ta réponse. Je travaille sous Excel 2010. je vais essayer ta solution et je reviendrais vers toi pour faire un retour et clore, si besoin, le sujet.

Cordialement

Bonjour,

Après essai j'ai toujours un problème, je ne récupère pas ce que je voudrais mais je pense que la faute viens de moi.
Lors de mon tri, j'utilise la fonction case et si le paramètre est tpt_mat, je récupère sa valeur et la place dans la colonne F. Ensuite, en utilisant ta fonction, je créé un tableau dynamique puis je trace mon graphe mais au lieu d'avoir une belle courbe de tendance comme je voudrais, je me retrouve avec un graphique à barre.

Est-ce que tu peux mettre ton classeur (sans données confidentielles) en pièce jointe ?

Il n'y a pas de souci, je te donne ça:

J'ai résolu le problème du graphique pour l'affichage en courbe de tendance à la place du graphe en barre. Pour cela j'ai changé l'argument dans ton code

Code:

---

1 2 3 4

Set Graphe = ActiveSheet.Shapes.AddChart Graphe.Chart.ChartType = xlLine Range("Tableau1[#All]").Copy Graphe.Chart.Paste

---

Citation:

---

J'ai résolu le problème du graphique pour l'affichage en courbe de tendance à la place du graphe en barre. Pour cela j'ai changé l'argument dans ton code

---

Qu'est-ce qui te manque ?

Je n'arrive pas à afficher mon graphique. enfin plutôt le résultats. Grace à ton aide, j'arrive à créer un graphique mais je ne dois pas bien paramétrer mes données et donc, le résultat obtenu est erroné

Bon j'ai résolu mes pbs donc je clos le post.
Merci de votre aide

Je ne comprends pas ce que tu fais sur Feuil2. Tu as l'air d'écraser des données. Pourrais-tu poster le résultat escompté ?