j'ai bidouiller quelque chose a vous de me dire ce que ça vaux
sub aaa()
Dim val
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Points(1).hasDataLabel=true
ActiveChart.SeriesCollection(1).Points(1).DataLabel.Select
val = Selection.Characters.Text
Windows("feuil1").Activate
Range("a1").Value = val
End Sub
voila voila
si ça peut servir à qqun
a+
fifou