Créer le graphique en seléctionnant la plage B1 C6, insertion graphique, nuage de points, etc, avec onglet "Etiquette de données", "Texte de l'étiquette", l'une des possibilités cochées. Le texte des étiquettes est ensuite mis à jour avec la macro suivante en VBA pour Excel 2003 :
Sub nuage_etiquettes()
' Le nom "Graphique 1" est visible avec un clic droit sur le graphique, option "Fenêtre graphique"
ActiveSheet.ChartObjects("Graphique 1" ).Activate
For i = 1 To 5 ' 5 points
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = Sheets("Feuil1" ).Cells(i + 1, 1).Value
' Si erreur, vérifier si dans "Options du graphique", onglet "Etiquettes de données", case cochée pour un texte
Next i
End Sub
|
Avec un Excel plus ancien, j'avais utilisé une syntaxe un peu différente :
ActiveSheet.ChartObjects("Graphique 1" ).Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
For i = 1 To 5
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
' Met dans l'étiquette la valeur de la cellule de la col 1, ligne i Selection.Characters.Text = Sheets("Feuil1" ).Cells(i + 1, 1).Value
Next i
|
Message édité par olivthill le 08-02-2010 à 11:04:35