Graphique Excel (mise en page variable) Résolu/Fermé

Question

Bonjour a tous !
J'ai deux questions de mise en page mais qui varie selon des parametres.
Voici mon fichier:
Une premiere page avec ma data et les onglets suivant sont des calculs et des graphiques.
Mon but est de donner ce fichier excel a mon boss et qu'il n'a plus qu'a copier coller la data dans la premiere page et tout se calcul dans les autres pages (calcul et graphique).
Jusqu'a la rien de tres sorcier.
Cependant, lorsque mon boss va copier sa data dans la premiere page, il y a un nombre different de ligne.
Ce n'est pas un probleme pour mes calculs avec une rapide function si tout tourne bien.
1) Mais alors pour la legend du graphique... Je suis bien embete ! 
Le graphique marche tres bien. Il n'a pas de donne pour certaine ligne. Donc il ne trace rien.
Cependant dans ma legend je me retrouve avec des traits avec la legend et des traits... seul. Sans rien ! Ce qui est normal vu que la ligne est vide.
Voila j'aimerai que lorsque la ligne est vide, il ny a pas de legend (de simple trait) dans ma legend.
2) Le second probleme est que j'ai une donnee qui s'affiche sur toute mes pages de calcul. J'ai cree une function pour que cette donne s'affiche en dessous de la derniere ligne.
Je souhaite que le trait de cette donnee soit en + gras sur mon graphique.
Le probleme cest que vu que mon nombre de ligne varie, ma donnee fixe varie aussi dans les lignes. Avez vous une idee pour que ma tracage graphique de cette donnee soit lie au nom de la donnee ?
C'est un peu complique a expliquer c'est pourquoi je vous laisse voir en piece jointe

tontong · Answer

Bonjour,
Il y a peut-être une solution soit en nommant les plages soit avec une macro (hors de ma compétence mais il y a d'autres bénévoles sur ce forum).
Les explications même détaillées ne suffisent pas, il faudrait joindre un fichier en utilisant Cjoint.com.
En ajoutant une feuille "les données du boss" on verrait mieux ce qui change.
Les fichiers enregistrés en .xls nous gagnent du temps.

GuillaumeCha · Answer

Bonjour Tontong,
Merci pour ta reponse.
Tu as raison pour l'excel, voici le lien:
https://www.cjoint.com/c/GAthQW2t61b 
une petite explication:
les deux feuillets "exemple 1" & "exemple 2": c'est la data que mon boss va extraire de notre logiciel de gestion par lui meme.
In autre onglet s'appel "where my boss will copy data" c'est la que mon bos va copier coller in des deux exemples.
Les autres pages sont variables selon ll'exemple sauf la page "Dow Jones" qui est juste un file conducteur. Une comparaison.
Je vous laisse donc copier une fois l'exemple 1 et une autre fois l'exemple 2. vous aller voir les problemes dont je vous ai parle sur les graphiques des autres pages
Merci d'avance !

ccm81 · Answer

Bonjour
Comme dit tontong plus haut (salut à toi au passage) une macro pour tenter de répondre à la question 1 (voir Feuille From 2012)
http://www.cjoint.com/c/GAtjU3TXGig
Pour la question 2, j'ai du mal à comprendre, si tu adaptes tes formules à excel 2003, je pourrai essayer, sinon quelqu'un d'autre prendra certainement le relai
Cdlmnt

ccm81 · Answer

Remplaces le contenu du Module 1 par ceci Option Explicit Const lideb = 2 Const codeb = 3 Const cogr1 = "A" Const cogr2 = "C" Public Sub MajGraph() Dim gr As Object, nbser As Long, nuser As Long, X, Y Dim lifin As Long, source As String, cofin As Long, coder As String, annees As String With ActiveSheet lifin = lideb While .Range("A" & lifin).Value <> "Total %" lifin = lifin + 1 Wend cofin = codeb While .Cells(lideb, cofin + 1) <> "" cofin = cofin + 1 Wend coder = Split(.Cells(lideb, cofin).Address, "$")(1) End With annees = cogr2 & lideb & ":" & coder & lideb source = cogr1 & lideb + 1 & ":" & cogr1 & lifin & "," & cogr2 & lideb + 1 & ":" & coder & lifin Set gr = ActiveSheet.ChartObjects(1).Chart gr.SetSourceData source:=ActiveSheet.Range(source), PlotBy:=xlRows gr.SeriesCollection(1).XValues = ActiveSheet.Range(annees) With gr nbser = .SeriesCollection.Count For nuser = nbser To 1 Step -1 Y = .SeriesCollection(nuser).Values If Y(1) = 0 Then .SeriesCollection(nuser).Delete Next nuser nbser = gr.SeriesCollection.Count .SeriesCollection(nbser).Border.ColorIndex = 3 .SeriesCollection(nbser).Border.Weight = xlThick .SeriesCollection(nbser).Border.LineStyle = xlContinuous End With End Sub Cdlmnt

ccm81 · Answer

Chez moi, pas d'erreur
http://www.cjoint.com/c/GAuqEEI2Zig
Essaies sur les deux feuilles From 2013 et From  2012
Cdlmnt

GuillaumeCha · Answer

Bonjour CCM81
J'ai trouve le problem et pourquoi cela buggais pour moi, j'ai fait ma petite modification.
J'ai fait des test et tout marche tres bien. Je te remercie.
Cependant je suis face a deux niuveaux problemes:
1) le code marche parfaitment mais.... pas pour toute les pages ! C'est tres surpprenant mais une ou deux pages il bug sur cette ligne:
 gr.SeriesCollection(1).XValues = ActiveSheet.Range(annees)
