XL 2007 - Graphique, Ordre des séries de données

Question

Bonjour, 

Voici le fichier pour une meilleure compréhension : http://cjoint.com/14sp/DIgj3pazi32_cp_horaire.xlsm

Au bout d'une procédure j'obtiens ce tableau, puis le graphique créé par le bout de macro que j'ai lié à ce fichier (pour recréer le tableau, effacer l'existant avant).
Je voudrais que l'ordre d'apparition des noms d'équipes soit celui de l'ordre de position (c'est une course) sur la dernière heure (20h). Or en l'état il me liste les équipes selon l'ordre du classement de la 1ère heure (00h). Sur quoi jouer en VBA ?

Merci d'avance.

ucfoutu · Answer

Bonjour,
Il est très peu probable que ton fichier xlsm soit ouvert. Seuls les moins prudents s'y risqueraient. Il peut être pollué à ton insu.
Isole ton problème et le bout de code qui le concerne et présente-le ici entre balises code.
Merci de bien vouloir te conformer à cette discipline.

Palteza · Answer

Bonjour et merci de ta réponse.

Je ne peux rien isoler puisque c'est plus un ajout ou une modification (de je ne sais quel élément) auquel je dois opérer. Je réexplique donc le problème (très dur sans voir le graphique et le tableau) et colle le code de création du graphique.

J'ai un tableau avec en ligne des heures et en colonnes des équipes. En valeurs se trouvent le nombre de checkpoints franchis par l'équipes aux heures données (c'est une course virtuelle). Ainsi je vais de 0h à 20h. Une fois mon graphique tracé (suppression quadrillage principal, ajout quadrillage secondaire, axe des abcisses en haut, etc...), je me retrouve avec un ordre des séries de données selon la 1ère heure (0h donc), alors que je voudrais l'ordre suivant la dernière heure des données (20h), logique pour une question de confort de lecture. Ces séries de données sont déjà figées quand je veux modifier l'ordre "à la main", quelques chose doit forcer l'ordre.


Voici le code :

Sub quegraph()Dim x, y As Integerx = 13y = 13Workbooks("cp_horaire.xlsm").Worksheets("cp_horaire").Shapes.AddChart.SelectActiveChart.SetSourceData Source:=Range(Cells(x, y), Cells(1, 1))ActiveChart.ChartType = xlLineMarkersActiveChart.PlotBy = xlColumnsActiveSheet.ChartObjects(1).Name = "Position_Evolution"ActiveChart.Axes(xlValue).MinimumScale = 0ActiveChart.Axes(xlValue).MaximumScale = y    ActiveChart.Axes(xlValue).Delete    ActiveChart.Axes(xlValue).MajorGridlines.Delete    ActiveChart.Axes(xlValue).HasMinorGridlines = True    ActiveChart.Axes(xlValue).MinorUnit = 10    ActiveChart.Axes(xlValue).MinorGridlines.Border.Color = RGB(255, 0, 0)    ActiveSheet.ChartObjects("Position_Evolution").Activate    Selection.Width = 746    Selection.Height = 522        ActiveChart.PlotArea.Height = 510    ActiveChart.PlotArea.Top = 5    ActiveChart.PlotArea.Width = 700    ActiveChart.PlotArea.Left = 10                'on affiche l'échelle de l'axe vertical    ActiveChart.SetElement (msoElementPrimaryValueAxisShow)    'on inverse le sens de l'axe vertical    ActiveChart.Axes(xlValue).ReversePlotOrder = True    'on affiche les étiquettes de données, puis on supprime toutes sauf la dernière    ActiveChart.ApplyDataLabels        'police des étiquettes abscisses et des ordonnées    ActiveChart.Axes(xlCategory).TickLabels.Font.Size = 8    ActiveChart.Axes(xlValue).TickLabels.Font.Color = RGB(255, 0, 0)        'suppression trait axe ordonnées    ActiveChart.Axes(xlValue).Border.LineStyle = xlNone        'couleur de fond du graphique    ActiveChart.PlotArea.Interior.Color = RGB(230, 230, 230)    ActiveChart.ChartArea.Interior.Color = RGB(230, 230, 230)    For i = 1 To (y - 1)    ActiveChart.SeriesCollection(i).DataLabels.ShowValue = False    ActiveChart.SeriesCollection(i).DataLabels.ShowSeriesName = True    ActiveChart.SeriesCollection(i).DataLabels.Orientation = 0    'taille des marqueurs    ActiveChart.SeriesCollection(i).MarkerSize = 3        For n = 2 To (x - 1)            ActiveChart.SeriesCollection(i).DataLabels(n).Delete            'on place les étiquettes de données à gauche du point            ActiveChart.SetElement (msoElementDataLabelLeft)            'on masque la légende            ActiveChart.SetElement (msoElementLegendNone)        Next n   Next i         End Sub

ucfoutu · Answer

Il est vraisemblable que tout est la conséquence de l'ordre de tes données, dans cette plage :
ActiveChart.SetSourceData Source:=Range(Cells(x, y), Cells(1, 1))
et qu'il te faut donc travailler sur la plage elle-même

Palteza · Answer

J'ai déjà travaillé sur ça, puisqu'à la base l'ordre (logique) était (Cells(1, 1), Cells(x, y)). J'avais justement inversé pour tester : aucune conséquence.

Mon Range est bien le bon pourtant, je ne prends ni trop ni pas assez de données.

ucfoutu · Answer

J'ai déjà travaillé sur ça, puisqu'à la base l'ordre (logique) était (Cells(1, 1), Cells(x, y))
J'y vois en ce qui me concernhe toujours la même plage que le range Range(Cells(x, y), Cells(1, 1)) !

La même, avec le même ordre. Je n'y vois aucune différence (résultant d'un tri).

XL 2007 - Graphique, Ordre des séries de données

5 réponses

Votre réponse

Discussions similaires