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