(ligne 28) alors que cale marche parfaitement avec les autres pages...
2) Je n'ai plus acces a mon graphique. Je m'explique. Je peux faire du clique droit dessus mais mon clique gauche ne selectionne plus les parties differentes du graphique. Du coup je ne peux plus decaler ma legende, changer la couleur d'une ligne particuliere...
J'ai l'impression qu'il lance la macro a chaque fois que je clique sur le graphique et donc ne selectionne pas la partie voulu.
Je te remercie d'avance pour ton aide,
G.

ccm81 · Answer

1. l bug sur cette ligne:
gr.SeriesCollection(1).XValues = ActiveSheet.Range(annees) 
Et que vaut la chaine annees à ce moment là ?
2. Je n'ai plus acces a mon graphique.
Chez moi je peux deplacer la légende et modifier la couleur d'une ligne
J'ai l'impression qu'il lance la macro a chaque fois que je clique sur le graphique 
Non, la macro est déclenchée par Ctrl+m 
RQ. Dans les feuilles 2014 et 2015 tu as des colonnes de valeurs sans que l'entête année soit renseignée
Cdlmnt

ccm81 · Answer

Ton fichier, bien qu'enregistré en .xls contient des formules non reconnues par excel 2003. Pas grave, je te le renvoie quand même.
http://www.cjoint.com/c/GAynI6rrZgg
Je n'ai pas besoin de presser ctrl+m pour faire tourner la macro, seulement cliquer sur le graphique.
Eh oui, tu as (apparemment) affecté la macro à chacun de ces graphiques
Donc clic-droit sur le graphique (dans chaque feuille)/Affecter une macro et tu supprimes ce qu'il y a dans la fenêtre "Nom de la macro"
Puis Outils/Macro/macros/ choisir MajGraph/Option et definir ton raccourci clavier (Ctrl+m par exemple)
Ensuite tu exécutes la macro (Ctrl+m) dans chacune des feuilles, tout devrait rentrer dans l'ordre (chez moi c'est OK)
RQ. Tu as une feuille (From 2013), où tu n'as pas attribué de données à ton graphique
Cdlmnt