Ajouter un point ou passage par l'origine

[Pticle94]

Bonjour,

J'ai défini mon graphique par:

Sub Afficher_Graphique()
Charts.Add
With ActiveChart
    .SetSourceData Source:=ActiveWorkbook.Sheets("Scores").Range("B1:F" & comp), PlotBy:=xlColumns
    .ChartType = xlXYScatterSmoothNoMarkers
    .Name = "Graph"
End With
End Sub

Ainsi j'ai bien mes 5 séries et sur la bonne abscisse.
Sauf que je voudrais que toutes les courbes partent de l'origine


Donc je voudrais savoir comment rajouter le points de coordonnées (o,o) à toutes les séries ou alors comment faire passer les séries par l'origine.

Merci d'avance

 

[CB60]

Re : Ajouter un point ou passage par l'origine

Bonjour
Je ne sais pas si j'ai compris?

 

[Pticle94]

Re : Ajouter un point ou passage par l'origine

Merci pour la réponse mais je me suis mal exprimé.

Bon je donne mon fichier pour expliquer.

Après quelques "Enchères" le bouton "Graphique" apparaît.
Lorsqu'on clique dessus il crée une feuille graphique et affiche l'évolution du nombre de points de chaque joueurs en fonction de nombre de partie.
Mais je voudrais de plus que chaque série partent de l'origine du graphique.

J'espère avoir été assez clair.

Merci d'avance

 

[Pticle94]

Re : Ajouter un point ou passage par l'origine

Merci pour la réponse mais je me suis mal exprimé.

Bon je donne mon fichier pour expliquer.

Après quelques "Enchères" le bouton "Graphique" apparaît.
Lorsqu'on clique dessus il crée une feuille graphique et affiche l'évolution du nombre de points de chaque joueurs en fonction de nombre de partie.
Mais je voudrais de plus que chaque série partent de l'origine du graphique.

J'espère avoir été assez clair.

Merci d'avance

 

[Pticle94]

Re : Ajouter un point ou passage par l'origine

Personne n'est intéressé par mon souci?

 

[CB60]

Re : Ajouter un point ou passage par l'origine

re
Je ne sais pas joué, mais regarde si cela te convient, tu prend un graph nuage de point et en mettant l'axe des "X" avec comme valeur de départ "0" tu peux afficher l'origine de la partie à "0"
Sub Afficher_Graphique()
Sheets("Scores").Activate
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Graph").Delete
Application.DisplayAlerts = True
Charts.Add
comp = ActiveWorkbook.Sheets("Scores").Cells(1, 7)
With ActiveChart
.ChartType = xlXYScatterSmooth
.SetSourceData Source:=ActiveWorkbook.Sheets("Scores").Range("b1: g" & comp), PlotBy:=xlColumns
.ChartType = xlXYScatterSmoothNoMarkers
.HasTitle = True
.ChartTitle.Text = "Tarot du " & Format(Date, "dddd d mmm yyyy")
.Name = "Graph"
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Caption = "Points"
.PlotArea.Interior.ColorIndex = xlNone
.PlotArea.Border.ColorIndex = xlNone
.Axes(xlValue).HasMajorGridlines = False
.SeriesCollection(1).Border.ColorIndex = 1
.SeriesCollection(1).Border.Weight = xlMedium
.SeriesCollection(2).Border.ColorIndex = 4
.SeriesCollection(2).Border.Weight = xlMedium
.SeriesCollection(3).Border.ColorIndex = 3
.SeriesCollection(3).Border.Weight = xlMedium
.SeriesCollection(4).Border.ColorIndex = 7
.SeriesCollection(4).Border.Weight = xlMedium
.SeriesCollection(5).Border.ColorIndex = 5
.SeriesCollection(5).Border.Weight = xlMedium
End With
Application.ScreenUpdating = True
End Sub

je te renvoie le fichier qui est crée, j'ai utilisé la colonne "b" avec une partie à "0"


Edit: modif du fichier

 

[Pticle94]

Re : Ajouter un point ou passage par l'origine

Bonjour,
Merci Bruno pour ta réponse.

De rajouter une ligne avec des 0 partout ça m'oblige à modifier tout mon code pour décaler les boutons à ajouter ainsi que les scores.

Donc pour éviter de tout remodifier et ainsi éviter des oublis malencontreux j'ai copier les valeurs des joueurs ainsi que leur nom après le tableau puis j'ai rajouté une ligne de 0 afin de pouvoir appeler le graphique avec les bonnes valeurs et qu'il parte de l'origine.
Puis dès que je ferme le graphique, les valeurs collées sont supprimées.

Merci pour l'aide du forum.