Salut backjojo,
Voilà un début de code qui fonctionne mais pour lesquel le résultat est clairement à améliorer:
Sub creerGraphe()
Dim plageX As Range
Dim plageY As Range
Dim plageEp As Range
Set plageX = Sheets("Feuil1").Range("B2:B50")
Set plageY = Sheets("Feuil1").Range("C2:C50")
Set plageEp = Sheets("Feuil1").Range("D2:D50")
Dim maChart As Chart
Set maChart = Charts
maChart.SeriesCollection.NewSeries
maChart.PlotArea.Width = 500
maChart.PlotArea.Height = 500
maChart.SeriesCollection(1).XValues = plageX
maChart.SeriesCollection(1).Values = plageY
Dim i As Integer
For i = 1 To maChart.SeriesCollection(1).Points.Count
maChart.SeriesCollection(1).Points(i).ApplyDataLabels
maChart.SeriesCollection(1).Points(i).DataLabel.Text = plageEp.Cells(i, 1).Text
Next i
maChart.PlotArea.Width = 400
maChart.PlotArea.Height = 400
maChart.ChartType = xlXYScatter
End Sub
Partie qu'il faut modifier pour remplir ton besoin :
plageX -> plage des X
plageY -> plage des Y
plageEp -> plage des épaisseurs
Set plageX = Sheets("Feuil1").Range("B2:B50")
Set plageY = Sheets("Feuil1").Range("C2:C50")
Set plageEp = Sheets("Feuil1").Range("D2:D50")
En faisait qql modifs à la main on arrive rapidement à ça (oui c'est codable non c'est pas encore codé =) )