générer autant de graphiques que d'attributs dans le tableau

Bonjour,
je n'ai pas réussi à trouver les bons mots clefs pour faire aboutir ma recherche... alors j'y vais avec mon vocabulaire.
J'ai un tableau qui contient 3 colonnes

ESPECE|MOIS|NOMBRE
chien    janvier    3
chien    février     4
chien    [...]        [...]
lapin    janvier   2
lapin    février   4
lapin   [...]      [...]
aigle   janvier   5
aigle   février   6
etc...

Pour chaque espèce, je dispose d'un nombre de données pour chaque mois.
J'aimerai créer un graphique (histogramme ou courbe) pour chaque espèce (nombre de données par mois). sur le modèle du graphique ci-dessous

Je pourrai le faire à la main, sauf que j'ai des centaines d'espèces ... comment automatiser cela ?
Merci beaucoup, j'espère avoir été assez claire et précise !
a+
A.


Pièce jointe 160340

Bonsoir,

Mets ton classeur - sans données confidentielles - en pièce jointe. La macro dépend dépend beaucoup de la disposition de tes données.

Voici le fichier en question.
Il y a deux onglets, un où j'ai mes espèces à traiter prioritairement, un ou c'est facultatif (mais si je suis assez dégourdie avec un modèle sur un, je devrai peut être m'en sortir sur l'autre... a voir:roll:!)
Merci beaucoup

bonne fin de semaine
(retour lundi)
A.
Pièce jointe 160354

580 graphiques... Tu veux un graphique par feuille ?

Je te propose une autre solution, un seul graphique et une liste déroulante permettant de choisir l'espèce dont les données s'afficheront dans le graphique. La liste des espèces se trouve dans la feuille "Espèces" en colonne A. Tu peux ajouter ou supprimer des espèces. La liste déroulante s'ajustera automatiquement.

PJ : Pièce jointe 160384

Bonsoir,
Waaaaahou c'est incroyable !
Ou est-ce que je peux trouver le code de la macro dans le fichier ? Afin de,toute seule comme une grande (j'aurai l'impression d'avoir contribué) changer la couleur de la courbe, la mettre en "lissé" ou encore changer la plage de cellules prises en compte (car le tableau devrait etre un poil plus long bientôt) ?
C'est en tout cas absolument éberluant !
Merci
A.

Bonjour,
j'ai réussi à modifier la couleur de la courbe, et le lissage, car il s'applique à toutes les graphiques quand on change le nom d'espèce.
j'ai aussi mis à jour les chiffres, tout fonctionne ! (youpî !:lol:)

Est-ce abusif de demander à Excel de m'exporter les graphiques en GIF ou JPG ou PNG... ?
J'ai trouvé une macro sur le site http://www.pcastuces.com/pratique/astuces/2303.htm

Code:

---

1 2 3 4

Sub SauveGIF () Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif" ActiveChart.Export FileName:=Fname, FilterName:="GIF" End Sub

---

Mais excel me répond :
"Erreur d'execution '91' : Variable objet ou variable de bloc With non définie"

Comme je ne maitrise pas grand chose... que puis-je faire pour faire fonctionner ceci?
Voire que ce soit automatique pour les 500 graphiques = 500 images enregistrées sur un dossier... je demande peut être la lune ?

Merci beaucoup !
Bonne journée
A.

Bonjour,

Citation:

---

Ou est-ce que je peux trouver le code de la macro dans le fichier ?

---

Il n'y a pas de macro. La liste des espèces (feuille "Espèces") est chargée automatiquement dans la liste déroulante de la feuille "Graphique". La ligne correspondant à la valeur choisie dans cette liste se trouve en B2 sous la liste déroulante. Les formules de la plage E2:E13 de la feuille "Espèces" renvoient les valeurs du graphique. La seule chose que tu aies à faire est d'ajouter ou d'ôter au besoin des espèces. Je peux avec une macro éliminer les valeurs 0. Par contre, il faut, dans ce cas, mettre des marqueurs pour que les points isolés soient visibles (par exemple bécassine double).
Dans le nouveau classeur joint, il y a dans le module de la feuille Espèces la macro événementielle :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Calculate() Dim C As Range Application.EnableEvents = False For Each C In [E2:E13] If C <> 0 Then C.Offset(, 1) = C.Value Next C Application.EnableEvents = True End Sub

---

qui recopie les valeurs de E2:E13 en F2:F13 quand elles ne sont pas nulles. Cette macro se déclenche automatiquement quand les valeurs E2:E13 changent. Si tu préfèrais la première sorte de graphique, change la plage de valeur de la série pour reprendre E2:E13.
J'ai ajouté la macro pour les expport de tous les graphiques en GIF :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub SauveGIF() Dim C As Range, Graph As Chart Set Graph = Sheets("Graphique").ChartObjects(1).Chart With Sheets("Espèces") For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)) [Graphique!B2] = C.Row - 1 Fname = ThisWorkbook.Path & "\" & C.Value & ".gif" Graph.Export Filename:=Fname, FilterName:="GIF" Next C End With End Sub

---

PJ: Pièce jointe 160506

Bonjour,
La réponse étant allée droit dans les spams, je ne la vois que maintenant.
Cette réponse a en tout cas satisfait totalement ma demande !
Merci mille fois ! Ce sujet est résolu !
Et Bravo !
A.